<\/p>\n
![\"Anzeige](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_001.png\")
<\/p>\n
Bild 1: Anzeige der Ordner in Outlook<\/span><\/b><\/p>\n Im Beitrag „Outlook-Folder in Access anzeigen“ liefern wir die Grundlagen zur Anzeige von Outlook-Ordnern in Access-Formularen. Dabei haben wir die einzelnen Outlook-Ordner in einem einfachen Listenfeld zur Auswahl angeboten. Im Beitrag „E-Mails verwalten mit dem Outlook View Control“ wollen wir dies ein wenig professioneller gestalten und die Outlook-Ordner in einem TreeView-Steuerelement anzeigen. Wie das gelingt, erfahren Sie im vorliegenden Beitrag.<\/b><\/p>\n Das TreeView<\/b>-Steuerelement, in dem wir die Outlook-Ordner in der gleichen hierarchischen Anordnung anzeigen wollen wie im entsprechenden Bereich von Outlook, soll die Auswahl eines der Ordner ermöglichen. Der Inhalt dieses Ordners soll in einem Outlook View Control <\/b>erscheinen. Unter Outlook sieht die hierarchische Anzeige wie in Bild 1 aus.<\/p>\n Bild 1: Anzeige der Ordner in Outlook<\/span><\/b><\/p>\n Für den Anfang wollen wir uns dabei bezüglich der Icons damit begnügen, für jeden Ordner das gleiche Icon anzuzeigen, nämlich ein einfaches Ordner-Icon.<\/p>\n Außerdem wollen wir nur die Ordner anzeigen, die einen bestimmten Typ von Elementen enthalten. In diesem Fall sind das die Ordner, die typischerweise E-Mails enthalten. Wie Sie diese Ordner von den anderen unterschieden, erläutern wir weiter unten.<\/p>\n Welche Schritte sind für die Umsetzung unseres Vorhanbens nötig Zunächst benötigen wir einige Steuerelemente:<\/p>\n Außerdem benötigen wir VBA-Code, der beim Laden des Formulars ausgelöst wird und der die betreffenden Ordner aus Outlook einliest und entsprechende Einträge im TreeView<\/b>-Steuerelement anlegt.<\/p>\n Die beiden benötigten Steuerelemente fügen Sie der Entwurfsansicht eines neuen Formulars namens frmEMailDetails<\/b> hinzu, indem Sie über den Ribbon-Eintrag Entwurf|Steuerelemente|ActiveX-Steuerelemente <\/b>den Dialog Ac-tiveX-Steu-er-ele-ment ein-fügen <\/b>öffnen. Hier wählen Sie als Erstes das Steuerelement Microsoft TreeView Control, version 6.0 <\/b>aus und klicken OK<\/b> (siehe Bild 2).<\/p>\n Bild 2: Hinzufügen der ActiveX-Steuerelemente<\/span><\/b><\/p>\n Danach führen Sie den gleichen Vorgang für das Steuerelement Microsoft ImageList Control, version 6.0 <\/b>aus.<\/p>\n Legen Sie für dieses Steuerelement den Namen ctlImageList <\/b>fest und für das TreeView<\/b>-Steuerelement den Namen ctlTreeView<\/b>. Ziehen Sie das TreeView<\/b>-Steuerelement so auf, dass es sich am linken Rand des Formulars befindet (siehe Bild 3).<\/p>\n Bild 3: Die beiden neuen Steuerelemente im Formular<\/span><\/b><\/p>\n Danach fügen wir das zunächst zu verwendende Icon zum ImageList<\/b>-Steuerelement hinzu. Dazu klicken Sie doppelt auf das Steuerelement und erhalten den Dialog Eigenschaften von ImageListCtrl<\/b>. Hier stellen Sie die Bildgröße auf der Registerseite General <\/b>auf 16 x 16 <\/b>ein (siehe Bild 4).<\/p>\n Bild 4: Festlegen der Icon-Größe<\/span><\/b><\/p>\n Danach wechseln Sie auf die Registerseite Images <\/b>und klicken dort auf die Schaltfläche Insert Picture…<\/b>, was einen Dateiauswahl<\/b>-Dialog öffnet.<\/p>\n Hier fügen Sie nacheinander zwei Icons ein, die einen geschlossenen und einen geöffneten Ordner anzeigen (siehe Bild 5). Für diese beiden Elemente legen Sie im Feld Key <\/b>die Schlüssel folder_closed <\/b>und folder_open <\/b>fest.<\/p>\n Bild 5: Hinzufügen und benennen der Icons<\/span><\/b><\/p>\n Danach nehmen wir die Einstellungen für das TreeView<\/b>-Steuerelement vor. Das erledigen wir in der Regel per VBA, weil sich so ein Satz von Einstellungen recht leicht von einer Lösung zur nächsten übertragen lässt – das geht schneller, als wenn Sie die Einstellungen jedes Mal erneut im Eigenschaften-Fenster erledigen.<\/p>\n Die Einstellungen nehmen wir in einer eigenen Prozedur vor, die wir InitializeTreeView <\/b>nennen. Diese rufen wir in der Ereignisprozedur auf, die beim Laden des Formulars ausgelöst wird:<\/p>\n Die Prozedur InitializeTreeView<\/b> sieht wie folgt aus:<\/p>\n Sie füllt zunächst die Variable objTreeView <\/b>mit einem Verweis auf das TreeView<\/b>-Steuerelement. Dann stellt sie einige Eigenschaften für das so referenzierte TreeView<\/b>-Steuerelement ein. Appearance <\/b>gibt an, ob es in einer 3D-Ansicht oder flach angezeigt werden soll.<\/p>\n Mit BorderStyle <\/b>legen wir fest, dass kein Rahmen erscheinen soll – wenn, dann definieren wir diesen über die Steuerelementeigenschaften des Containers für das ActiveX-Steuerelement. Mit Font <\/b>referenzieren wir das Font<\/b>-Objekt, mit dessen Eigenschaften Name <\/b>und Size <\/b>wir die Schriftart und die Schriftgröße einstellen.<\/p>\n Den Standardeinzug reduzieren wir mit der Eigenschaft Indentation <\/b>auf den Wert 200 <\/b>(standardmäßig 567<\/b>). Die Eigenschaft ImageList <\/b>legt das zu verwendende ImageList<\/b>-Steuerelement fest, aus dem die Icons für die TreeView<\/b>-Elemente bezogen werden. Hier müssen wir wie beim TreeView<\/b>-Steuerelement mit Object <\/b>auf das im ActiveX-Container enthaltene Steuerelement zugreifen. LineStyle <\/b>gibt mit dem Wert tvwRootLines <\/b>an, dass wir schon für die Root-Elemente Linien und somit auch Plus\/Minus-Zeichen anzeigen wollen. Und mit Style <\/b>und dem Wert tvwTreelinesPlusMinusPictureText <\/b>bestimmen wir, dass Linien, Plus\/Minus-Zeichen, Icons und Text für die einzelnen Elemente angezeigt werden sollen – also das komplette Programm.<\/p>\n Schließlich leeren wir die Nodes<\/b>-Auflistung des Steuerelements, damit eventuell bei einer früheren Anzeige noch verbliebene Elemente verschwinden und rufen die Prozedur FillTreeView <\/b>auf, der wir den Verweis auf das zu füllende TreeView<\/b>-Steuerelement übergeben. Nachdem dies geschehen ist, wollen wir noch den Eingeklappt\/Ausgeklappt-Zustand der Elemente wiederherstellen, der vor dem letzten Schließen des Formulars Bestand hatte. Das erledigen wir mit der Prozedur ExpandTreeViewNodes<\/b>, dem wir ebenfalls einen Verweis auf das TreeView<\/b>-Steuerelement übergeben.<\/p>\n Die Prozedur FillTreeView <\/b>nimmt mit dem Parameter objTreeView <\/b>einen Verweis auf das zu füllende TreeView<\/b>-Steuerelement entgegen (siehe Listing 1). Sie referenziert eine neue oder die aktive Outlook-Instanz mit der Variablen objOutlook <\/b>und weist der Variablen objNamespace <\/b>dann mit der GetNamespace<\/b>-Methode den MAPI-Namespace zu. Anschließend durchläuft sie alle Folder<\/b>-Objekte, die direkt im MAPI-Namespace enthalten sind. Typischerweise sind das Ordner wie Outlook oder solche, welche nach der E-Mail-Adresse benannt sind, für die eine eigene .pst<\/b>-Datei angelegt wurde. Diese Folder<\/b>-Objekte durchläuft die Prozedur in einer For Each<\/b>-Schleife, wobei sie das jeweilige Objekt mit der Variablen objFolder <\/b>referenziert.<\/p>\n Listing 1: TreeView-Steuerelement füllen<\/span><\/b><\/p>\n Innerhalb der Schleife prüft die Prozedur den Typ der standardmäßig in diesem Ordner enthaltenen Elemente. Die mit der Eigenschaft DefaultItemType <\/b>ermittelte Einstellung soll in diesem Fall olMailItem <\/b>lauten, da wir nur die Mailordner anzeigen wollen.<\/p>\n <\/p>\n Handelt es sich um einen Ordner für E-Mails, legt die Prozedur für diesen ein neues Node<\/b>-Element im TreeView<\/b>-Steuerelement an und referenziert dieses mit der Variablen objNode<\/b>. Das Anlegen erledigen wir mit der Add<\/b>-Methode der Nodes<\/b>-Auflistung des Steuerelements. Dieser übergeben wir für den dritten Parameter den Wert der Eigenschaft FolderPath <\/b>des Ordners, also beispielsweise \/\/Outlook<\/b>. Dieser Parameter nimmt den Wert für die Eigenschaft Key <\/b>auf. Über den Schlüssel legen wir einen eindeutigen Bezeichner für jedes Element im TreeView<\/b>-Steuerelement fest. Daher eignet sich der Wert der Eigenschaft FolderPath <\/b>ausgezeichnet – dieser ist für jeden Ordner in Outlook eindeutig. Der vierte Parameter legt den Wert der Eigenschaft Name <\/b>fest. Hier übergeben wir auch den Namen des jeweiligen Ordners. Der fünfte Parameter schließlich erwartet die Angabe des Schlüssels für das für dieses Element anzuzeigende Icon aus dem ImageList<\/b>-Steuerelement. Dieses soll für alle Elemente zunächst folder_closed <\/b>lauten.<\/p>\n Damit füllen wir allerdings zunächst nur die oberste Ebene des TreeView<\/b>-Steuerelements. Um die darunter liegenden Ebenen kümmern wir uns in einer weiteren Prozedur namens FillNode_Rek<\/b>. Diese ist, wie der Name schon andeutet, eine rekursiv definierte Prozedur, die sich selbst aufruft. Der Prozedur übergeben wir Verweise auf das TreeView<\/b>-Steuerelement, auf das soeben angelegte Node-Element sowie auf den Ordner, für den das Node-Element angelegt wurde.<\/p>\n Auf diese Weise durchlaufen wir alle Elemente der ersten Ebene des MAPI-Namespace, die MailItem<\/b>-Elemente enthalten.<\/p>\n Die Prozedur FillNode_Rek <\/b>ist eine rekursiv definierte Prozedur, die folgende Parameter erwartet:<\/p>\n Sie finden die Prozedur in Listing 2.<\/p>\n Listing 2: Unterelemente des TreeView-Steuerelements füllen<\/span><\/b><\/p>\n Die Prozedur definiert noch Elemente der Typen Outlook.Folder <\/b>und MSComctlLib.Node<\/b>, welche zum Durchlaufen der Unterordner des mit objParentFolder <\/b>übergebenen Ordners und zum Anlegen der neuen Node<\/b>-Elemente dienen.<\/p>\n In einer For Each<\/b>-Schleife durchläuft die Prozedur alle Folder<\/b>-Objekte des mit objParentFolder <\/b>gelieferten Ordners. Darin prüft die Prozedur wieder, ob es sich bei dem Unterordner um einen E-Mail-Ordner handelt. Ist das der Fall, legt sie ein neues Element für diesen Ordner unterhalb des mit objParentNode <\/b>übergebenen Node<\/b>-Elements an. Dabei verwendet sie wieder die Add<\/b>-Methode der Nodes<\/b>-Auflistung des TreeView<\/b>-Steuerelements aus objTreeView<\/b>. Diesmal werden auch die ersten beiden Parameter der Add<\/b>-Methode verwendet.<\/p>\n Der erste nimmt den Key<\/b>-Wert des Node<\/b>-Elements entgegen, zu dem das neue Element in einer bestimmten Relation angelegt werden soll (hier mit objParentFolder.FolderPath<\/b> angegeben – wir hätten auch objParentNode.Key <\/b>verwenden können). Diese Relation geben wir mit dem zweiten Parameter der Add<\/b>-Methode an. Da das neue Element dem mit objParentNode <\/b>angegebenen Element untergeordnet werden soll, stellen wir den zweiten Parameter auf den Wert tvwChild <\/b>ein.<\/p>\n Der dritte Parameter legt wieder den Key<\/b>-Wert für das neue Element fest, den wir wieder mit objFolder.FolderPath <\/b>ermitteln. Dem vierten Parameter übergeben wir den Namen des Ordners (objFolder.Name<\/b>) und dem fünften wieder das anzuzeigende Icon mit folder_closed<\/b>.<\/p>\n Nachdem wir das neue Element auf diese Weise angelegt haben, rufen wir für dieses gleich wieder die FillNode_Rek<\/b>-Prozedur auf, um eventuell darunter befindliche E-Mail-Ordner in Form von Einträgen im TreeView<\/b>-Steuerelement hinzuzufügen.<\/p>\n Nachdem auf diese Weise alle Elemente durchlaufen und die Unterelemente aller Ebenen in Form von Node<\/b>-Elementen zum TreeView<\/b>-Steuerelement hinzugefügt wurden, erhalten wir beispielsweise die Ansicht aus Bild 6.<\/p>\n Bild 6: TreeView-Steuerelement mit Outlook-Ordnern<\/span><\/b><\/p>\n Weiter oben haben wir für das ImageList<\/b>-Steuerelement gleich zwei Ordner-Icons hinterlegt – eines mit einem geschlossenen und eines mit einem geöffneten Ordner. Hier finden wir jedoch bisher nur das Icon mit dem geschlossenen Ordner vor. Für Ordner, deren Untereinträge angezeigt werden, wollen wir jedoch das Icon mit dem geöffneten Ordner anzeigen.<\/p>\n Das können wir schnell realisieren, indem wir zwei Ereignisprozeduren anlegen, die beim Ein- und Ausklappen eines Node<\/b>-Elements ausgelöst werden. Um Ereignisprozeduren für ein ActiveX-Steuerelement zu implementieren, wählen Sie im VBA-Editor im Code-Fenster des Klassenmoduls des entsprechenden Formulars im linken Kombinationsfeld den Namen des TreeView<\/b>-Steuerelements aus. Im rechten Kombinationsfeld finden Sie dann alle Ereignisse für dieses Steuerelement vor, unter anderem auch die beiden Ereignisse Collapse <\/b>und Expand<\/b>. Wählen Sie diese aus, legt der VBA-Editor automatisch leere Ereignisprozeduren für diese Ereignisse an (siehe Bild 7).<\/p>\n Bild 7: Anlegen von Ereignisprozeduren für das TreeView-Steuerelement<\/span><\/b><\/p>\n Damit das TreeView<\/b>-Steuerelement beim Ein- und Ausklappen das jeweils gewünschte Icon anzeigt, brauchen Sie nur jeweils eine Anweisung zu den beiden Ereignisprozeduren hinzuzufügen. Damit weisen Sie der Eigenschaft Image <\/b>des mit dem Parameter Node <\/b>gelieferten Node<\/b>-Elements den Namen des anzuzeigenden Icons zu, also folder_closed <\/b>oder folder_open<\/b>:<\/p>\n Damit erhalten wir dann die als geöffnet angezeigten Ordner wie in Bild 8.<\/p>\n Bild 8: Geöffnete Ordner mit eigenen Icons<\/span><\/b><\/p>\n Wenn der Benutzer das Formular nun schließt und es wieder öffnet, werden allerdings wieder nur die Elemente der obersten Ebene angezeigt – wenn er einen bestimmten untergeordneten Ordner sehen möchte, muss er sich erst wieder durch die Hierarchie klicken.<\/p>\n Wir möchten aber erreichen, dass der Zustand der Eigenschaft Expanded <\/b>nach dem Schließen und erneuten Öffnen des Formulars wiederhergestellt wird. Dazu brauchen wir eine Möglichkeit, diesen Zustand zu speichern. Meistens stammen die Daten, die in einem TreeView<\/b>-Steuerelement angezeigt werden, aus einer oder mehreren hierarchisch verknüpften Tabellen einer Access-Datenbank. In diesem Fall kann man die jeweiligen Tabellen mit einem Feld ergänzen, das den Expanded<\/b>-Zustand der Elemente direkt in der Tabelle speichert. Dann kann man diesen beim erneuten Füllen des TreeView<\/b>-Steuerelements direkt auslesen und die Expanded<\/b>-Eigenschaft direkt einstellen sowie das richtige Icon für das Element festlegen.<\/p>\n In unserem Fall stammen die Daten aber nicht aus Access-Tabellen, sondern aus einer externen Anwendung. Wir benötigen also eine alternative Möglichkeit, um die Daten über den Expanded<\/b>-Zustand zu speichern. Dazu legen wir eine neue Tabelle an, die wir tblExpandedTreeViewNodes <\/b>nennen. Darin wollen wir nicht einfach alle Elemente des TreeView<\/b>-Steuerelements speichern und in einem Ja\/Nein<\/b>-Feld angeben, welche davon aktuell als Expanded <\/b>markiert sind. Stattdessen wollen wir einfach nur die Felder dort in je einem Datensatz speichern, die aktuell als Expanded <\/b>markiert sind. Wir benötigen also nur ein Primärschlüsselfeld sowie ein Feld, welches eine eindeutige Bezeichnung des ausgeklappten Ordners aufnehmen soll. Dazu bietet sich der Wert der Eigenschaft Key <\/b>des Node<\/b>-Elements an, der auch dem Wert der Eigenschaft FolderPath <\/b>des Folder<\/b>-Objekts aus Outlook entspricht.<\/p>\n Der Entwurf dieser Tabelle sieht wie in Bild 9 aus. Wichtig ist hier insbesondere, dass wir für das Feld ExpandedTreeViewNodeKey <\/b>einen eindeutigen Index festlegen. Dazu stellen Sie die Eigenschaft Indiziert <\/b>für dieses Feld auf den Wert Ja (Ohne Duplikate) <\/b>fest. Den Grund erläutern wir weiter unten.<\/p>\n Bild 9: Tabelle zum Speichern des Expanded-Zustands von Folder-Elementen<\/span><\/b><\/p>\n Damit beim Ausklappen eines Elements ein Eintrag in der Tabelle tblExpandedTreeViewNodes <\/b>angelegt wird, erweitern wir die Ereignisprozedur, die durch das Ausklappen eines Elements ausgelöst wird, wie in Listing 3.<\/p>\n Listing 3: Aktionen beim Ausklappen eines Node-Elements<\/span><\/b><\/p>\n Hier erstellen wir einen Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank und speichern diesen in der Variable db<\/b>. Dann stellen wir wie gehabt das anzuzeigende Icon des ausgeklappten Node<\/b>-Elements mit der Eigenschaft Image <\/b>auf folder_open <\/b>ein.<\/p>\n Dann deaktivieren wir die eingebaute Fehlerbehandlung, denn nun folgt eine Anweisung, die eventuell einen Fehler auslösen könnte: Wir fügen der Tabelle tblExpandedTreeViewNodes <\/b>einen neuen Eintrag hinzu, der im Feld ExpandedTreeViewNodeKey <\/b>den Wert der Eigenschaft Key <\/b>des ausgeklappten Node<\/b>-Elements erhält.<\/p>\n Sollte bereits ein Datensatz mit diesem Wert vorhanden sein, löst dies den Fehler 3022 <\/b>aus, weil der eindeutige Index verletzt wird, wenn Sie diesen Wert erneut einfügen. Dadurch, das wir die Fehlerbehandlung deaktivieren, wird dieser Fehler nicht behandelt und der neue Datensatz schlicht nicht angelegt.<\/p>\n Nachdem wir auf diese Weise einige Ordner geöffnet haben, sieht die Tabelle tblExpandedTreeViewNodes <\/b>beispielsweise wie in Bild 10 aus.<\/p>\n Bild 10: Einträge für die geöffneten Order<\/span><\/b><\/p>\n Nun müssen wir noch dafür sorgen, dass ein Eintrag in der Tabelle tblExpandedTreeViewNodes <\/b>auch wieder entfernt wird, wenn der Benutzer den betreffenden Ordner im TreeView<\/b>-Steuerelement wieder einklappt. Dazu erweitern wir die Ereignisprozedur, die durch das Ereignis Collapse <\/b>ausgelöst wird. Dieser fügen wir ebenfalls die Anweisung zum Referenzieren des Database<\/b>-Objekts der aktuellen Datenbank zu. Die mit der Execute<\/b>-Anweisung des mit db <\/b>referenzierten Database<\/b>-Objekts ausgeführte SQL-Anweisung löscht jedoch nun einen Datensatz, und zwar den, der im Feld ExpandTreeViewNodeKey <\/b>den Wert der Eigenschaft Key <\/b>des mit dem Parameter Node <\/b>übergebenen Node<\/b>-Elements enthält. Die Prozedur behält außerdem die Anweisung, welche dem Node<\/b>-Element wieder das Icon mit dem Schlüssel folder_closed <\/b>zuweist. Die Prozedur sieht nun wie in Listing 4 aus.<\/p>\n Listing 4: Aktionen beim Einklappen eines Node-Elements<\/span><\/b><\/p>\n Bisher haben wir nur den Zustand der Node<\/b>-Elemente beim Ein- und Ausklappen erfasst und die Schlüssel der aktuell ausgeklappten Elemente in der Tabelle tblExpandedTreeViewNodes <\/b>gespeichert.<\/p>\n Nun wollen wir das TreeView<\/b>-Steuerelement noch so weitern, dass es beim Öffnen des Formulars die in der Tabelle tblExpandedTreeViewNodes <\/b>enthaltenen Node<\/b>-Elemente ausgeklappt anzeigt.<\/p>\n Die dazu verwendete Prozedur ExpandTreeViewNodes<\/b>, die wir in der bereits weiter oben beschriebenen Ereignisprozedur InitializeTreeview <\/b>aufrufen, finden Sie in Listing 5. Die Prozedur erwartet mit dem Parameter objTreeView<\/b> einen Verweis auf das zu bearbeitende TreeView<\/b>-Steuerelement.<\/p>\n Listing 5: Ausklappen der dafür vorgesehenen Node-Elemente beim Öffnen des Formulars<\/span><\/b><\/p>\n Die Prozedur erstellt eine Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank sowie ein Recordset auf Basis der Tabelle tblExpandedTreeViewNodes<\/b>. Die Einträge des mit rst <\/b>referenzierten Recordsets durchläuft die Prozedur dann in einer Do While<\/b>-Schleife. Hier schaltet sie die eingebaute Fehlerbehandlung aus und stellt dann für ein Node<\/b>-Element der Auflistung Nodes<\/b>, das über den Index aus dem Tabellenfeld ExpandedTreeViewNodeKey <\/b>referenziert werden kann, den Wert der Eigenschaft Expanded <\/b>auf True <\/b>ein.<\/p>\n Dabei kann der Fehler mit der Nummer 35601<\/b> auftreten, wenn das gesuchte Element nicht gefunden wird. Deshalb untersuchen wir in einer Select Case<\/b>-Bedingung den Wert der Fehlernummer aus Err.Number<\/b>. Hat dieser den Wert 35601<\/b>, ist also das gesuchte Element nicht vorhanden, soll der entsprechende Datensatz direkt gelöscht werden.<\/p>\n Das erledigen wir direkt mit der Delete<\/b>-Methode des Recordsets für den aktuellen Datensatz. Anderenfalls wird das aktuelle Element durch Einstellen der Expanded<\/b>-Eigenschaft nun ausgeklappt angezeigt.<\/p>\n Für die korrekte Referenzierung des Node<\/b>-Elements aus der Nodes<\/b>-Auflistung müssen Sie übrigens den Wert des Feldes ExpandedTreeViewNodeKey <\/b>nochmals explizit in einen String konvertieren.<\/p>\n<\/p>\n\n
Steuerelemente hinzufügen<\/h2>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_002.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_003.png\")
<\/p>\nIcons zu ImageList-Steuerelement hinzufügen<\/h2>\n
![\"Festlegen](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_004.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_005.png\")
<\/p>\nEinstellungen für das TreeView-Steuerelement<\/h2>\n
Private Sub <\/span>Form_Load()\r\n InitializeTreeView\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>InitializeTreeView()\r\n Dim <\/span>objTreeView As <\/span>MSComctlLib.TreeView\r\n Set<\/span> objTreeView = Me!ctlTreeView.Object\r\n With<\/span> objTreeView\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .Font.Name = \"Calibri\"\r\n .Font.Size = 9\r\n .Indentation = 200\r\n Set<\/span> .ImageList = Me!ctlImageList.Object\r\n .LineStyle = tvwRootLines\r\n .Style = tvwTreelinesPlusMinusPictureText\r\n .Nodes.Clear\r\n FillTreeView objTreeView\r\n ExpandTreeViewNodes objTreeView\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nFüllen des TreeView-Steuerelements mit den Outlook-Ordner<\/h2>\n
Private Sub <\/span>FillTreeView(objTreeView As <\/span>MSComctlLib.TreeView)\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objNamespace As <\/span>Outlook.Namespace\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Set<\/span> objOutlook = New<\/span> Outlook.Application\r\n Set<\/span> objNamespace = objOutlook.GetNamespace(\"MAPI\")\r\n For Each objFolder In objNamespace.Folders\r\n If <\/span>objFolder.DefaultItemType = olMailItem Then<\/span>\r\n Set<\/span> objNode = objTreeView.Nodes.Add(, , objFolder.FolderPath, objFolder.Name, \"folder_closed\")\r\n FillNode_Rek objTreeView, objNode, objFolder\r\n End If<\/span>\r\n Next<\/span> objFolder\r\nEnd Sub<\/span><\/pre>\nRekursives Füllen für die untergeordneten Ordner<\/h2>\n
\n
Private Sub <\/span>FillNode_Rek(objTreeView As <\/span>MSComctlLib.TreeView, objParentNode As <\/span>MSComctlLib.Node, _\r\n objParentFolder As <\/span>Outlook.Folder)\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n For Each objFolder In objParentFolder.Folders\r\n If <\/span>objFolder.DefaultItemType = olMailItem Then<\/span>\r\n Set<\/span> objNode = objTreeView.Nodes.Add(objParentFolder.FolderPath, tvwChild, objFolder.FolderPath, _\r\n objFolder.Name, \"folder_closed\")\r\n FillNode_Rek objTreeView, objNode, objFolder\r\n End If<\/span>\r\n Next<\/span> objFolder\r\nEnd Sub<\/span><\/pre>\n![\"TreeView-Steuerelement](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_006.png\")
<\/p>\nIcons für geöffnete Elemente anpassen<\/h2>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_007.png\")
<\/p>\nPrivate Sub <\/span>ctlTreeView_Collapse(ByVal Node As Object<\/span>)\r\n Node.Image = \"folder_closed\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>ctlTreeView_Expand(ByVal Node As Object<\/span>)\r\n Node.Image = \"folder_open\"\r\nEnd Sub<\/span><\/pre>\n![\"Geöffnete](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_008.png\")
<\/p>\nEingeklappt\/Ausgeklappt-Zustand der Nodes speichern<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_009.png\")
<\/p>\nAusgeklappte Elemente in die Tabelle tblExpandedTreeViewNodes eintragen<\/h2>\n
Private Sub <\/span>ctlTreeView_Expand(ByVal Node As Object<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n Node.Image = \"folder_open\"\r\n On Error Resume Next<\/span>\r\n db.Execute \"INSERT INTO tblExpandedTreeViewNodes(ExpandedTreeViewNodeKey) VALUES(''\" & Node.Key & \"'')\", dbFailOnError\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\n![\"Einträge](\"..\/fileadmin\/_temp_\/2021_02\/pic_1293_010.png\")
<\/p>\nEingeklappte Elemente aus der Tabelle tblExpandedTreeViewNodes entfernen<\/h2>\n
Private Sub <\/span>ctlTreeView_Collapse(ByVal Node As Object<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n Node.Image = \"folder_closed\"\r\n db.Execute \"DELETE FROM tblExpandedTreeViewNodes WHERE ExpandedTreeViewNodeKey = ''\" & Node.Key & \"''\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\nZustand der TreeView-Einträge beim Öffnen wiederherstellen<\/h2>\n
Private Sub <\/span>ExpandTreeViewNodes(objTreeView As <\/span>MSComctlLib.TreeView)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblExpandedTreeViewNodes\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n On Error Resume Next<\/span>\r\n objTreeView.Nodes(CStr(rst!ExpandedTreeViewNodeKey)).Expanded = True<\/span>\r\n Select Case Err.Number\r\n Case <\/span>35601\r\n rst.Delete\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler: \" & Err.Description\r\n End Select<\/span>\r\n On Error GoTo<\/span> 0\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nAnklicken eines der Ordner-Elemente<\/h2>\n