Görünümümde olmayan bir sabit diskten .msg dosyasını nasıl açabilirim?

Question

Bu görünüşte basit bir görev için yüksek ve düşük arama yaptım, ancak karşılaştığım tüm referanslar ya sabit sürücüye ya da bir outlook klasöründen okuyor.

Sabit sürücümdeki bir klasördeki dosya adları arasında dolaşan şu kodu kullanıyorum, ancak bu yolu nasıl alacağımı ve görünümü nasıl açacağımı bilmiyorum.

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

benzer baktı ama C# için, bu yüzden benim sorunla ilgili vba eşdeğer biraz sıkıntı yaşanıyor. Belki de outlook vba ile daha aşina olan biri için açık olacaktır.

Answer 1

.oft dosyaları

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

Düzenleme için buraya 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 

Sadece bak - Ben OpenSharedItem hep unutuyorum. http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx