Visual Basic 6：读取MSG文件并提取内容

Question

我想阅读存储在文件系统上的MSG文件并执行以下操作：

• 阅读msg文件的正文。
• 打开并保存MSG文件中的附件。

是否可以使用msoutl.olb#Microsoft Outlook 10.0 Object Library？

我想避免使用Outlook Redemption v. 4.7 问题MSG Read Stackoverflow question

谢谢。

Answer 1

我相信你可以。尝试添加对Outlook 10对象库的引用，然后尝试以下代码：

Dim OL As Outlook.Application
Dim Msg As Outlook.MailItem
Set OL = New Outlook.Application
Set Msg = OL.CreateItemFromTemplate("c:\msg.msg")
' now use msg to get at the email parts
MsgBox Msg.Subject
Set OL = Nothing
Set Msg = Nothing

我无法保证您的Outlook.MailItem对象（msg）的任何方法或属性，但请试一试并查看。