Forward Email to include Senders email address in the body

L

LDMueller

With the help of what I've found at this wonderful site I created the
following code which works well.

The only part I'm missing which I can't seem to figure out is how I can
include the email address of the original sender the message.

I want the ending result to be like this...

Please whitelist the following
"Email Address of original sender"

Original email

Here's my code. I'm just missing the "Email Address of original Sender" part.

Sub Whitelist()
On Error Resume Next
Set ThisItem = Application.ActiveInspector.CurrentItem
Set FwdItem = ThisItem.Forward
FwdItem.To = "(e-mail address removed)"
FwdItem.HTMLBody = "Please whitelist the following" & vbCrLf &
FwdItem.HTMLBody
FwdItem.Send
End Sub

Thanks!
LDMueller
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Forward Email and Insert Sender's Email address in body 3
forwarding appointments? 0
Forwarding Appointment 1
macro to forward 8
Keep original senders email address as hyperlink when forwarding 1
Forward Emails to External Email Address (Exchange/Outlook) 2
Senders email address in saved attachment 1
How to set the Email address in the To field with MailOpen Event 4

Top