L
LDMueller
With the help of this awesome site, I've created the following code. The
only part which I can't figure out is how to insert the email address of the
sender in the
"Senders Email Address Here" area.
Sub Whitelist()
On Error Resume Next
Set ThisItem = Application.ActiveInspector.CurrentItem
Set fwdItem = ThisItem.Forward
fwdItem.To = "lmueller@company.com"
fwdItem.subject = "Whitelist"
fwdItem.HTMLBody = "<p>Please whitelist the following:</p><p></p>" &
vbCrLf & _
"Senders Email Address Here" & _
vbCrLf & fwdItem.HTMLBody
fwdItem.Send
End Sub
Can anyone help me?
Thanks so much in advance!
LDMueller
only part which I can't figure out is how to insert the email address of the
sender in the
"Senders Email Address Here" area.
Sub Whitelist()
On Error Resume Next
Set ThisItem = Application.ActiveInspector.CurrentItem
Set fwdItem = ThisItem.Forward
fwdItem.To = "lmueller@company.com"
fwdItem.subject = "Whitelist"
fwdItem.HTMLBody = "<p>Please whitelist the following:</p><p></p>" &
vbCrLf & _
"Senders Email Address Here" & _
vbCrLf & fwdItem.HTMLBody
fwdItem.Send
End Sub
Can anyone help me?
Thanks so much in advance!
LDMueller