用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环境下测试通过，如果各位有谁实现不了，请留言。