vba - 下载嵌入在 .msg 文件中的 xls 文件的脚本

Question

我的 d 驱动器上有 1000 个 .MSG 文件，每个文件都包含一个 XLS 文件，作为附件。

有没有办法使用 ssis 脚本或 vb 或 vba 从这些 .msg 文件中下载这些 xls 文件？这样我就不必打开每个 msg 文件并下载 xls 文件

Answer 1

我还有另一个解决方案，然后从 Outlook 中删除附件，然后在邮件正文中输入一个备注，将附件保存在哪里；如果您对此感兴趣，请告诉我。

但是对于您的需要，这里应该这样做：

http://www.brainre.org/outlook-vba-macro-to-save-all-attachments-of-marked-emails-include-progress-bar/

Answer 2

您可以使用 Application.CreateItemFromTemplate Outlook 对象模型函数，也可以使用 Redemption 及其 RDOSession.GetMessageFromMsgFile ( http://www.dimastr.com/redemption/rdosession.htm ) - 然后可以使用 RDOMail.Attachments 集合循环所有附件并调用 RDOAttachment.SaveAsFile。