Use a Macro to Respond with an Email Template

Use a Macro to Respond with an Email Template - Knack Training

byNeil Malek

Here are the two versions of this macro – one for new emails, and one for responding to emails:

Sub NewEmailTemplate()
  Set msg = Application.CreateItemFromTemplate(" <FILEPATH HERE>\<FILENAME HERE>.oft ")
  msg.Display
End Sub

Sub ReplyEmailTemplate()
        Dim origEmail As MailItem
	Dim replyEmail As MailItem

	Set origEmail = Application.ActiveWindow.Selection.Item(1)
	Set replyEmail = Application.CreateItemFromTemplate(" <FILEPATH HERE>\<FILENAME HERE>.oft")

	replyEmail.To = origEmail.Sender
	replyEmail.CC = origEmail.CC
	replyEmail.Subject = origEmail.Subject
	
	replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
	replyEmail.Display
End Sub

View more about this topic

Related everyday office posts

Spring Cleaning … for your Inbox? 5 Tips for Clearing the Clutter in Outlook

So here we are. It’s springtime and you know what that means. Spring cleaning! We often clean and reorganize our...

Save a Click: Create a Quick Step to Help you Keep Your Inbox Clean

Think about all the clicks you have to make while checking your email. Every click adds to the amount of...

#2.Ep. 002: Conversation with Melissa Peoples about your Productivity Road Map