2013-10-15 12 views
5

Ho cercato in alto e in basso per questo compito apparentemente semplice, ma tutti i riferimenti che ho trovato sono sia salvando sul disco rigido che leggendo da una cartella di Outlook.Come posso aprire un file .msg di Outlook dal mio hard disk NON in Outlook?

Ho il seguente codice che scorre i nomi dei file in una cartella sul mio disco rigido, ma non so come prendere quel percorso e aprirlo con 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 guardato simile, ma era per C#, così ho avuto qualche difficoltà a trovare il VBA equivalente relative al mio problema. Forse sarà ovvio per qualcuno più familiare con Outlook VBA.

risposta