We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub CreateHTMLMail() 'Creates a new e-mail item and modifies its properties Dim MYPIC_DIR As String: MYPIC_DIR = Environ("userprofile") & "\my documents" Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Set olApp = Outlook.Application 'Create e-mail item Set objMail = olApp.CreateItem(olMailItem) With objMail 'Set body format to HTML .BodyFormat = olFormatHTML .HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2>" _ & "<BODY>Please enter the message text here." _ & "<img src=""" & MYPIC_DIR & "\M1.jpg"" />" _ & "<img src=""" & MYPIC_DIR & "\M2.jpg"" />" _ & "</BODY></HTML>" .Display End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Outlook 2007 migration of email addresses - NOT contacts - where is this info saved?||5||74|
|Extract mails from OST file (Offline)||7||55|
|Export email data from Google to PST files||8||74|
|Can't find draft emails||4||12|
Join the community of 500,000 technology professionals and ask your questions.