VBA Tipp: msg-Datei mit Outlook öffnen

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte eine msg-Datei (Outlook-Mail-Datei) in Outlook öffnen.

Lösung

Das geht mit folgender Prozedur, die in einem globalen Modul hinterlegt wird.

Public Sub msgDateiÖffnen(ByVal Pfad As String)
 
 'Late Binding, kein Verweis auf Microsoft Outlook xx.x Object Library notwendig
 'Quelle: http://www.dbwiki.net/
 
 Dim objApp As Object   'Outlook.Application
 Dim objItem As Object  'Outlook.MailItem
 
 Set objApp = CreateObject("Outlook.Application")
 Set objItem = objApp.Session.OpenSharedItem(Pfad)
 
 objItem.Display
 
 Set objApp = Nothing
 Set objItem = Nothing
 
End Sub

Aufruf

 Dim strPfad As String
 
 strPfad = "C:\Users\Benutzer\Desktop\Meine EMail-Datei.msg"
 
 Call msgDateiÖffnen(strPfad)

Alternative Lösung

Eine msg-Datei kann auch mit der API-Funktion ShellExecute geöffnet werden.
Wiki-Link: Datei (Dokument) öffnen oder drucken mit ShellExecute