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

我到处寻找这个看似简单的任务，但我遇到的所有参考资料要么保存到硬盘，要么从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

Dim inPath作为字符串
将此文件设置为字符串
Dim msg作为邮件项
作为对象的Dim-OlApp
设置OlApp=CreateObject（“Outlook.Application”）
inPath=“C:\temp”
thisFile=Dir（inPath&“\*.msg”）
执行此文件“”时的操作
'此时，此文件包含.msg的路径，如“C:\temp\mail\u item1.msg”
'msg=请参见此处

不仅仅是.oft文件

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

编辑-我总是忘记OpenSharedItem

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