Forward Email to include Senders email address in the body
 

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 = "
FwdItem.HTMLBody = "Please whitelist the following" & vbCrLf &
FwdItem.HTMLBody
FwdItem.Send
End Sub

Thanks!
LDMueller