Using ReplyAll and a .oft email template as the body of the email. Possible?

[adamkhanrfc]

Hi guys,

Wondering if you could help. I have this piece of code:

Sub ReplyAllEmail()

Dim EmailWordings As Excel.Worksheet
Dim mail 'object/mail item iterator
Dim ReplyAll 'object which will represent the reply email


Set EmailWordings = ThisWorkbook.Sheets("EmailWordings")


For Each mail In Outlook.Application.ActiveExplorer.Selection
    If mail.Class = olmail Then
        Set ReplyAll = mail.ReplyAll
        With ReplyAll
            .HTMLBody = EmailWordings.Range("D6")
            .Display
        End With
    End If
Next


End Sub

I was wondering if anyone could help with incorporating, somehow, to add a email template i have saved on a shared drive as the body of the email? Is it possible? So when i click on this piece of coding, it should pop up with an email with reply all recipients and the template already there as the body of the email, ready to send.

Any help would be appreciated.

Thanks,

Adam

 

[adamkhanrfc]

Could something be added to the .Body part of the code?