<\/p>\n
In den vorherigen Teilen dieser Beitragsreihe haben wir den Aufbau einiger Funktionen eines Ticketsystems beschrieben. Es fehlt noch der letzte Feinschliff: Wir wollen die erneuten Antworten von Kunden auf unsere als Antwort versendeten E-Mails automatisch in die Ticketverwaltung aufnehmen. Bevor wir das im nächsten Teil erledigen können, haben wir in diesem Teil noch einige Feinheiten ergänzt und werfen außerdem noch einmal einen zusammenfassenden Blick über die bisher programmierten Funktionen und die Inbetriebnahme der Ticketverwaltung inklusive der Einrichtung in Outlook. Außerdem fügen wir noch einen Dialog zur Verwaltung der Optionen der Lösung hinzu.<\/b><\/p>\nEinrichtung des Ticketsystems<\/h2>\n
Um das Ticketsystem einzurichten, benötigen Sie zunächst die Access-Datenbank aus dem Download zu diesem Beitrag namens Ticketsystem.accdb<\/b>. Außerdem sind kleine Anpassungen an Outlook erforderlich, genau genommen am VBA-Projekt von Outlook.<\/p>\nEinrichtung in Outlook<\/h2>\n
Es gibt einen kurzen und einen etwas umständlicheren Weg, die für das Ticketsystem nötigen Elemente in Outlook zu integrieren. Dabei brauchen wir einige Module. Diese können Sie einzeln zum aktuellen VBA-Projekt von Outlook hinzufügen. Das bietet sich an, wenn Sie bereits Änderungen am VBA-Projekt von Outlook vorgenommen haben. Wenn Sie jedoch eine jungfräuliche Instanz von Outlook nutzen, können Sie auch das komplette VBA-Projekt austauschen gegen das aus dem Download zu diesem Beitrag.<\/p>\n
Wenn Sie das komplette VBA-Projekt für die Ticketverwaltung nutzen wollen, gehen Sie wie folgt vor:<\/p>\n
Wenn Sie Outlook starten und dann die Tastenkombination Alt + F11 <\/b>drücken, öffnet sich der VBA-Editor von Outlook. In diesem finden Sie, wenn der Projekt-Explorer geöffnet ist, ein Projekt mit einem Unterordner Microsoft Outlook Objekte<\/b>. Dieser Ordner stellt das Klassenmodul This-OutlookSession <\/b>bereit. In diesem legen Sie eine neue Prozedur an, die wie in Bild 1 aussieht. Das erledigen Sie am einfachsten, indem Sie aus dem linken Kombinationsfeld des Codefensters den Eintrag Application <\/b>und aus dem rechten Startup <\/b>auswählen.<\/p>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_001.png\")
<\/p>\n
Bild 1: Anlegen der Prozedur, die beim Start von Outlook ausgelöst wird<\/span><\/b><\/p>\n Die einzige Anweisung dieser Prozedur soll eine weitere Prozedur namens Application_Startup_Ticketverwaltung <\/b>aufrufen. Diese haben wir der Zip-Datei mit den Beispieldateien unter dem Namen mdlTicketverwaltung.bas <\/b>untergebracht. Kopieren Sie dieses Modul aus der Zip-Datei mit den Beispieldateien in das VBA-Projekt von Outlook, damit die Prozedur Application_Startup_Ticketverwaltung<\/b> beim Start von Outlook aufgerufen werden kann.<\/p>\n Sie benötigen noch weitere Module im VBA-Projekt von Outlook, und zwar mdlTicketverwaltung.bas, mdlTicketverwaltung_Folders.bas<\/b>, mdlTicketverwaltung_Global.bas <\/b>und mdlTicketverwaltung_Outlook.bas<\/b>.<\/p>\n Schließlich benötigen Sie noch das Klassenmodul clsFolderArchiv.cls<\/b>, das Sie in der Zip-Datei mit den Beispieldateien finden. Sie können dieses ebenso wie die anderen Module einfach aus dem Windows Explorer in den Projekt-Explorer des VBA-Editors von Outlook ziehen.<\/p>\n Im VBA-Editor stellen Sie nun noch zwei Verweise ein, und zwar für die Bibliotheken Microsoft Access 16.0 Object Library <\/b>und Microsoft Office 16.0 Access Database Engine Object Library<\/b>.<\/p>\n Danach können Sie Outlook einmal neu starten. Es erscheint dann direkt der Dateiauswahl-Dialog namens Datenbankpfad auswählen<\/b>. Hier wählen Sie die Datenbank Ticketsystem.accdb <\/b>aus.<\/p>\n Wenn Sie Outlook nun starten, wird die Ereignismethode Application_Startup <\/b>ausgelöst. Diese ruft die Prozedur Application_Startup_Ticketverwaltung <\/b>auf, die mit der Funktion DatenbankpfadHolen <\/b>prüft, ob der Pfad zur Datenbank bereits in einer UserProperty innerhalb von Outlook gespeichert ist – und ob die angegebene Datei vorhanden ist. Falls nicht, erscheint ein Dateiauswahl-Dialog, mit dem der Benutzer die Datei Ticketsystem.accdb <\/b>auswählen kann (siehe Bild 2). In diesem Fall wird der Pfad zur Ticketmanager-Datenbank in der UserProperty <\/b>gespeichert, wo er beim nächsten Start von Outlook wieder ausgelesen werden kann.<\/p>\n Bild 2: Auswählen der Datei Ticketsystem.accdb<\/span><\/b><\/p>\n Die Prozedur Application_Startup_Ticketverwaltung <\/b>öffnet nun die Datenbank und liest den Inhalt der Tabelle tblOptionen <\/b>ein, die wir weiter unten noch beschreiben.<\/p>\n Die Tabelle enthält im Wesentlichen Informationen darüber, welche Verzeichnisse in Outlook zum Sammeln der Kunden-E-Mails zur Bearbeitung im Ticketsystem verwendet werden sollen.<\/p>\n Hier sind beim ersten Aufruf in der Regel noch keine Outlook-Verzeichnisse festgelegt und somit auch noch keine Datensätze in der Tabelle tblOptionen<\/b>. Dementsprechend bietet die Prozedur dem Benutzer nun die Möglichkeit, einen Outlook-Ordner auszuwählen und diesen zur Tabelle tblOptionen <\/b>hinzuzufügen. Damit der Benutzer weiß, was auf ihn zukommt, erscheint nun zunächst die Meldung aus Bild 5.<\/p>\n Bild 3: Hinweis auf das anstehende Auswählen eines Verzeichnisses in Outlook<\/span><\/b><\/p>\n Anschließend erscheint der Dialog Ordner auswählen<\/b> von Outlook. Dieser zeigt alle in Outlook verfügbaren Ordner an. Wir wählen hier den dafür vorbereiteten Ordner Ticketsystem<\/b> aus (siehe Bild 3). Danach wird Outlook wie gewohnt gestartet und auch bei nachfolgenden Startvorgängen müssen die Informationen nicht erneut eingegeben werden.<\/p>\n Bild 4: Auswahl des zu trackenden Outlook-Ordners<\/span><\/b><\/p>\n Sollten Sie den Ordner für die E-Mails für die Ticketverwaltung noch nicht angelegt haben, können Sie das nachträglich erledigen – und zwar direkt im Dialog Ordner auswählen <\/b>von Outlook. Dazu klicken Sie dort auf die Schaltfläche Neu… <\/b>und legen dann mit dem Dialog aus Bild 4 einen neuen Outlook-Ordner für E-Mails an.<\/p>\n Bild 5: Anlegen eines neuen Ordners in Outlook<\/span><\/b><\/p>\n Es kann sein, dass Sie den Ordner in Outlook umbenennen oder das der Wert des Feldes Verzeichnis in der Tabelle tblOptionen <\/b>so geändert werden, dass beide nicht mehr übereinstimmen. In diesem Fall findet die Prozedur Application_Startup_Ticketverwaltung <\/b>den Outlook-Ordner nicht und zeigt die Meldung aus Bild 6 an.<\/p>\n Bild 6: Es fehlt ein Ordner, der vom Ticketsystem getrackt werden soll.<\/span><\/b><\/p>\n Diese Funktion war in der ersten Version der Prozedur Application_Startup_Ticketverwaltung <\/b>noch nicht enthalten. Die erweiterte Version finden Sie in Listing 1.<\/p>\n <\/p>\n Listing 1: Die Prozedur Application_Startup_Ticketverwaltung<\/span><\/b><\/p>\n Zur Erinnerung: Die Prozedur ermittelt zunächst über die Funktion DatenbankpfadHolen <\/b>den aktuell in einer UserProperty <\/b>in Outlook gespeicherten Pfad der Datenbank, also in unserem Fall der Datei Ticketverwaltung.accdb<\/b>. Wenn dies eine leere Zeichenkette liefert, wird eine Meldung angezeigt, dass die Verbindung zur Ticket-verwaltung nicht hergestellt werden konnte und die Prozedur beendet.<\/p>\n Anderenfalls füllt die Prozedur eine Database<\/b>-Variable mit einem Verweis auf die angegebene Datenbank, und zwar über die OpenDatabase<\/b>-Methode. Dann öffnet sie ein Recordset auf Basis der Tabelle tblOptionen<\/b> und referenziert dieses mit der Variablen rst<\/b>.<\/p>\n Die Tabelle enthält keinen, einen oder mehrere Einträge mit Angabe von Outlook-Verzeichnissen, in die der Benutzer Kunden-E-Mails verschieben kann, damit auf ihrer Basis ein Ticket in der Ticketverwaltung angelegt wird. Hier prüft die Prozedur zunächst, ob überhaupt ein Datensatz vorliebt (rst.EOF<\/b>).<\/p>\n Ist das der Fall, erscheint die Meldung, dass nun ein Outlook-Verzeichnis ausgewählt werden kann, das als Auffangbehälter für die Kunden-E-Mails dienen soll. Dieses Verzeichnis wird dann mit dem über die PickFolder<\/b>-Methode geöffneten Dialog Ordner auswählen <\/b>selektiert. Hat der Benutzer einen Ordner ausgewählt, wird ein neuer Datensatz in der Tabelle tblOptionen <\/b>angelegt und mit dem Verzeichnisnamen aus Outlook gefüllt. Außerdem wird das Folder<\/b>-Objekt der Collection aus colFolders <\/b>hinzugefügt.<\/p>\n Sollte rst.EOF <\/b>den Wert False <\/b>zurückliefern, enthält die Tabelle tblOptionen <\/b>mindestens einen Datensatz. In diesem Fall durchläuft die Prozedur in einer Do While<\/b>-Schleife alle Einträge der Tabelle und versucht jeweils über die Funktion GetFolderByPath <\/b>ein Folder<\/b>-Objekt auf Basis der Pfadangabe zu erhalten – also etwa über \\OutlookPosteingangTicketsystem<\/b>. Eingebettet sind diese Anweisungen in das Erstellen eines neuen Objekts auf Basis der Klasse clsFolderArchiv<\/b>, dem das Folder<\/b>-Objekt und die Datenbank als Eigenschaften zugewiesen werden. Diese Klasse enthält die Automatismen, die dafür sorgen, dass eine in ein damit referenziertes Folder<\/b>-Objekt eingefügten Mails automatisch in die Ticketverwaltungs-Datenbank eingetragen und auf spezielle Art markiert werden – nämlich durch Voranstellen der Zeichenfolge [Ticket x]<\/b>, wobei x <\/b>der Nummer des Datensatzes entspricht.<\/p>\n Kann kein Folder<\/b>-Objekt zu diesem Verzeichnis gefunden werden, erscheint die Meldung, dass der Outlook-Ordner nicht vorhanden ist und dass der Benutzer einen neuen Ordner auswählen soll. Dies geschieht dann wiederum über den Dialog Ordner auswählen<\/b>.<\/p>\n Der so ausgewählte Ordner wird dann in das Feld Verzeichnis <\/b>des aktuellen Datensatzes eingetragen. Außerdem werden auch hier das Folder<\/b>-Objekt und die Referenz auf die Datenbank in ein neu erstelltes Objekt des Typs clsFolderArchiv <\/b>eingetragen. Dieser Vorgang kann auch für mehr als einen Outlook-Ordner erfolgen, sofern dieser in der Tabelle tblOptionen <\/b>eingetragen ist. Hier werden dann auch noch weitere Eigenschaften zum neu erstellten Objekt objFolderArchiv <\/b>hinzugefügt, die in der nachfolgend beschriebenen Tabelle tblOptionen <\/b>gespeichert werden.<\/p>\n Sollte das Feld Rekursiv <\/b>des Datensatzes der Tabelle tblOptionen <\/b>den Wert True <\/b>aufweisen, ruft die Prozedur noch die Routine UnterordnerInstanzieren <\/b>auf, welche alle unterhalb des angegebenen Outlook-Verzeichnisses enthaltenen Verzeichnisse mit jeweils einem clsFolderArchiv<\/b>-Objekt referenziert und zur Auflistung colFolders <\/b>hinzufügt.<\/p>\n Noch nicht im Detail beschrieben wurde die Tabelle tblOptionen<\/b>. Diese ist wie in Bild 7 aufgebaut und enthält mehr Optionen als nur die Einstellung der Folder aus Outlook, aus denen die E-Mails der Kunden eingelesen werden sollen.<\/p>\n Bild 7: Entwurf der Tabelle tblOptionen<\/span><\/b><\/p>\n Die Felder haben folgende Bedeutung:<\/p>\n Der soeben beim ersten Öffnen von Outlook mit den implementierten Funktionen unserer Lösung angelegte Datensatz sieht etwa wie in Bild 8 aus. Auch wenn theoretisch die Möglichkeit besteht, hier mehrere Ordner anzugeben, wollen wir nur diesen einen verwenden.<\/p>\n Bild 8: Beispieldatensatz in der Tabelle tblOptionen<\/span><\/b><\/p>\n Sie haben ja immerhin die Möglichkeit, die Option Rekursiv <\/b>auf True <\/b>einzustellen und damit auch die untergeordneten Ordner des in Verzeichnis angegebenen Outlook-Ordners einzulesen.<\/p>\n Mit der bisherigen Vorgehensweise zum Festlegen des Outlook-Ordners beim ersten Öffnen von Outlook nach dem Hinzufügen des neuen Outlook-VBA-Projekts beziehungsweise kann der Benutzer nur das Outlook-Verzeichnis angeben, aber keine weiteren Parameter. Er kann also beispielsweise nicht festlegen, dass die untergeordneten Verzeichnisse auch noch eingelesen werden sollen.<\/p>\n Also stellen wir dem Benutzer noch einen Dialog zum Verwalten der Optionen zur Verfügung. Diesen bilden wir mit einem Formular ab, das wir frmOptionen <\/b>nennen. Für das Formular legen wir die Tabelle tblOptionen <\/b>als Datensatzquelle fest. Auch wenn die Tabelle mehr als ein Verzeichnis aufnehmen und auch die in Outlook vorgesehenen Prozeduren mehrere Verzeichnisse für Leseranfragen verwalten könnte, wollen wir uns auf ein Verzeichnis beschränken – der Benutzer kann ja aktivieren, dass Unterverzeichnisse berücksichtigt werden.<\/p>\n Deshalb stellen wir die Eigenschaft Zyklus <\/b>auf Aktueller Datensatz <\/b>ein und entfernen durch Einstellen der Eigenschaft Navigationsschaltflächen <\/b>auf den Wert Nein <\/b>die Steuer-elemente, mit denen der Benutzer andere Datensätze ansteuern könnte. Außerdem legen wir noch für die Eigenschaften Datensatzmarkierer<\/b>, Bildlaufleisten <\/b>und Trennlinien <\/b>auf Nein <\/b>ein und Automatisch zentrieren <\/b>auf Ja<\/b>.<\/p>\n Schließlich fügen wir noch eine Schaltfläche neben dem Textfeld für das Feld Verzeichnis <\/b>ein und eine OK<\/b>-Schaltfläche. Das Ergebnis sieht dann wie in Bild 9 aus.<\/p>\n Bild 9: Dialog zum Verwalten der Optionen<\/span><\/b><\/p>\n Wenn der Benutzer auf die Schaltfläche cmdOutlookordner <\/b>klickt, soll der Dialog zum Auswählen eines Outlook-Ordners erscheinen. Das erreichen wir durch den Aufruf der Funktion GetFolder<\/b>, deren Ergebnis wir in Form der Eigenschaft FolderPath <\/b>in das Textfeld Verzeichnis <\/b>eintragen:<\/p>\n Die Schaltfläche cmdOK <\/b>soll den Optionen-Dialog schließen:<\/p>\n Schließlich wollen wir dem Ribbon noch eine Schaltfläche hinzufügen, damit der Benutzer den Optionen-Dialog komfortabel aufrufen kann. Dazu erweitern wir die Definition des Ribbons Main <\/b>in der Tabelle USysRibbons <\/b>wie folgt:<\/p>\n Und auch der Prozedur onAction <\/b>fügen wir einen neuen Zweig zur Select Case<\/b>-Bedingung hinzu:<\/p>\n Damit erscheint das Ribbon dann wie in Bild 10.<\/p>\n Bild 10: Neuer Ribbon-Eintrag zum Aufrufen des Optionen-Dialogs<\/span><\/b><\/p>\n Da sich die Änderungen an den Optionen erst auswirken, wenn Outlook neu gestartet wurde, zeigen wir dies dem Benutzer noch per Meldungsfenster an.<\/p>\n Dieses erscheint, wenn der Datensatz geändert wurde und der Benutzer den Dialog schließen möchte:<\/p>\n Wenn der Kunde eine E-Mail sendet, die der Benutzer in das Verzeichnis für das Ticketsystem verschiebt, wird dem Betreff das Präfix [Ticket_x] <\/b>vorangestellt. Außerdem wird ein entsprechender Datensatz in der Tabelle tblMailItems <\/b>angelegt.<\/p>\n Im Formular frmOffeneEMails <\/b>hat der Benutzer nun die Gelegenheit, aus der E-Mail ein Ticket zu erstellen. Dazu erledigt er folgende Schritte (siehe Bild 11):<\/p>\n Bild 11: Anlegen eines neuen Tickets<\/span><\/b><\/p>\n Das Formular wird dann geschlossen, sofern keine weiteren offenen Kundenanfragen vorhanden sind.<\/p>\n Dann öffnen Sie die Ticketübersicht über den entsprechenden Ribbon-Eintrag und wählen das zu bearbeitende Ticket aus (siehe Bild 12). Ein Klick auf die Schaltfläche Bearbeiten<\/b> öffnet das Ticket.<\/p>\n Bild 12: Aufrufen des neuen Tickets<\/span><\/b><\/p>\n Hier finden Sie dann vor allem die Möglichkeit, durch die Auswahl eines der Einträge des Kombinationsfeldes Neue Aktion: <\/b>auf die Anfrage des Kunden zu reagieren (siehe Bild 13). In der vorherigen Version gab es beim Erstellen einer Antwort einen Fehler, weil wir dort nicht berücksichtigt haben, dass wir zu jedem Kunden mehrere E-Mail-Adressen speichern, um von verschiedenen Adressen gesendete Leseranfragen automatisch dem entsprechenden Kunden zuordnen zu können.<\/p>\n Bild 13: Erstellen einer Antwort<\/span><\/b><\/p>\n Dies haben wir in der aktuellen Version korrigiert, indem wir eine Abfrage namens qryKundenAnredenEMail <\/b>erstellt haben und diese in der Prozedur cboNeueAktion_AfterUpdate <\/b>verwenden. Diese Prozedur ist dafür verantwortlich, die Antwort an den Kunden und gegebenenfalls weitere E-Mails zu erstellen und die enthaltenen Platzhalter mit den notwendigen Informationen zu dem Kunden und aus den E-Mail-Vorlagen zu füllen.<\/p>\n Der aus dem Kombinationsfeld Neue Aktion <\/b>gewählte Eintrag wie etwa Neue Rechnung <\/b>oder Fehlende Lieferung <\/b>wird im Formular frmAktionsgruppe<\/b> bearbeitet, wo sie einen oder mehrere Aktionstypen aus dem Formular frmAktionstyp <\/b>zusammenstellen können. Aktionstypen sind aktuell nur E-Mails, die wir dann zu Aktionsgruppen zusammenstellen.<\/p>\n Wenn Sie Änderungen am Entwurf der Ticketverwaltung vornehmen möchten, kann es sein, dass Access meldet, dass die Datenbank nicht exklusiv geöffnet ist.<\/p>\n In diesem Fall ist vermutlich gerade Outlook geöffnet und hat eine Verbindung zur Datenbank hergestellt. Sie müssen dann erst Outlook schließen und die Datenbank erneut öffnen, um Änderungen an der Datenbank vorzunehmen.<\/p>\n Wenn die Datenbank bereits geöffnet ist (in der Regel exklusiv) und Sie dann Outlook öffnen, kann es zu Fehlern kommen – zum Beispiel, wenn die Tabelle tblOptionen <\/b>gerade in der Entwurfsansicht geöffnet ist.<\/p>\n Das sollte nicht geschehen, wenn die Datenbankobjekte in der normalen Ansicht geöffnet sind, also nicht in der Entwurfsansicht.<\/p>\n Im letzten Teil der Beitragsreihe werden wir in der folgenden Ausgabe von Access im Unternehmen <\/b>das Formular frmTicket <\/b>vervollständigen.<\/p>\n Hier sind noch folgende Dinge zu erledigen:<\/p>\nVerweise zum VBA-Projekt von Outlook hinzufügen<\/h2>\n
Outlook starten<\/h2>\n
![\"Auswählen](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_007.png\")
<\/p>\n![\"Hinweis](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_008.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_003.png\")
<\/p>\n![\"Anlegen](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_004.png\")
<\/p>\nÄndern des Ordners in Outlook oder in der Datenbank<\/h2>\n
![\"Es](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_002.png\")
<\/p>\nPublic Sub <\/span>Application_Startup_Ticketverwaltung()\r\n Dim <\/span>db As <\/span>DAO.Database, rst As <\/span>DAO.Recordset\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder, objFolderArchiv As <\/span>clsFolderArchiv, strTicketsystemDatenbank As String<\/span>\r\n strTicketsystemDatenbank = DatenbankpfadHolen(\"Ticketsystem\", \"Datenbankpfad\")\r\n If <\/span>Len<\/span>(strTicketsystemDatenbank) = 0 Then<\/span>\r\n MsgBox<\/span> \"Verbindung zur Ticketdatenbank konnte nicht hergestellt werden.\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n Set<\/span> db = DBEngine.OpenDatabase(strTicketsystemDatenbank, , True<\/span>)\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblOptionen\", dbOpenDynaset)\r\n Set<\/span> colFolders = New<\/span> Collection\r\n If <\/span>rst.EOF Then<\/span>\r\n MsgBox<\/span> \"Sie können nun ein Verzeichnis in Outlook auswählen, dessen E-Mails automatisch in das \" _\r\n & \"Ticketsystem eingelesen werden.\"\r\n Set<\/span> objFolderArchiv = New<\/span> clsFolderArchiv\r\n With<\/span> objFolderArchiv\r\n Set<\/span> objFolder = Outlook.GetNamespace(\"MAPI\").PickFolder\r\n If <\/span>Not<\/span> objFolder Is Nothing Then<\/span>\r\n rst.AddNew<\/span>\r\n rst!Verzeichnis = objFolder.FolderPath\r\n rst.Update\r\n Set<\/span> .Folder = objFolder\r\n Set<\/span> .Database = db\r\n colFolders.Add objFolderArchiv\r\n End If<\/span>\r\n End With<\/span>\r\n Else<\/span>\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> objFolderArchiv = New<\/span> clsFolderArchiv\r\n With<\/span> objFolderArchiv\r\n Set<\/span> objFolder = GetFolderByPath(rst!Verzeichnis)\r\n If <\/span>objFolder Is Nothing Then<\/span>\r\n MsgBox<\/span> \"Der in der Export-Datenbank ''\" & strTicketsystemDatenbank & \"'' angegebene Outlook-Ordner ''\" _\r\n & rst!Verzeichnis & \"'' ist nicht in Outlook vorhanden. Wählen Sie diesen nun erneut aus.\"\r\n Set<\/span> objFolder = Outlook.GetNamespace(\"MAPI\").PickFolder\r\n rst.Edit\r\n Verzeichnis = objFolder.FolderPath\r\n rst.Update\r\n End If<\/span>\r\n Set<\/span> .Folder = objFolder\r\n .AnlagenSpeichern = rst!AnlagenSpeichern\r\n Set<\/span> .Database = db\r\n .NeuEinlesen = rst!NeuEinlesen\r\n .Groesse = Nz(rst!Groesse)\r\n End With<\/span>\r\n colFolders.Add objFolderArchiv\r\n If <\/span>rst!Rekursiv Then<\/span>\r\n UnterordnerInstanzieren objFolder, db, Nz(rst!Groesse), rst!NeuEinlesen, rst!AnlagenSpeichern, colFolders\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDie Tabelle tblOptionen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_005.png\")
<\/p>\n\n
![\"Beispieldatensatz](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_006.png\")
<\/p>\nFormular zum Verwalten der Optionen<\/h2>\n
![\"Dialog](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_010.png\")
<\/p>\nPrivate Sub <\/span>cmdOutlookordner_Click()\r\n Me!Verzeichnis = GetFolder.FolderPath\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\n<customUI ... onLoad=\"OnLoad_Main\" loadImage=\"loadImage\">\r\n <ribbon startFromScratch=\"true\">\r\n <tabs>\r\n <tab id=\"tabMails\" label=\"TICKETSYSTEM\">\r\n <group id=\"grpOptionen\" label=\"Optionen\">\r\n <button image=\"tools\" label=\"Optionen\" \r\n id=\"btnOptionen\" onAction=\"onAction\" \r\n size=\"large\"\/>\r\n <\/group>\r\n <\/tab>\r\n <\/tabs>\r\n <\/ribbon>\r\n ...\r\n<\/customUI><\/pre>\n
Sub <\/span>onAction(Control As <\/span>IRibbonControl)\r\n ...\r\n Select Case Control.ID\r\n ...\r\n Case <\/span>\"btnOptionen\"\r\n DoCmd.OpenForm \"frmOptionen\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Neuer](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_009.png\")
<\/p>\nPrivate Sub <\/span>Form_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>Me.Dirty Then<\/span>\r\n MsgBox<\/span> \"Wenn Sie Änderungen vorgenommen haben, müssen Sie Outlook neu starten, damit diese wirksam werden.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAntworten des Kunden erfassen<\/h2>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_011.png\")
<\/p>\n\n
![\"Aufrufen](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_012.png\")
<\/p>\n![\"Erstellen](\"..\/fileadmin\/_temp_\/2019_05\/pic_1209_013.png\")
<\/p>\nÄnderungen an der Datenbank<\/h2>\n
Outlook öffnen, wenn die Datenbank geöffnet ist<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n