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:     [ Jetzt bewerten ]	Views:  18.935
gadgets.hemken.org	System:  WinXP, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 49 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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