How do I create a macro to insert text in an email?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hiya. I would like to create a macro in Outlook which inserts some text into
the body of an email. The email could either be a new message, or a Reply.
Thanks.
 
This will create and display a new msg with sample text in the body of the
email:

Sub Test()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)

With objMail
.Body = "Sample Text Here"
.Display
End With
 
Back
Top