Unable to send email in HTML format

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
 
R

Rick Brandt

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.
DoCmd.SendObject acSendNoObject, , acFormatHTML, strEmailList,
strCopyList, , strSubject, strMessage, strMessage2

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top