![\"Verweis](\"..\/tl_files\/images\/pic_487_001.png\")
<\/a><\/p>\nBild 1: Verweis auf die Outlook-Bibliothek<\/p>\n
VBA-Zugriff auf Outlook<\/h2>\n
Wenn wir auf die Daten von Outlook zugreifen wollen, müssen wir zunächst eine Outlook-Instanz starten. Gegebenenfalls ist Outlook auch bereits geöffnet, weil Sie es über die Benutzeroberfläche gestartet haben. In diesem Fall können Sie auch auf die bestehende Outlook-Instanz zugreifen. Für den Zugriff auf die Outlook-Instanz erstellen wir uns eine kleine Funktion. Diese legt den Verweis auf die Outlook-Instanz direkt in einer Objektvariablen ab, sodass wir beim nächsten Zugriff auf Outlook innerhalb dieser Session nicht nochmal eine neue Outlook-Instanz starten oder eine vorhandene Instanz referenzieren müssen. Diese Funktion legen wir in einem Standardmodul des VBA-Projekts der Beispieldatenbank an. Die Funktion verwendet eine private Variable im gleichen Modul, in dem wir den Verweis speichern, nachdem wir diesen geholt haben:<\/p>\n
Private <\/span>m_Outlook As <\/span>Outlook.Application<\/pre>\nDie folgende Funktion heißt GetOutlook <\/b>und soll ein Objekt des Typs Outlook.Application <\/b>zurückliefern. Dazu prüft sie zunächst, ob nicht von einem vorherigen Aufruf noch eine Outlook-Instanz vorhanden ist und durch die Variable m_Outlook <\/b>referenziert wird. Dazu prüfen wir, ob m_Outlook <\/b>gleich Nothing <\/b>ist:<\/p>\nPublic Function <\/span>GetOutlook() As <\/span>Outlook.Application\r\n If <\/span>m_Outlook Is Nothing Then<\/span>\r\n Set<\/span> m_Outlook = New<\/span> Outlook.Application<\/pre>\nAnderenfalls prüfen wir bei deaktivierter Fehlerbehandlung, ob m_Outlook <\/b>tatsächlich auf eine gültige Outlook-Instanz verweist. Das finden wir ganz einfach heraus, indem wir den Inhalt der Eigenschaft Name <\/b>prüfen. Warum prüfen wir den Namen, auch wenn wir schon wissen, dass m_Outlook <\/b>nicht den Wert Nothing <\/b>enthält Weil es sein kann, dass wir mit Access eine Referenz auf eine Outlook-Instanz holen, die der Benutzer zuvor schon geöffnet hat. Wir referenzieren dann also die bereits geöffnete Outlook-Instanz. Wenn der Benutzer diese dann schließt, bekommen wir das unter VBA nicht direkt mit. Erst, wenn wir dann prüfen, ob der Zugriff auf eine der Eigenschaften, hier Name, ohne Fehler funktioniert, können wir sicher sein, dass unsere Objektvariable auf eine noch aktive Outlook-Instanz verweist. Falls das nicht der Fall ist, erstellen wir schließlich eine neue Instanz und referenzieren diese wiederum mit m_Outlook<\/b>:<\/p>\n Else<\/span>\r\n On Error Resume Next<\/span>\r\n If <\/span>Len<\/span>(m_Outlook.Name) = 0 Then<\/span>\r\n Set<\/span> m_Outlook = New<\/span> Outlook.Application\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n End If<\/span><\/pre>\nIm letzten Schritt geben wir die in m_Outlook <\/b>enthaltene Instanz als Ergebnis der Funktion zurück:<\/p>\n Set<\/span> GetOutlook = m_Outlook\r\nEnd Function<\/span><\/pre>\nWir können nun mit der folgenden Anweisung auf die Outlook-Instanz zugreifen, die wir beispielsweise im Direktbereich des VBA-Editors absetzen:<\/p>\n
GetOutlook.Name\r\nOutlook<\/pre>\nNamespace-Objekt verfügbar machen<\/h2>\n
Nachdem wir einen einfachen Zugang zu einer bestehenden oder neu erstellten Outlook-Instanz geholt haben, können wir immer noch nicht auf die Outlook-Termine zugreifen. Dazu benötigen wir das NameSpace<\/b>-Objekt, das wir über die Methode GetNameSpace <\/b>des Outlook<\/b>-Objekts holen. Auch dafür deklarieren wir eine private Variable:<\/p>\nPrivate <\/span>m_MAPINameSpace As <\/span>Outlook.NameSpace<\/pre>\nDie folgende Funktion soll ein Objekt des Typs Outlook.NameSpace <\/b>zurückliefern. Auch hier prüfen wir wieder, ob die Variable m_MAPINameSpace <\/b>nicht vo einem vorherigen Aufruf noch eine Verweis auf das MAPI-Namespace enthält. Ist das nicht der Fall, holen wir dieses erneut, indem wir mit Get-Outlook <\/b>eine Outlook-Instanz holen und dann mit GetNameSpace(„MAPI“) <\/b>das MAPI-Namespace von Outlook ermitteln:<\/p>\nPublic Function <\/span>GetMAPINamespace() As <\/span>Outlook.NameSpace\r\n If <\/span>m_MAPINamespace Is Nothing Then<\/span>\r\n Set<\/span> m_MAPINamespace = _\r\n GetOutlook.GetNamespace(\"MAPI\")\r\n End If<\/span><\/pre>\nDiesen legen wir dann als Funktionsergebnis fest:<\/p>\n
Set<\/span> GetMAPINamespace = m_MAPINamespace\r\nEnd Function<\/span><\/pre>\nBeispiel: Termin-Ordner referenzieren<\/h2>\n
Angenommen, wir wollen den Terminordner von Outlook referenzieren. Die Ordner von Outlook erhalten wir am einfachsten über die Funktion GetDefaultFolder<\/b>, für die es einige Konstanten gibt, mit denen Sie angeben, welchen Standardordner Sie holen möchten. Die folgende Vorgehensweise kennen Sie schon: Wir legen eine private Variable an, die wir dann in einer Funktion füllen und damit zur Verfügung stellen. Diesmal hat die Variable den Typ Outlook.Folder<\/b>:<\/p>\nPrivate <\/span>m_CalendarFolder As <\/span>Outlook.Folder<\/pre>\nDie Funktion prüft wieder, ob wir bereits einen Folder des Typs olFolderCalendar <\/b>referenziert haben und referenziert diesen gegebenfalls neu. Dabei verwendet sie die Funktion GetMAPINamespace<\/b>, welche die Funktion GetOutlook <\/b>nutzt. Auf diese Weise haben wir tollen wiederverwendbaren Code für unseren Zweck erzeugt:<\/p>\nPublic Function <\/span>GetCalendarFolder() As <\/span>Outlook.Folder\r\n If <\/span>m_CalendarFolder Is Nothing Then<\/span>\r\n Set<\/span> m_CalendarFolder = _\r\n GetMAPINamespace.GetDefaultFolder(olFolderCalendar)\r\n End If<\/span>\r\n Set<\/span> GetCalendarFolder = m_CalendarFolder\r\nEnd Function<\/span><\/pre>\nEs gibt übrigens die folgenden Konstanten, um mit GetDefaultFolder <\/b>auf die verschiebenen Standardordner zuzugreifen:<\/p>\n\n- olFolderCalendar <\/b>(9<\/b>)<\/li>\n
- olFolderContacts <\/b>(10<\/b>)<\/li>\n
- olFolderDeletedItems <\/b>(3<\/b>)<\/li>\n
- olFolderDrafts <\/b>(16<\/b>)<\/li>\n
- olFolderInbox <\/b>(6<\/b>)<\/li>\n
- olFolderJournal <\/b>(11<\/b>)<\/li>\n
- olFolderJunk <\/b>(23<\/b>)<\/li>\n
- olFolderNotes <\/b>(12<\/b>)<\/li>\n
- olFolderOutbox <\/b>(4<\/b>)<\/li>\n
- olFolderSentMail <\/b>(5<\/b>)<\/li>\n<\/ul>\n
Andere Kalender als den Standardkalender referenzieren<\/h2>\n
Gegebenenfalls verwenden Sie nicht den Standard-Kalender von Outlook, sondern einen anderen Kalender – beispielsweise einen iCloud-Kalender oder einen Exchange-Kalender. Diesen können Sie nicht mit der GetDefaultFolder<\/b>-Funktion referenzieren, sondern wir greifen beispielsweise über einen Dialog auf diesen Kalender zu.<\/p>\n
Auch dies verpacken wir wieder eine Funktion, die Sie in Listing 1 sehen. Wir verwenden die Variable m_CalendarFolder <\/b>von der vorherigen Funktion. Hier prüfen wir wieder, ob m_CalendarFolder<\/b> bereits gefüllt ist. Falls ja, wollen wir dem Benutzer die Wahl lassen, ob er wirklich einen neuen Ordner wählen oder den vorhandenen weiter nutzen möchte.<\/p>\nPublic Function <\/span>PickCalendarFolder() As <\/span>Outlook.Folder\r\n Dim <\/span>bolPickNewFolder As Boolean<\/span>\r\n If <\/span>Not<\/span> m_CalendarFolder Is Nothing Then<\/span>\r\n If MsgBox<\/span>(\"Aktueller Kalender: '\" & m_CalendarFolder.Name & \"'\" & vbCrLf<\/span> & \"Anderen Kalender auswählen\", vbYesNo) _\r\n = vbYes Then\r\n bolPickNewFolder = True<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n bolPickNewFolder = True<\/span>\r\n End If<\/span>\r\n If <\/span>bolPickNewFolder = True<\/span> Then<\/span>\r\n Set<\/span> m_CalendarFolder = GetMAPINamespace.PickFolder\r\n End If<\/span>\r\n Set<\/span> PickCalendarFolder = m_CalendarFolder\r\nEnd Function<\/span><\/pre>\nListing 1: Prozedur zum Auswählen eines Ordners<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t