OutlookにないハードドライブからOutlookの.msgファイルを開くにはどうすればよいですか？

Question

私はこの一見単純な作業のために最高と最低を検索しましたが、私が遭遇するすべての参照は、ハードドライブに保存するか、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に精通している方には明らかでしょう。

Answer 1

編集

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

だけではなく、.OFTファイルはこちら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 

を参照してください - 私はOpenSharedItem忘れておきます。 http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx