Outlook批量转发邮件 -VBA实现

步骤如下。（亲测可行）

1.点击 Outlook-》工具-》宏-》visual basic 编辑器

2.新建一个项目并输入如下代码并运行。

Public Sub FwdToGmail() MsgBox ("begin to forward emails") Set objApp = New Outlook.Application Set objNameSpace = Application.GetNamespace("MAPI") Set objMAPIFolder = objNameSpace.GetDefaultFolder(olFolderInbox) For Each objMailItem In objMAPIFolder.Items Set objFwdItem = objMailItem.Forward objFwdItem.Recipients.Add ("youremail@163.com") objFwdItem.Recipients.Add ("youremail@gmail.com") objFwdItem.Send Next Set objMailItem = Nothing MsgBox ("forward end!") End Sub

 

 

注意事项：如果outlook关闭后，再次启动运行改vba代码，会提示宏被禁用！

解决方法：关闭Outlook，重新启动，等待一会，Outlook会弹出提示框提示

该Outlook里面包含一个宏，此时需要开启该宏，然后进去步骤1。就可以执行了。

。