批量转发OUTLOOK中的邮件

最近想要批量转发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并点击运行即可。