Script to forward e-mail to address in Subject line

[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

 

[Guest]

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

 

[mleviton]

Great, thanks Eric.