Adjust this VBA code to include an image header

[mchadwick]

Hello, I have this VBA code I'm using to create an email in MS Access O365 to send to users from outlook. I would like to add an image header to it, it would be on the very top of the body. How can I go that?



Private Sub Command28_Click()

Dim Msg As String

Msg = "Hello " & [Pref_First] & ",<P>" & _
"Your SRS Windows Login account will be migrated on " & [Date of Migration] & "."

Dim O As Outlook.Application
Dim M As Outlook.MailItem

Set O = New Outlook.Application
Set M = O.CreateItem(olMailItem)

With M
.BodyFormat = olFormatHTML
.HTMLBody = Msg
.To = [Email - Primary Work]
.Subject = "Domain\Tenant Migration - User Migration"
.Display

End With

Set M = Nothing
Set O = Nothing

End Sub

[June7]

Use <IMG> tag, either when building Msg string or concatenate to Msg variable.

Like:

.HTMLBody = "<IMG src= C:\Users\Owner\June\MyStuff\CanceledCheck.jpg width=100 height=100><br>" & Msg