Forward selected mail

  • Thread starter Thread starter Eugene
  • Start date Start date
E

Eugene

Hi all

I get a lot of spam mail at work. They want us to forward it to a
specified mailbox on the exch server.

Is there any code I can use to automatically forward the selected mail
items (by adding a macro button to my toolbar) to the specified
mailbox on the server. Otherwise I have to manually open the messages
and forward each and every one. aaaaaaahhh!

Your help would be GREATLY appreciated.

Thanks
Eugene
 
You could use the macro below. Note that this will trigger the Outlook Object Model Guard (see http://www.outlookcode.com/d/sec.htm for more details).

Sub ForwardSelectedEmails()
Dim objItem As Object
Dim objReply As Outlook.MailItem

For Each objItem In ActiveExplorer.Selection
Set objReply = objItem.Forward
objReply.Recipients.Add "(e-mail address removed)"
objReply.Send
Next
End Sub
 
Back
Top