将.msg格式的电子邮件信息（包括主题、发件人、抄送、收件人、发送日期等）导入excel单元格
我是VBA的新手。如果有人能为我的任务提供Excel或Outlook VBA脚本，我将不胜感激 这项任务相对简单。我在一个文件夹中有4000多个.msg格式的文件（outlook电子邮件）。我想提取某些电子邮件信息（主题、发件人、抄送、收件人、发送日期）并将这些信息导入excel单元格，如：将.msg格式的电子邮件信息（包括主题、发件人、抄送、收件人、发送日期等）导入excel单元格,excel,vba,email,outlook,Excel,Vba,Email,Outlook,我是VBA的新手。如果有人能为我的任务提供Excel或Outlook VBA脚本，我将不胜感激 这项任务相对简单。我在一个文件夹中有4000多个.msg格式的文件（outlook电子邮件）。我想提取某些电子邮件信息（主题、发件人、抄送、收件人、发送日期）并将这些信息导入excel单元格，如： Subject Sender CC Receiver SentTime SentDate Re:.. Mike Jane Tom 12:00:00
Subject Sender CC Receiver SentTime SentDate
Re:.. Mike Jane Tom 12:00:00 23 Jan 2013
我在stackflow上看到了一些相关的VBA脚本，但并不完全符合我的要求。似乎有一些开源程序可以读取.MSG文件，而不仅仅是Outlook：
选择一条消息，并尝试将您想要的字段导出为更好的格式，如CSV，一旦有了它，使用任何脚本语言批量将其应用于所有邮件都应该很容易，您可以使用Outlook对象模型及其名称空间.OpenSharedItem方法，也可以使用Redemption及其RDOSession.GetMessageFromMsgFile方法：
set Session = CreateObject("Redemption.RDOSession")
set Msg = Session.GetMessageFromMsgFile("c:\temp\temp.msg")
MsgBox Msg.Subject
如果有人能为我的任务提供Excel或Outlook VBA脚本，我将不胜感激。