Forward selected mail

[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

 

[Guest]

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