Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
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.
Join the community of 500,000 technology professionals and ask your questions.