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