![\"Die](\"..\/tl_files\/images\/olsecurity.PNG\")
<\/a><\/p>\nBild 1: Die Sicherheitseinstellungen von Outlook beim Zugriff über Automation<\/p>\n
Outlook-Application<\/h2>\n
Alle Elemente von Outlook erreichen Sie über dessen Application<\/b>-Objekt. Sie erzeugen eine neue Instanz des Objekts, das die Outlook-Anwendung wiederspiegelt, am besten über diese Funktion:<\/p>\n Dabei spielt es keine Rolle, ob Outlook bereits geöffnet ist. Denn Outlook lässt ja auch manuell keine mehrfachen Anwendungsinstanzen zu. CreateObject<\/b> führt damit bei bereits geöffnetem Outlook zum gleichen Resultat, wie GetObject<\/b>.<\/p>\n über die Variable objOL<\/b> können Sie sich nun daran machen, alle Aspekte der Anwendung zu inspizieren. Möglicherweise benötigen SIe die Variable auch in anderen Prozeduren, und dann macht es Sinn, für sie eine Hilfsfunktion zu erstellen, wie in Listing 1. Auf erneute Instanziierungen der Objektvariablen in Ihren Routinen können Sie nun verzichten, indem Sie einfach die Funktion OLApp<\/b> abrufen, die ihrerseits auf die im Modulkopf definierte Variable m_OL<\/b> zugreift.<\/p>\n Listing 1: Genereller Zugriff auf eine Outlook-Instanz über die Hilfsfunktion OLApp<\/p>\n War Outlook noch nicht offen, so startet die Routine eine neue Instanz der Anwendung. Davon bekommen Sie zunächst allerdings nichts mit, denn die Visible<\/b>-Eigenschaft von Application<\/b> steht auf False<\/b>. Lediglich das Outlook-Symbol im Infobereich der Taskleiste weist Sie auf den Start hin.<\/p>\n Nun möchten Sie im Prinzip nicht die Anwendung fernsteuern, sondern E-Mails auslesen. Dazu begeben Sie sich eine Ebene tiefer auf die MAPI<\/b>-Umgebung, welche für den E-Mail-Verkehr zuständig ist:<\/p>\n Dieser Namespace<\/b> erlaubt nun die Navigation durch die Ordner und deren Inhalte von Outlook.<\/p>\n Wie der Windows-Explorer auch, gestattet Outlook die Einrichtung von beliebig verschachtelten Ordnern und Unterordnern. Um die Analogie weiter zu treiben: Gibt es unter Windows verschiedene Laufwerke, so kann es unter Outlook auch mehrere PST<\/b>-Dateien geben, die in die Anwendung eingeklinkt wurden und die dann jeweils die oberste Ebene der Ordnerstruktur einnehmen. Unterhalb dieser finden die eigentlichen Verzeichnisse ihren Platz.<\/p>\n Der Zugriff auf die Ordner geschieht über die Folders<\/b>-Auflistung des Namespace<\/b> MAPI<\/b>. Sie kann komfortabel in einer For-Each<\/b>-Schleife enumeriert werden:<\/p>\n Als Ergebnis erhalten Sie hier einen Liste der verwendeten PST<\/b>-Dateien über deren Ordnernamen.<\/p>\n Jeder Folder enthält seinerseits eine Folders-Auflistung für die möglichen Unterordner:<\/p>\n Hier wir zusätzlich zum Namen auch die Anzahl an Unterordnern ausgegeben, die die PST-Dateien aufweisen.<\/p>\n Bevor es an den weiteren programmatischen Zugriff auf die Outlook-Objekte geht, machen wir uns Gedanken über die Tabellenstruktur, in welche die Outlook-Ordner und die E-Mails importiert werden sollen. Am einfachsten ist das anhand des Beziehungsfensters der Beispieldatenbank (siehe Bild 3) erklärt.<\/p>\n Bild 2: Das Datenmodell der Beispieldatenbank enthält nur drei verknüpfte Tabellen<\/p>\n Die Tabelle tblStores<\/b> nimmt Informationen zu den PST<\/b>-Dateien auf. Es macht Sinn, die Hauptordner dieser Dateien in eine eigene Tabelle zu speichern, um diese von den eigentlichen Verzeichnisstrukturen abzugrenzen. Neben dem Primärschlüssel ID<\/b> (Autowert) steht in FolderName<\/b> der Name der PST<\/b>-Datei, der häufig etwa Standard<\/b> lautet. File<\/b> speichert den physischen Dateipfad zur PST<\/b>-Datei, während Path<\/b> den logischen Verzeichnispfad innerhalb Outlook wiederspiegelt. Bild 2 zeigt einige Beispiele. EntryID<\/b> ist ein Zeichenausdruck, der den Store<\/b>, ähnlich wie ein Schlüssel, eindeutig in Outlook kennzeichnet. Auf den ersten Blick sieht diese ID<\/b> ähnlich aus, wie eine GUID<\/b>, ist jedoch 48 Zeichen lang. Anhand dieser EntryIDs<\/b> kann ein bestimmtes Element in Outlook später immer wieder gefunden werden, auch wenn es verschoben wird. Die überschaubare Routine GetStorageFolders<\/b> in Listing 2 zeigt, wie die Tabelle gefüllt wird.<\/p>\n Bild 3: Die Tabelle tblStores speichert diverse Informationen zu den PST-Dateien, die Outlook verwendet<\/p>\n Zunächst werden über die Execute<\/b>-Anweisung alle Datensätze aus der Tabelle gelöscht. Da im Datenmodell für die verknüpfte Tabelle tblMailFolders<\/b>, die die zu den PST<\/b>-Dateien gehörigen Ordner enthält, referenziell Löschweitergabe<\/b> eingestellt ist, werden automatisch auch aus dieser alle Daten entfernt. Dasselbe gilt übrigens auch für den Inhalt der weiter verknüpften Tabelle tblMails<\/b>, die die E-Mail-Informationen speichert.<\/p>\n Dann werden alle Hauptordner das Namespace MAPI<\/b> in einer For-Each<\/b>-Schleife durchlaufen. Der Schleifenzähler oFld<\/b> ist ein Objekt des Typs Outlook.Folder<\/b>.<\/p>\n Da er im Folgenden mehrmals benötigt wird, ist auf ihn ein With<\/b>-Block gesetzt. Wichtig ist die If<\/b>-Bedingung, welche abfragt, ob es sich beim Ordnertyp um einen E-Mail-Container handelt.<\/p>\n Das ist in der Regel dann der Fall, wenn seine Eigenschaft DefaultItemType<\/b> den Wert olMailItem<\/b> aufweist. Allerdings garantiert das noch nicht, dass nicht auch andere Elemente in ihm landen könnten – die Ordner sind im Prinzip recht unspezifisch. Trifft die Bedingung zu, so wird ein neuer Datensatz über das Recordset<\/b> rs<\/b> in der Tabelle tblStores<\/b> angelegt.<\/p>\n Der Outlook-Pfad ergibt sich aus der Eigenschaft FolderPath<\/b>. Auf den Dateipfad<\/b> kann indessen nur indirekt zugegriffen werden. Das Eigenschaftsobjekt Store<\/b> des Folders<\/b> hat die Methode FilePath<\/b>, die erst die PST<\/b>-Datei hergibt. Die Tabelle speichert also im Wesentlichen direkt Eigenschaften des Folder<\/b>-Objekts. Die zweite Tabelle im Modell, tblMailFolders<\/b>, verweist über das Fremdschlüsselfeld IDStore<\/b> auf einen Datensatz in der PST<\/b>-Tabelle tblStores<\/b>. In der Tabelle werden in flacher Hierarchie sämtliche vorkommenden Outlook-Ordner aufgelistet. Bild 4 zeigt, die das funktioniert.<\/p>\n Bild 4: Die Tabelle tblMailFolders speichert alle Outlook-Ordner aller verwendeten PST-Dateien in rekursiver Anordnung<\/p>\n Im Feld Folder<\/b> steht jeweils der Name des Ordners, in Path<\/b> dessen Outlook-Pfad. Darin gleichen diese Informationen denen der Tabelle tblStores<\/b>. Auch die EntryID<\/b> zur eindeutigen Identifizierung des Ordners fehlt hier nicht. Zusätzlich gibt es nun aber eine Spalte ParentID<\/b>, die die Datensätze rekursive voneinander abhängig macht.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Dim <\/span>objOL As <\/span>Outlook.Application\r\nSet<\/span> objOL = CreateObject( _\r\n \"Outlook.Application\")<\/pre>\nPublic <\/span>m_OL As <\/span>Outlook.Application\r\nFunction <\/span>OLApp() As <\/span>Outlook.Application\r\n If <\/span>m_OL Is Nothing Then<\/span> Set<\/span> m_OL = CreateObject(\"Outlook.Application\")\r\n Set<\/span> OLApp = m_OL\r\nEnd Function<\/span><\/pre>\nDim <\/span>objNS As <\/span>Outlook.NameSpace\r\nSet<\/span> objNS = OLApp.GetNamespace(\"MAPI\")<\/pre>\nOrdner und Unterordner<\/h2>\n
Dim <\/span>objFolder As <\/span>Outlook.Folder\r\nFor Each objFolder in objNS.Folders\r\n Debug.Print<\/span> objFolder.Name\r\nNext<\/span> objFolder<\/pre>\nFor Each objFolder in objNS.Folders\r\n Debug.Print<\/span> objFolder.Name, _\r\n objFolder.Folders.Count\r\nNext<\/span> objFolder<\/pre>\nDatenmodell<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n
\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