Outlook批量转发邮件 -VBA实现

最新推荐文章于 2025-11-16 10:17:12 发布

原创最新推荐文章于 2025-11-16 10:17:12 发布 · 7.3k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#vba #basic #each #工具

杂项专栏收录该内容

6 篇文章

订阅专栏

本文介绍如何使用VBA宏实现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。就可以执行了。

。