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