使用 Excel VBA 将 Outlook 发送的项目复制到 Windows 文件夹答案

【问题标题】：Copy Outlook sent item to Windows folder using Excel VBA使用 Excel VBA 将 Outlook 发送的项目复制到 Windows 文件夹
【发布时间】：2017-01-10 20:58:50
【问题描述】：

我正在创建一个从 Excel 启动的 VBA 宏，以使用 Excel 文件中的变量创建外发邮件。

发送后，我们要求将邮件复制到网络目录而不是公共邮件文件（例如“R:\Site Reports*****”）。

我在 Outlook 中看到了几个宏线程，这些线程允许将邮件复制到 Outlook 中的公用文件夹。我看不到任何基于 Excel 的宏可以在 Outlook 之外复制邮件。

【问题讨论】：

如果您引用 Outlook 对象模型并获得 Outlook.Application 实例，那么无论您使用的是 Outlook 还是 Excel，都没有太大区别。

标签： excel vba email outlook

【解决方案1】：

您需要先将邮件项目保存到磁盘，然后使用FileInfo.MoveTo 方法将其移动到网络共享，该方法将指定文件移动到新位置，提供指定新文件名的选项。

MailItem.SaveAs 方法将 Microsoft Outlook 项目保存到指定路径，并以指定文件类型的格式保存。如果未指定文件类型，则使用 MSG 格式（.msg）。

您可以处理 Items 类的 ItemAdd 事件，当将一个或多个项目添加到指定集合时会触发该事件。因此，您可以跟踪项目何时添加到“已发送项目”文件夹（即已发送）。

最后，您可能会发现 Automating Outlook from Other Office Applications 文章很有帮助。

【讨论】：