[求助]outlook自动转发功能吗？

welcpa

如当收到a。com的邮件，自动转发到b。com？？

请高手们解答？

Fennyhao

需要利用Outlook的NewMail事件来完成：

（1）执行菜单栏中的【工具】|【宏】|【Visual Basic编辑器】命令，打开Visual Basic编辑器。

（2）在ThisOutlookSession对象中输入如下代码：

Private Sub Application_NewMail()

 Dim mymailitem As MailItem

 Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast
 '获取最后一封邮件

 Do

mymailitem.Forward                     '转发

mymailitem.To = fennyhao@123.com     '转发的目的邮箱，可以修改为您需要转发的地址

mymailitem.Send                        '发送

 Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast
  '获取下一个邮件

 Loop Until mymailitem.UnRead = False    '直到所有未读邮件被转发完为止

End Sub

alanlu

2楼的真是高手啊, 叹为观止!

welcpa

[em17][em17][em17]

aaaaabbbbb

用工具中的“规则和通知”应该可以实现，不用编程。

awbac08

2楼真是不多见的“初级”啊，佩服

c1188

当输入邮件地址回车后出现“编译错误：缺少：语句结束”。请问如何解决。

bian1124

正好找这个,路过学习了.