The following will create a new email message assuming you're using MS Outlook as your mail client.
Dim olApp As Object
Dim subject As String
Dim olMailItem
Dim newMail
Dim newRecipient
Dim mailBody As String
subject = "Your text here"
mailBody = "Your text here"
Set olApp = CreateObject("Outlook.Application"
Set newMail = olApp.CreateItem(olMailItem)
Set newRecipient = newMail.Recipients.Add(someone@somewhere.com)
With newMail
.subject = subject
.body = mailBody
End With
newMail.send
olApp.Quit
Set olApp = Nothing
Set newMail = Nothing
Set newRecipient = Nothing
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.