Unable to send email in HTML format

  • Thread starter Thread starter Greg
  • Start date Start date
G

Greg

I have the following code and for some reason I am unable to send email in
HTLM format. Email in formated in Rich Text format and I want to add bold
fonts and differnt color to different lines.

Dim strSubject As String
Dim strEmailList As String
Dim strMessage As String
Dim strCopyList As String
Dim strMessage2 As Boolean

strMessage2 = True


On Error GoTo Err_Command75_Click

strSubject = "Outage Notification "
'strEmailList = "joedoe@"
strEmailList = "joedoe@"
'strCopyList = "joedoe@"

strMessage = "Ticket: " & Chr(13) & "Time of Failure: " & Chr(13) & "Time
of Resolution: " & Chr(13) & "Description: " & Chr(13) & "Actions being
Taken:" & Chr(13) & "ETA:" & Chr(13) & "Escalation:"
DoCmd.SendObject acSendNoObject, , acFormatHTML, strEmailList,
strCopyList, , strSubject, strMessage, strMessage2



Exit_Command75_Click:
Exit Sub

Err_Command75_Click:
MsgBox Err.Description
Resume Exit_Command75_Click


If Err.Number <> 2501 Then
MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf
& "Error Number: " & _
Err.Number & vbCrLf & "Error Source: SendEmail" & vbCrLf & _
"Error Description: " & Err.Description, vbCritical, "An Error has
Occured! """
End If


Is it possible to write the code so for ex. line "Descrition:" can be set up
to bold font and blue color?

Thanks
 
Greg said:
I have the following code and for some reason I am unable to send email in
HTLM format. Email in formated in Rich Text format and I want to add bold
fonts and differnt color to different lines.
Click to expand...
DoCmd.SendObject acSendNoObject, , acFormatHTML, strEmailList,
strCopyList, , strSubject, strMessage, strMessage2
Click to expand...

SendObject only supports plain text. The acFormatHTML applies to the object
you might include as an attachment, not the text in the body of the Email.

For what you want you would have to automate an external messaging library
like CDOSys or Outlook.
 
Back
Top