Как открыть файл Outlook .msg с жесткого диска, который НЕ находится в Outlook?

Я много раз искал эту, казалось бы, простую задачу, но все ссылки, с которыми я сталкиваюсь, либо сохраняются на жесткий диск, либо читаются из папки 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

Этот вопрос выглядело похоже, но предназначалось для C #, поэтому у меня возникли проблемы с получением эквивалента vba, связанного с моей проблемой. Может быть, это будет очевидно для кого-то более знакомого с outlook vba.


outlook vba mailitem outlook-2013
person user2868501    schedule 15.10.2013    source источник

Ответы (1)


arrow_upward
9
arrow_downward

См. Здесь 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

Не только для файлов .oft

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

Изменить - я все время забываю об OpenSharedItem. http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx

person niton    schedule 17.10.2013