• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 330
  • Last Modified:

How can VBA send an email that includes both text AND html formats?

I am using VBA in Access 2000 to email to all recipients on a list (on email at a time). It uses Outlook objects for each message and works well with html as the format. How do I include the plain text version in the same email, - so the clients browser or email software can chose plain text if it has too, and html if it is capable? I am assuming the dual format is possible if I use some type of MIME.

Many thanks.  
'we are in a loop which produces single email addresses as the var xx
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    With objOutlookMsg
Set objOutlookRecip = Nothing ' clear previous recipient from loop
Set objOutlookRecip = .Recipients.Add(xx) 
         objOutlookRecip.Type = olTo
         .Subject = Me!subj      '<--Subject
.HTMLBODY = "<HTML><H2><b>This is HTML Text in the BODY of the email</b></H2></HTML>"
        .HTMLBody = "<HTML><Head></Head><Body><table><tr><td>" & hdrtbl & "</td><tr><td><hr>" & Me!msgtxt & "</td></tr><tr><td><small>" & signath & "</small></td></tr></table></Body></HTML>"
              xxx = "Email address ERROR for " & xx
                MsgBox xxx
            End If
 End With
'Cleanup Code
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
Set objOutlookRecip = Nothing
Set objOutlookAttach = Nothing
Me!Text14 = xx & " " & zz
'go to next email address in loop

Open in new window

1 Solution
projamr1Author Commented:
This may be an uncessary concern. Every email client I checked has the ability to show html or at least filter it out.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Easily manage email signatures in Office 365

Managing email signatures in Office 365 can be a challenging task if you don't have the right tool. CodeTwo Email Signatures for Office 365 will help you implement a unified email signature look, no matter what email client is used by users. Test it for free!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now