Jak otworzyć plik outlook .msg z mojego dysku twardego, który NIE jest w programie Outlook?

Question

Szukałem wysokiego i niskiego dla tego pozornie prostego zadania, ale wszystkie odnośniki, które napotykam, są albo zapisywane na dysku twardym, albo czytające z folderu programu Outlook.

Mam następujący kod, który wykonuje pętle poprzez nazwy plików w folderze na dysku twardym, ale nie wiem, jak go użyć i otworzyć go z perspektywy.

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 wyglądał podobnie, ale był dla C#, więc miałem pewne problemy z uzyskaniem równowartość vba związane z moim problemem. Być może stanie się to oczywiste dla kogoś bardziej zaznajomionego z programem outlook vba.

Answer 1

Zobacz tutaj 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 

Nie tylko dla plików .oft

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

EDIT - Ciągle zapominam o OpenSharedItem. http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx