Outlook Exchange Visual Basic Help

[Danielle Davis]

I am using the below information to auto-forward my work emails to my BB via a gmail account. The script works fine.

BUT my work email ask's for every email to send either classifield or unclassified.

What and where would I add into the below script to autoforward UNCLASSIFIED???

*I have written some VBA script to do this *bypass the server's disabling of auto-forward". Basically it mimics the user forwarding the email rather than the server doing an auto-forward. It's pretty simple:

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "[e-mail]"
myFwd.Send
Set myFwd = Nothing
End Sub
It's beyond the scope of this post to give detailed instructions, but here's a summary: 1.Add the above code in the Visual Basic editor of Outlook (Alt-F11 should get your started). Be sure to change [e-mail] to the address where you want the mail to go 2.Tell Outlook to run this code for each inbound message (Tools -> Rules and Alerts -> New Rule -> Check Messages when they arrive -> Next -> YES -> Checkbox "Run a Script" -> Then select the script you just created. Now Outlook should automatically forward each email you receive, but it won't be blocked by the Admin as an "Auto-forward".*

Any suggestion's greatly appreciated :)