Macro to Reply to Emails w/ Template

[John Simmons]

Hello,

I am trying to create a macro to reply to emails with a template. When I use the macro below (which I found online), it puts the sender's name (not email address) in the reply To: box. This is frustrating because then I have to delete the name and copy and paste the actual email address. I tried changing the line with replyEmail.To = origEmail.Sender to replyEmail.To=origEmail.SenderEmailAddress, but then I just got a long string of letters and numbers in the reply To: box when I ran the macro. Any thoughts? Thank you!

Sub MacroName()

Dim origEmail As MailItem
Dim replyEmail As MailItem

Set origEmail = Application.ActiveWindow.Selection.Item(1)
Set replyEmail = Application.CreateItemFromTemplate("C:\path\templatename.oft")

replyEmail.To = origEmail.Sender
replyEmail.CC = origEmail.CC
replyEmail.Subject = origEmail.Subject

replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
replyEmail.Display

End Sub

 

[Diane Poremsky]

Try using
replyEmail.To = origEmail.SenderEmailAddress


(Sender works if you have a contact for the person - it will resolve to the contact.)

 

[John Simmons]

Thanks! OK, I think I see the problem now. SenderEmailAddress works for external emails, but not internal ones in my organization. If I use the macro on an email from someone within my organization, it inserts a weird string of letters and numbers in the reply To: field. But it works fine for external emails, which is primarily what I will be using this macro for. Thanks again!

John

 

[Diane Poremsky]

You can use an IF statement to choose -

if instr(1, origEmail.senderemailaddress, "@") >0 then
' use sender address
replyEmail.To = origEmail.SenderEmailAddress
else
'use sender
replyEmail.To = origEmail.Sender
end if