如何从不在 Outlook 中的硬盘中打开 Outlook .msg 文件？

Posted 2023-03-15

【中文标题】如何从不在 Outlook 中的硬盘中打开 Outlook .msg 文件？

【英文标题】：How do I open an outlook .msg file from my harddrive that is NOT in outlook?

【发布时间】：2013-10-23 09:06:27

【问题描述】：

我已经为这个看似简单的任务搜索了很多，但我遇到的所有参考资料要么保存到硬盘驱动器，要么从 Outlook 文件夹中读取。

我有以下代码循环遍历硬盘驱动器上文件夹中的文件名，但我不知道如何采用该路径并使用 Outlook 打开它。

Dim inPath as String
Dim thisFile as String
Dim msg as MailItem
Dim OlApp as Object
Set OlApp = CreateObject("Outlook.Application")
inPath = "C:\temp"

thisFile = Dir(inPath & "\*.msg")
Do While thisFile <> ""
    'At this point, thisFile contains the path of a .msg like "C:\temp\mail_item1.msg"
    'msg = <open mailitem> <~~~~ HELP HERE
    'Do stuff with msg

    thisFile = Dir
Loop

This question 看起来很相似，但适用于 C#，所以我在获取与我的问题相关的 vba 等效项时遇到了一些麻烦。也许对更熟悉 Outlook vba 的人来说这很明显。

【参考方案1】：

请看这里http://msdn.microsoft.com/en-us/library/office/ff865637.aspx

Sub CreateFromTemplate() 
 Dim MyItem As Outlook.MailItem 
 Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft") 
 MyItem.Display 
End Sub 

不仅仅适用于 .oft 文件

Set MyItem = Application.CreateItemFromTemplate("C:\temp\mail_item1.msg")

编辑 - 我一直忘记 OpenSharedItem。 http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx