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

[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.

 

[Guest]

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