用VBA实现OUTLOOK接收新邮件后的自动转发

OUTLOOK自带的规则虽然可以设置自动转发，但这个规则是建立在服务器上的，但有些公司为了防止机密外泄而设置了服务器自动转发限制。

解决的方法可以用OUTLOOK事件的方法来实现：

Private Sub Application_NewMail() 
    Dim myItem As Outlook.MailItem 
    Set myItem = Application.ActiveExplorer.Selection.Item(1) 
    myItem.Forward.Recipients.Add "a@b.com" 
    myItem.Send 
End Sub

 

在本人的OUTLOOK 2007环境下测试通过，如果各位有谁实现不了，请留言。