<\/p>\n
Die Archivierungsdatenbank für Outlook-Mails kann nun schon Mails importieren und bietet eine Suchfunktion für die importierten Mails an. Außerdem können Sie die gefundenen E-Mails mit Outlook öffnen und darin wiederherstellen. Nun wollen wir die Lösung noch so erweitern, dass Sie beispielsweise mehrere Ordner in Outlook auswählen können, deren E-Mails importiert werden sollen. Außerdem soll der Import gleich beim Start der Anwendung gelingen.<\/b><\/p>\n
Die neue Version des Formulars sieht nun wie in Bild 1 aus. Das Formular enthält im Gegensatz zur vorherigen Version nun eine Liste mit mehreren Verzeichnissen, deren Detaildaten Sie durch Anklicken der Einträge im unteren Bereich anzeigen können.<\/p>\n
![\"Neue](\"..\/fileadmin\/_temp_\/2015_05\/pic_997_001.png\")
<\/p>\n
Bild 1: Neue Version des Formulars zum Einlesen der E-Mails<\/span><\/b><\/p>\n Oben finden Sie außerdem zwei Schaltflächen, mit denen Sie eine neue Konfiguration hinzufügen oder eine bestehende löschen können.<\/p>\n Der untere Bereich enthält die Detaildaten, die bereits die Version aus dem vorherigen Teil der Beitragsreihe angeboten hat. Diese Daten stammen aus der Tabelle tblOptionen<\/b>. Unten finden Sie drei Schaltflächen:<\/p>\n Das Formular frmMailImport <\/b>besteht nun zusätzlich noch aus einem Unterformular namens sfmMailImport<\/b>. Dieses ist wie in Bild 2 aufgebaut und verwendet die Tabelle tblOptionen <\/b>als Datenherkunft.<\/p>\n Bild 2: Das Unterformular sfmMailImport in der Entwurfsansicht<\/span><\/b><\/p>\n Das Hauptformular nimmt dieses Unterformular auf und verwendet zusätzlich die in Bild 3 zu erkennenden Steuerelemente. Besondere Bedeutung kommt natürlich dem Listenfeld lstVerzeichnisse <\/b>zu. Es verwendet ebenfalls eine Datensatzherkunft auf Basis der Tabelle tblOptionen<\/b>, allerdings hier in Form einer Abfrage, welche nur die beiden Felder OptionID <\/b>und Verzeichnis <\/b>berücksichtigt:<\/p>\n Bild 3: Das Formular frmMailImport in der Entwurfsansicht<\/span><\/b><\/p>\n Damit nur das Verzeichnis im Listenfeld erscheint, stellen Sie die Eigenschaft Spaltenanzahl <\/b>auf den Wert 2 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf den Wert 0cm <\/b>ein. Wenn der Benutzer auf einen der Einträge klickt, sollen dessen Details im unteren Bereich des Formulars eingeblendet werden.<\/p>\n Dies erreichen Sie mithilfe zweier Prozeduren. Die erste ist die Ereignisprozedur, die durch das Ereignis Nach Aktualisierung <\/b>des Listenfeldes ausgelöst wird (s. Listing 1).<\/p>\n Listing 1: Diese Prozedur wird nach der Auswahl eines Eintrags im Listenfeld ausgelöst.<\/span><\/b><\/p>\n Diese ruft eine weitere Prozedur namens VerzeichnisAktualisieren<\/b> auf, die Sie in Listing 2 finden. Die Prozedur prüft, ob aktuell ein Eintrag im Listenfeld markiert ist (was beispielsweise nicht der Fall ist, wenn es leer ist und der Benutzer dennoch hineinklickt) und verschiebt den Datensatzzeiger im Unterformular auf den Datensatz, dessen OptionID <\/b>dem aktuell im Listenfeld ausgewählten Eintrag entspricht.<\/p>\n Listing 2: Aktualisierung der Detaildaten zu einem Listenfeldeintrag<\/span><\/b><\/p>\n Beim Laden des Formulars soll das Listenfeld gleich den ersten Datensatz markieren, damit der Benutzer erkennen kann, zu welchem Listeneintrag die Daten aus dem Unterformular gehören. Dies erledigen wir mit der Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>ausgelöst wird und nur eine einzige Anweisung enthält:<\/p>\n Ein Klick auf die Schaltfläche cmdNeu<\/b> im oberen Bereich des Formulars soll einen neuen Datensatz in der Tabelle anlegen, der gleichzeitig im Listenfeld und im Unterformular erscheint. Dazu fragen wir das Outlook-Verzeichnis, für welches die Konfiguration bestimmt sein soll, gleich beim Anklicken der Neu<\/b>-Schaltfläche ab. Die Prozedur cmdNeu_Click<\/b> aus Listing 3, die durch das Anklicken ausgelöst wird, ermittelt zunächst den Titel des aktuell geöffneten Access-Fensters. Dies ist nötig, da beim nachfolgenden Aufrufen des Outlook-Dialogs zum Auswählen eines Outlook-Ordners gelegentlich das geöffnete Outlook-Fenster stehen bleibt und das aufrufende Access-Fenster verdeckt ist. Um das Access-Fenster anschließend wieder in den Vordergrund zu holen, benötigen wir den Fenstertitel. Diesen erhalten wir mithilfe der Funktion GetActiveWindowTitle<\/b>, die Sie im Modul mdlAPI <\/b>finden.<\/p>\n Listing 3: Prozedur zum Anlegen einer neuen Konfiguration<\/span><\/b><\/p>\n Die Funktion VerzeichnisWaehlen <\/b>haben Sie ja bereits in den vorhergehenden Teilen dieser Beitragsreihe kennen gelernt – es öffnet den Outlook-Dialog zum Auswählen eines Ordners (s. Bild 4). Danach prüft die Prozedur, ob der Benutzer einen Ordner ausgewählt hat. In diesem Fall erzeugt er eine Referenz auf das aktuelle Database<\/b>-Objekt und führt eine INSERT INTO<\/b>-Abfrage aus, welche einen neuen Datensatz in die Tabelle tblOptionen <\/b>einfügt und dabei gleich das Verzeichnis in das entsprechende Feld einträgt. Die Abfrage SELECT @@IDENTITY <\/b>ermittelt den Wert des Primärschlüsselfeldes des neu hinzugefügten Datensatzes, das Ergebnis landet in der Variablen lngOptionID<\/b>.<\/p>\n Bild 4: Auswählen des Mail-Ordners<\/span><\/b><\/p>\n Da nun ein neuer Datensatz vorliegt, müssen die Datenherkunft des Unterformulars sowie die Datensatzherkunft des Listenfeldes aktualisiert werden, was die Prozedur jeweils mit der Requery<\/b>-Methode erledigt. Danach stellt die Prozedur das Listenfeld auf den neu hinzugefügten Eintrag ein und ruft die bereits weiter oben vorgestellte Prozedur VerzeichnisAktualisieren <\/b>auf, die den aktuell im Listenfeld markierten Eintrag im Unterformular anzeigt.<\/p>\n Schließlich aktiviert die Prozedur AppActivate <\/b>das Fenster mit dem weiter oben in der Variablen strFenster <\/b>gespeicherten Titel der Access-Anwendung.<\/p>\n Ein Klick auf die Schaltfläche cmdLoeschen <\/b>im oberen Bereich des Formulars soll den aktuell markierten Eintrag im Listenfeld aus der Tabelle tblOptionen <\/b>löschen und die übrigen Steuerelemente aktualisieren, sodass der gelöschte Datensatz nirgends mehr auftaucht.<\/p>\n Die durch die Schaltfläche ausgelöste Prozedur sieht wie in Listing 4 aus und prüft zunächst, ob überhaupt ein Eintrag im Listenfeld markiert ist. Ist dies der Fall, fragt die Prozedur den Benutzer per Meldungsfenster, ob die Konfiguration mit dem angegebenen Verzeichnis tatsächlich gelöscht werden soll.<\/p>\n <\/p>\n Listing 4: Löschen einer Konfiguration<\/span><\/b><\/p>\n Falls ja, entfernt die Prozedur zunächst den entsprechenden Datensatz per DELETE<\/b>-Anweisung aus der Tabelle tblOptionen<\/b>. Anschließend aktualisiert sie den Inhalt des Listenfelds sowie des Unterformulars. Außerdem markiert sie im Listenfeld den ersten Eintrag und sorgt durch den Aufruf der Prozedur VerzeichnisAktualisieren<\/b> auch noch für die Anzeige der Details zu diesem Eintrag im Unterformular.<\/p>\n Die Schaltfläche cmdAlleLoeschen <\/b>aus dem unteren Bereich soll sowohl die Einträge der Tabelle tblMail-Items <\/b>und der verknüpften Tabelle tblAnlagen <\/b>löschen als auch die Dateien aus den beiden Verzeichnissen MSG <\/b>und Anlagen<\/b> (s. Listing 5).<\/p>\n Listing 5: Löschen aller Mails und Dateien<\/span><\/b><\/p>\n Die Prozedur fragt sicherheitshalber noch einmal nach, ob die betroffenen Daten tatsächlich gelöscht werden sollen. Ist dies der Fall, löscht sie zunächst die Daten aus der Tabelle tblMailItems<\/b>. Die Daten der verknüpften Tabelle tblAnlagen <\/b>brauchen wir danach nicht explizit zu löschen. Damit dies automatisch geschieht, legen wir für die Beziehung zwischen den beiden Tabellen referenzielle Integrität fest und aktivieren die Option Löschweitergabe an verwandte Datensätze<\/b> (s. Bild 5).<\/p>\n Bild 5: Festlegung der Löschweitergabe für die Beziehung <\/span><\/b><\/p>\n Danach kümmert sich die Prozedur um die Dateien. Hier verwendet sie das FileSystemObject<\/b>, das wir als Object <\/b>deklarieren und mit der CreateObject<\/b>-Methode instanzieren. Auf diese Weise verwenden wir einmal Late Binding und verzichten auf den Verweis auf die entsprechende Bibliothek.<\/p>\n Die Prozedur prüft dann mit der Dir<\/b>-Funktion, ob das Verzeichnis Anlagen <\/b>überhaupt im Verzeichnis der aktuellen Datenbank vorliegt. Falls ja, ruft es die DeleteFolder<\/b>-Methode von objFileSystemObject <\/b>auf und löscht diesen Ordner auf diese Weise. Auf die gleiche Weise löscht die Prozedur auch das Verzeichnis MSG<\/b>. Beide Verzeichnisse werden nach Bedarf durch die Prozeduren, welche die Mails einlesen, wieder angelegt. Eine Meldung gibt schließlich noch eine Information über den Abschluss der Arbeiten aus.<\/p>\n Wenn wir die E-Mails in die Datenbank importieren, markieren wir die eingelesen E-Mails, sodass wir diese nicht bei jedem Einlesevorgang erneut einlesen. Dazu stellt die Anwendung die Eigenschaft BillingInformation<\/b>, die in der Regel nicht verwendet wird, auf den Wert saved <\/b>ein.<\/p>\n Sollten Sie nun, beispielsweise beim Testen dieser Beispielanwendung, die eingelesenen E-Mails löschen, um diese erneut einzulesen, wird dies nicht gelingen – die E-Mails sind immer noch markiert und werden nicht eingelesen. Sie müssen also zunächst die E-Mails von ihren Markierungen befreien. Dies erledigen Sie mit der Schaltfläche cmdMailmarkierungenEntfernen<\/b>. Diese löst die Ereignisprozedur aus Listing 6 aus.<\/p>\n Listing 6: Entfernen der Markierungen der E-Mails in der Eigenschaft BillingInformation<\/span><\/b><\/p>\n Die Prozedur durchläuft alle Einträge des Listenfeldes und liest dabei jeweils den Wert der ersten Spalte in die Variable lngOptionID <\/b>ein. Damit ermittelt sie per DLookup <\/b>den Namen des Outlook-Ordners aus dem Feld Verzeichnis <\/b>der Tabelle tblOptionen <\/b>sowie den Inhalt des Feldes Rekursiv<\/b>. Damit ruft sie die Funktion Billing-InformationLeerenFolder <\/b>auf und übergibt dieser den Outlook-Ordner, die Variable lngAnzahl <\/b>zum Ermitteln der Anzahl der geänderten Mails sowie die Variable bolRekursiv<\/b>, die angibt, ob der aktuell durchlaufene Ordner als rekursiv gekennzeichnet ist.<\/p>\n Die Prozedur BillingInformationLeerenFolder <\/b>aus Listing 7 ermittelt mit der Funktion GetFolderByPath<\/b>, die Sie ebenfalls im Verzeichnis mdlImport <\/b>finden, das Folder<\/b>-Objekt zum angegebenen Ordner aus strVerzeichnis<\/b>, und speichert diesen in der Variablen objFolder<\/b>.<\/p>\n Listing 7: Hauptfunktion zum Leeren der Eigenschaft BillingInformation der Elemente eines Folders<\/span><\/b><\/p>\n Ist das Objekt nicht leer, ermittelt die Prozedur die Anzahl der enthaltenen Elemente, und zwar mit der Count<\/b>-Eigenschaft der Items<\/b>-Auflistung.<\/p>\n Da es sich hier unter Umständen um einen Ordner handelt, dessen Unterordner auch eingelesen werden sollen (bolRekursiv = True<\/b>), gibt es nun zwei Aktionen: Die erste ruft die Prozedur BillingInformationLeerenMails<\/b> auf, welche die Mails vom Inhalt der Eigenschaft BillingInformation<\/b> befreit, und gegebenenfalls die Prozedur BillingInformationLeerenFolderRek<\/b>, welche sich um die Unterordner kümmert.<\/p>\n Die rekursiv definierte Funktion BillingInformationLeerenFolderRek <\/b>erwartet mit dem Parameter objParent <\/b>den übergeordneten Ordner und die Variable zum Hinzuaddieren der betroffenen Elemente (s. Listing 8). Sie durchläuft alle untergeordneten Folder<\/b>-Elemente und ruft für diese jeweils wiederum die Prozedur BillingInformationLeerenMails<\/b> auf.<\/p>\n Listing 8: Rekursive Funktion zum Leeren der Eigenschaft BillingInformation der Elemente eines untergeordneten Folders<\/span><\/b><\/p>\n Diese Prozedur schließlich finden Sie in Listing 9. Sie erhält einen Verweis auf den zu durchlaufenden Ordner und durchläuft alle Elemente der Items<\/b>-Auflistung des Folder<\/b>-Objekts in einer For Each<\/b>-Schleife.<\/p>\n Listing 9: Diese Funktion durchläuft alle Mailelemente und ruft für diese eine weitere Funktion auf.<\/span><\/b><\/p>\n Dort prüft sie, ob es sich tatsächlich um ein MailItem<\/b>-Objekt handelt und ruft für dieses die Funktion BillingInformationLeerenMail <\/b>auf. Liefert diese den Wert True <\/b>zurück, erhöht sich lngAnzahl <\/b>um eins.<\/p>\n Die Funktion BillingInformationLeerenMail<\/b> schließlich erwartet das MailItem<\/b>-Objekt und prüft zunächst, ob die Eigenschaft BillingInformation <\/b>den Wert saved <\/b>enthält.<\/p>\n Nur in diesem Fall leert sie die Eigenschaft und speichert das MailItem<\/b>-Objekt. Als Rückgabewert legt die Prozedur dann den Wert True <\/b>fest (s. Listing 10). Fertig – auf diese Weise wird die Eigenschaft BillingInformation <\/b>aller E-Mails in den angegebenen Ordnern geleert.<\/p>\n Listing 10: Diese Funktion ändert den Inhalt der Eigenschaft BillingInformation und liefert den Wert True zurück.<\/span><\/b><\/p>\n Damit die Anwendung beim Starten automatisch den aktuellen Stand der angegebenen Outlook-Ordner einliest, legen wir eine passende Funktion an, die durch das AutoExec<\/b>-Makro aufgerufen wird. Das Makro konfigurieren Sie wie in Bild 6.<\/p>\n Bild 6: Das AutoExec-Makro<\/span><\/b><\/p>\n Die von dort aufgerufene Funktion MailsImportieren<\/b> finden Sie in Listing 11. Sie erstellt zunächst ein Recordset auf Basis der Tabelle tblOptionen<\/b>, die ja alle Konfigurationsdatensätze der Anwendung mit den einzulesenden Verzeichnissen enthält. Sollte diese leer sein, zeigt die Prozedur direkt das Formular frmMailImport<\/b> an und wird beendet. Anderenfalls durchläuft die Prozedur in einer Do While<\/b>-Schleife alle Datensätze der Tabelle tblOptionen<\/b>. Sie trägt dabei den Namen des Verzeichnisses in die Variable strVerzeichnis <\/b>und den Inhalt des Feldes Rekursiv <\/b>in die Variable bolRekursiv <\/b>ein.<\/p>\n\n
Formular erstellen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_05\/pic_997_002.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2015_05\/pic_997_003.png\")
<\/p>\nSELECT OptionID, Verzeichnis FROM tblOptionen;<\/pre>\n
Private Sub <\/span>lstVerzeichnisse_AfterUpdate()\r\n VerzeichnisAktualisieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>VerzeichnisAktualisieren()\r\n If <\/span>Not<\/span> IsNull(Me!lstVerzeichnisse) Then<\/span>\r\n Me!sfmMailimport.Form.Recordset.FindFirst \"OptionID = \" & Me!lstVerzeichnisse\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me!lstVerzeichnisse = Me!lstVerzeichnisse.ItemData(0)\r\nEnd Sub<\/span><\/pre>\nAnlegen einer neuen Konfiguration<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n Dim <\/span>strVerzeichnis As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngOptionID As Long<\/span>\r\n Dim <\/span>strFenster As String<\/span>\r\n strFenster = GetActiveWindowTitle\r\n strVerzeichnis = VerzeichnisWaehlen\r\n If <\/span>Len<\/span>(strVerzeichnis) > 0 Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblOptionen(Verzeichnis) VALUES(''\" & strVerzeichnis & \"'')\"\r\n lngOptionID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n Me!lstVerzeichnisse.Requery\r\n Me!sfmMailimport.Form.Requery\r\n Me!lstVerzeichnisse = lngOptionID\r\n VerzeichnisAktualisieren\r\n AppActivate strFenster\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Auswählen](\"..\/fileadmin\/_temp_\/2015_05\/pic_997_004.png\")
<\/p>\nEine Konfiguration löschen<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n If <\/span>Not<\/span> IsNull(Me!lstVerzeichnisse) Then<\/span>\r\n If MsgBox<\/span>(\"Verzeichnis ''\" & Me!lstVerzeichnisse.Column(1) & \"'' wirklich aus der Liste entfernen\", _\r\n vbYesNo) = vbYes Then\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblOptionen WHERE OptionID = \" & Me!lstVerzeichnisse, dbFailOnError\r\n Me!lstVerzeichnisse.Requery\r\n Me!sfmMailimport.Form.Requery\r\n Me!lstVerzeichnisse = Me!lstVerzeichnisse.ItemData(0)\r\n VerzeichnisAktualisieren\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nImportierte Elemente löschen<\/h2>\n
Private Sub <\/span>cmdAlleLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>objFileSystemObject As Object<\/span>\r\n If <\/span>MsgBox<\/span>(\"Klicken Sie auf OK, um alle gespeicherten Daten zu löschen.\", vbOKCancel) = vbOK Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblMailItems\", dbFailOnError\r\n Set<\/span> objFileSystemObject = CreateObject(\"Scripting.FileSystemObject\")\r\n If <\/span>Dir(CurrentProject.Path & \"\\Anlagen\", vbDirectory) = \"Anlagen\" Then<\/span>\r\n objFileSystemObject.DeleteFolder CurrentProject.Path & \"\\Anlagen\"\r\n End If<\/span>\r\n If <\/span>Dir(CurrentProject.Path & \"\\MSG\", vbDirectory) = \"Anlagen\" Then<\/span>\r\n objFileSystemObject.DeleteFolder CurrentProject.Path & \"\\MSG\"\r\n End If<\/span>\r\n Set<\/span> objFileSystemObject = Nothing\r\n MsgBox<\/span> \"Die Tabellen und Unterverzeichnisse wurden geleert.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Festlegung](\"..\/fileadmin\/_temp_\/2015_05\/pic_997_005.png\")
<\/p>\nEntfernen der Mail-Markierungen<\/h2>\n
Private Sub <\/span>cmdMailmarkierungenEntfernen_Click()\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>lngOptionID As Long<\/span>\r\n Dim <\/span>strVerzeichnis As String<\/span>\r\n Dim <\/span>bolRekursiv As Boolean<\/span>\r\n For i = 0 To Me!lstVerzeichnisse.ListCount - 1\r\n lngOptionID = Me!lstVerzeichnisse.ItemData(i)\r\n strVerzeichnis = DLookup(\"Verzeichnis\", \"tblOptionen\", \"OptionID = \" & lngOptionID)\r\n bolRekursiv = DLookup(\"Rekursiv\", \"tblOptionen\", \"OptionID = \" & lngOptionID)\r\n BillingInformationLeerenFolder strVerzeichnis, lngAnzahl, bolRekursiv\r\n Next<\/span> i\r\n MsgBox<\/span> \"Markierung bei \" & lngAnzahl & \" Mails entfernt.\"\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>BillingInformationLeerenFolder(strVerzeichnis As String<\/span>, lngAnzahl As Long<\/span>, bolRekursiv As Boolean<\/span>)\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>lngAnzahlEingelesen As Long<\/span>\r\n Set<\/span> objFolder = GetFolderByPath(strVerzeichnis)\r\n If <\/span>Not<\/span> objFolder Is Nothing Then<\/span>\r\n lngAnzahlEingelesen = objFolder.Items.Count\r\n BillingInformationLeerenMails objFolder, lngAnzahl\r\n If <\/span>bolRekursiv Then<\/span>\r\n BillingInformationLeerenFolderRek objFolder, lngAnzahl\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>BillingInformationLeerenFolderRek(objParent As <\/span>Outlook.Folder, lngAnzahl As Long<\/span>)\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n For Each objFolder In objParent.Folders\r\n BillingInformationLeerenMails objFolder, lngAnzahl\r\n BillingInformationLeerenFolderRek objFolder, lngAnzahl\r\n Next<\/span> objFolder\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>BillingInformationLeerenMails(objFolder As <\/span>Outlook.Folder, lngAnzahl As Long<\/span>)\r\n Dim <\/span>objItem As Object<\/span>\r\n For Each objItem In objFolder.Items\r\n If <\/span>TypeName(objItem) = \"MailItem\" Then<\/span>\r\n If <\/span>BillingInformationLeerenMail(objItem) Then<\/span>\r\n lngAnzahl = lngAnzahl + 1\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> objItem\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>BillingInformationLeerenMail(objMailItem As <\/span>Outlook.MailItem) As Boolean<\/span>\r\n With<\/span> objMailItem\r\n If <\/span>.BillingInformation = \"saved\" Then<\/span>\r\n .BillingInformation = \"\"\r\n .Save\r\n BillingInformationLeerenMail = True<\/span>\r\n End If<\/span>\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\nBeim Start automatisch einlesen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_05\/pic_997_006.png\")
<\/p>\nPublic Function <\/span>MailsImportieren()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngAnzahlAktuell As Long<\/span>\r\n Dim <\/span>lngAnzahlGesamt As Long<\/span>\r\n Dim <\/span>strVerzeichnis As String<\/span>\r\n Dim <\/span>lngGroesse As Long<\/span>\r\n Dim <\/span>bolNeuEinlesen