Rubrik: COM/OLE/Registry/DLL · Automation | VB-Versionen: VB5, VB6 | 18.11.05 |
Outlook - manuelle Ordnerauswahl Dieser Tipp zeigt Ihnen, wie Sie manuell aus einem VB-Projekt, einen Ordner in Outlook öffnen, ohne vorher diese Ordnerstruktur zu kennen. | ||
Autor: Dennis Hemken | Bewertung: | Views: 18.244 |
gadgets.hemken.org | System: WinXP, Win8, Win10, Win11 | Beispielprojekt auf CD |
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