Thank you but it is not what I intend...
I mange to work it out with this code:
Code:
Private Sub email_Click()
messageText = "Dear ," & vbCrLf & "Please find the following description for a suspected problem that occurred in " + LocationTxt.Value + " on " + RunwayCombo.Value + " SDU # " + SduCombo.Value + " " + "During Date/Time" & vbCrLf & "The following SR ID# <_>" + "is Opened in the SR Tool-CRM system. Case severity is " + SevirityTxt.Value & vbCrLf & "" & vbCrLf & "Description:" & vbCrLf & Description.Value & vbCrLf & " " & vbCrLf & "Additional information:" & vbCrLf & Additional information.Value & vbCrLf & "" & vbCrLf & "Please add resolution below:" & vbCrLf & "" & vbCrLf & "This case is assigned to: " + GsocEmployeeCombo.Value & vbCrLf & "Please keep us updated for the progress of investigation." & vbCrLf & "" & vbCrLf & "Regards," & vbCrLf & GsocEmployeeCombo.Value & vbCrLf & "GSOC" & vbCrLf & "Labs Systems, Ltd" & vbCrLf & "Office: " & vbCrLf & "Fax: " & vbCrLf & "eMail: " & vbCrLf & "web: "
DoCmd.SendObject , , , , , , , messageText, , ""
End Sub
I'm looking for an easy way to do it with options like text size, choose bold or underline etc'...
Plus when I'm trying to add the ticket ID (auto generated by access) I get error 13 type mismatch same goes for date and time.
Please help me with a simple solution...