Code:
Sub CreateHTMLMail()
''''Creates a new e-mail item and modifies its properties'
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
'Create e-mail item'
Set objMail = olApp.CreateItem(olMailItem)
''' Assigning things above in outlook mail message.
With objMail
.Subject =
.Body =
.To =
.Display
.ReadReceiptRequested = True
End With
End Sub
Might have to dim a couple things out and then set them as the specific thing you want... not sure how thats done but I'm sure its possible.