Forward Button

  • Thread starter Thread starter Luis
  • Start date Start date
L

Luis

Hello.
I receive some mails that i don't need to open but just
forward them to certain persons.
Is it possible to create a custom button to plçace on the
status bar that when i click on it just forward the mail
to a certain email? This cannot be done using a rule
because the subject of the mail determines the target
email and is not a standard subject.

Thanks
 
Map the following macro below to a custom button. It will forward all
selected e-mails to the address specified in the procedure. It displays the
message rather than auto-sends, but you can change this behaviour - see
inline code comments.

Sub ForwardSelectedMessages()
On Error Resume Next

Dim objItem As Object
Dim objForward As Outlook.MailItem

For Each objItem In ActiveExplorer.Selection
If objItem.Class = olMail Then
Set objForward = objItem.Forward
objForward.To = "(e-mail address removed)"
objForward.Display
'uncomment to send automatically (comment out objForward.Display
too)
'objForward.Send
Set objItem = Nothing
Set objForward = Nothing
End If
Next
End Sub
 
Back
Top