Wie öffne ich eine Outlook .msg-Datei von meiner Festplatte, die NICHT in Outlook ist?

Question

Ich habe hoch und niedrig für diese scheinbar einfache Aufgabe gesucht, aber alle Referenzen, die ich finde, sind entweder auf der Festplatte speichern oder aus einem Outlook-Ordner lesen.

Ich habe den folgenden Code, der Dateinamen in einem Ordner auf meiner Festplatte durchläuft, aber ich weiß nicht, wie man diesen Pfad nimmt und es mit Outlook öffnet.

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 sahen ähnlich, aber für C# war, so hatte ich einige Mühe, den vba äquivalent zu meinem Problem im Zusammenhang zu bekommen. Vielleicht ist es für jemanden, der mit Outlook vba vertrauter ist, offensichtlich.

Answer 1

Siehe hier 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 

Nicht nur für OFT-Dateien

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

Bearbeiten - ich vergesse immer wieder, über OpenSharedItem. http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx