excel - 将 .msg 格式的电子邮件信息（包括 Subject、Sender、CC、Receiver、SentDate 等）导入 Excel 单元格

Question

我是VBA的新手。如果有人可以为我的任务提供 Excel 或 Outlook VBA 脚本，我将不胜感激。

中的任务比较简单。我在一个文件夹中有 4000 多个 .msg 格式的文件（outlook 电子邮件）。我想提取某些电子邮件信息（主题、发件人、抄送、收件人、发送日期）并将这些信息导入到 Excel 单元格中，例如：

Subject  Sender   CC     Receiver    SentTime   SentDate

Re:..     Mike   Jane    Tom     12:00:00    23 Jan 2013

我能想到的唯一方法是一个一个打开这些.msg文件并将这些信息复制并粘贴到excel中。显然，鉴于文件数量巨大，这是不现实的。

我在 stackflow 上看到了一些相关的 VBA 脚本，但不完全是我想要的。

score 2 · Accepted Answer

您可以使用 Outlook 对象模型及其 Namespace.OpenSharedItem 方法，也可以使用 Redemption 及其 RDOSession.GetMessageFromMsgFile 方法：

set Session = CreateObject("Redemption.RDOSession")
set Msg = Session.GetMessageFromMsgFile("c:\temp\temp.msg")
MsgBox Msg.Subject

score 0 · Accepted Answer

看起来有一些开源程序可以读取 .MSG 文件，而不仅仅是 Outlook：

选择一条消息并尝试将您想要的字段导出为更好的格式，例如 CSV，一旦有了，就应该很容易使用任何脚本语言将其应用于所有消息

2 回答 2