Script to forward e-mail to address in Subject line

  • Thread starter Thread starter mleviton
  • Start date Start date
M

mleviton

Is there a script I can run that will pull the e-mail address out of an
message's subject line and forward the message to that address?

Thanks for any help,
PPT
 
Run this macro from the currently open e-mail message:

Sub ForwardActiveEmail()
Dim objForward As Outlook.MailItem

If ActiveInspector.CurrentItem.Class = olmail Then
Set objForward = ActiveInspector.CurrentItem.Forward
objForward.To = ActiveInspector.CurrentItem.Subject
objForward.Display 'or .Send
End If

Set objForward = Nothing
End Sub
 
Back
Top