最近想要批量转发OUTLOOK中的邮件到另一个邮箱,上网搜了很久,终于找到简单快捷的方法了,和大家分享一下:
工具->宏->VB编辑器
在打开的窗口的工程上右击->插入->模块(module)
在代码窗口输入以下宏 (这是OUTLOOK MVP编写的一段宏,简洁实用)
Sub ForwardSelectedMessages()
On Error Resume Next
Dim objItem As Object
Dim objForward As Outlook.MailItem
For Each objItem In ActiveExplorer.Selection
If objItem.Class = olMail Then
Set objForward = objItem.Forward
objForward.To = "user@domain.com"
objForward.Send
Set objItem = Nothing
Set objForward = Nothing
End If
Next
Set objItem = Nothing
Set objForward = Nothing
End Sub
将以上的user@domain.com改为你想要转发到的邮箱,然后在邮件窗口选中你想要一次性转发的邮件(可以结合ctrl和shift进行多选),再次点击
工具->宏 在弹出的窗口中选中ForwardSelectedMessages并点击运行即可。