Outlook - manuelle Ordnerauswahl

Geschrieben von admin am 6. Januar 2010 | Abgelegt unter Veröffentlichungen

Tipp vom 18.11.2005

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

 

Sie können hier bei vbarchiv.net für mich voten!

Tags: , , , ,

Keine Kommentare »

Trackback URI | Kommentare als RSS

Einen Kommentar schreiben

Du musst angemeldet sein, um einen Kommentar zu schreiben.