Rubrik: COM/OLE/Registry/DLL · Automation | VB-Versionen: VB5, VB6 | 18.11.05 |
Dieser Tipp zeigt Ihnen, wie Sie manuell aus einem VB-Projekt, einen Ordner in Outlook öffnen, ohne vorher diese Ordnerstruktur zu kennen.
Um die Funktionalitäten von Outlook zu benutzen, müssen Sie zuvor die Microsoft Outlook Object Library einbinden.
Quellcode:
Private Function PickOutlookFolder()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As MAPIFolder
' Outlook initialisieren
Set myolApp = CreateObject("Outlook.Application")
' Namespace initialisieren
Set myNamespace = myolApp.GetNamespace("MAPI")
' Folder per Ordnerauswahl setzen
Set myFolder = myNamespace.PickFolder
' On Error Resume Next ist wichtig, da es
' sonst einen Absturz des Programms gibt
On Error Resume Next
If myFolder = 0 Then
' Error: Betätigung des Abbruch-Button, oder bei fehlender
' Bechtigung auf Zugriff des ausgewählten Ordners
' Verlassen der Funktion
Exit Function
End If
' Öffnet Outlook und zeigt den Inhalt des ausgewählten Ordners an
myFolder.Display
End Function