vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: COM/OLE/Registry/DLL · Automation   |   VB-Versionen: VB5, VB618.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 HemkenBewertung:     [ Jetzt bewerten ]Views:  18.245 
gadgets.hemken.orgSystem:  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