<\/p>\n
Im ersten Teil dieser Beitragsreihe haben wir alle Outlook-Mails eines Ordners und gegebenenfalls auch die in den Unterordnern in Access archiviert. Im vorliegenden zweiten Teil der Reihe schauen wir uns an, welche Daten wir dort nun produziert haben und was wir mit diesen alles anfangen können. Dazu gehört unter anderem, dass wir die Daten, da wir diese nun in Tabellenform vorliegen haben, mit den gewohnten Mitteln durchsuchen können. Damit wollen wir nun nicht mehr benötigte Mails endgültig löschen oder Mails wiederherstellen, die wir in Outlook doch nochmal brauchen.<\/b><\/p>\n
Mit den im ersten Teil vorgestellten Prozeduren im Formular frmMailimport <\/b>haben wir die Tabellen der Datenbank mit den Daten der Outlook.pst<\/b>-Datei gefüllt – und auch noch zwei Verzeichnisse, die sich auf der gleichen Ebene wie die Datenbankanwendung befinden.<\/p>\n
Die Verzeichnisstruktur sieht nun wie in Bild 1 aus. Das Verzeichnis MSG <\/b>enthält die im Dateisystem abgelegten .msg<\/b>-Dateien. Die Lösung bietet die Möglichkeit, diese Dateien entweder mit dem Datensatz in einem Anlagefeld der Tabelle tblMailItems <\/b>zu speichern oder aber diese im Dateisystem abzulegen. Letzteres legen Sie durch den Wert für die maximale Größe der in der Datenbank zu speichernden .msg<\/b>-Dateien in den Optionen der Lösung fest. Alle Dateien, die größer sind, landen im Verzeichnis MSG<\/b>.<\/p>\n
![\"Verzeichnisstruktur](\"..\/fileadmin\/_temp_\/2015_04\/pic_990_001.png\")
<\/p>\n
Bild 1: Verzeichnisstruktur der Lösung<\/span><\/b><\/p>\n Das Verzeichnis Anlagen<\/b> enthält, soweit Anlagen nochmals in separate Dateien extrahiert werden sollen, alle Anlagen der archivierten E-Mails. Die Anlagen befinden sich auch in den jeweiligen .pst<\/b>-Dateien, sodass ein separates Speichern grundsätzlich nicht erforderlich ist. Die Tabelle tblMailItems <\/b>enthält nun einige Datensätze mit den Metadaten einer E-Mail sowie dem Inhalt. Außerdem enthält die Tabelle ein Anlagefeld, das die .msg<\/b>-Datei aufnehmen kann, sofern diese die maximal zulässige Größe nicht überschreitet (s. Bild 2).<\/p>\n Bild 2: Die Tabelle tblMailItems mit einigen Datensätzen<\/span><\/b><\/p>\n Die Tabelle tblAnlagen <\/b>speichert zu jeder Anlage einer Mail einen Datensatz, der über das Feld MailItemID <\/b>mit der Tabelle tblMailItems <\/b>verknüpft ist (s. Bild 3). Die dortigen Felder geben an, in welchem Verzeichnis die Anlagen gespeichert sind und wie die entsprechenden Dateien heißen. Damit haben wir eigentlich alle Informationen, die wir benötigen, um unsere Such-Funktion zu implementieren!<\/p>\n Bild 3: Tabelle zum Speichern der Pfade zu den Anlagen<\/span><\/b><\/p>\n Das Suchformular soll wie in Bild 4 aussehen. Dort finden wir im oberen Bereich zunächst die Felder zur Eingabe der Suchkriterien. Darunter befinden sich drei Schaltflächen:<\/p>\n Bild 4: Formular zum Durchsuchen der E-Mails<\/span><\/b><\/p>\n Der Entwurf des Formulars sieht wie in Bild 5 aus. Das Unterformular sfmMailItems <\/b>verwendet die Tabelle tblMailItems <\/b>als Datenherkunft<\/b>.<\/p>\n Bild 5: Entwurf des Formulars frmMailItems<\/span><\/b><\/p>\n Bevor wir auf die Suchfunktion eingehen, schauen wir uns an, wie Sie über das Unterformular eine einzelne Mail im Mailfenster von Outlook öffnen können. Dazu soll der Benutzer einfach doppelt auf den entsprechenden Datensatz im Unterformular klicken können. Da es dazu kein allgemeines Ereignis namens Beim Doppelklicken <\/b>für den kompletten Formularbereich gibt, müssen wir dieses für die einzelnen Textfelder im Unterformular anlegen. Die folgenden Ereignisprozeduren legen wir also im Klassenmodul des Unterformulars an:<\/p>\n Damit ist sichergestellt, dass die von diesen Ereignisprozeduren aufgerufene Prozedur MailOeffnen <\/b>immer ausgelöst wird – egal, auf welches der Textfelder in der Datenblattansicht des Unterformulars der Benutzer klickt.<\/p>\n Die Prozedur MailOeffnen<\/b> finden Sie in Listing 1. Die Prozedur nimmt als Parameter den Primärschlüsselwert des im Unterformular angeklickten Datensatzes der Tabelle tblMailItems <\/b>entgegen. Sie öffnet dann ein Recordset auf Basis der Tabelle tblMailItems<\/b>, wobei diese nach dem übergebenen Primärschlüsselwert gefiltert wird.<\/p>\n Listing 1: Die Prozedur zum Anzeigen einer E-Mail im Mail-Inspector<\/span><\/b><\/p>\n Nun ist es interessant, ob die Originalmail im .msg<\/b>-Format im Anlagefeld MailItem <\/b>der Tabelle tblMailItems <\/b>gespeichert wurde oder ob sich diese im Unterverzeichnis MSG <\/b>befindet.<\/p>\n Um dies herauszufinden, referenziert die Prozedur zunächst das im Anlagefeld MaiItem <\/b>enthaltene und über die Value<\/b>-Eigenschaft verfügbare Recordset mit der eigentlichen Anlage (hier bitte Anlage eines Anlagefeldes nicht mit Anlage einer E-Mail verwechseln) und speichert es in rstAttachment<\/b>. Enthält rstAttachment <\/b>nun genau einen Recordset (RecordCount = 1<\/b>), dann liegt die Originalmail im .msg<\/b>-Format im Anlagefeld der Tabelle vor.<\/p>\n Das Feld FileData <\/b>des Recordsets rstAttachment <\/b>füllt die Prozedur dann in die Variable fldAttachment<\/b>. Das Field2<\/b>-Objekt fldAttachment <\/b>bietet dann mit der Methode SaveToFile <\/b>die Möglichkeit, den Inhalt des Anlagefeldes als Datei zu speichern. Da es durchaus vorkommen kann, dass wir einmal mehrere Mail gleichzeitig anzeigen, müssen wir eine Konvention für die Dateinamen der .msg<\/b>-Dateien festlegen, die ausschließt, dass Dateien doppelt vorhanden sind. Das ist aber kein Problem, denn wir haben ja zu jeder Mail einen Primärschlüsselwert, den wir in den Dateinamen integrieren können. Also fügen wir den Namen etwa nach folgendem Schema zusammen:<\/p>\n Eventuell vorhandene Dateien gleichen Namens löscht die Prozedur vor dem Anlegen mit der Kill<\/b>-Anweisung. Dann speichert sie die Datei mit SaveToFile <\/b>in das gleiche Verzeichnis wie die Datenbank.<\/p>\n Sollte das Anlagefeld keine Datei enthalten, haben wir beim Import eine Kopie der .msg<\/b>-Datei im Verzeichnis MSG <\/b>im Verzeichnis der Datenbank gespeichert. Diese kopieren wir nun mit der FileCopy<\/b>-Anweisung ebenfalls in das Verzeichnis der Datenbank. Schließlich öffnen wir die .msg<\/b>-Datei mit der ShellExecute<\/b>-Methode, welche sich die passende Anwendung für die Anzeige der E-Mail, in diesem Fall Outlook, aussucht und die E-Mail schließlich öffnet. Das Ergebnis sieht etwa wie in Bild 6 aus.<\/p>\n <\/p>\n Bild 6: Eine per Doppelklick geöffnete E-Mail<\/span><\/b><\/p>\n Die Suchfunktion wertet die Eingaben in die Textfelder txtAbsender<\/b>, txtEmpfaenger<\/b>, txtBetreff<\/b>, txtInhalt<\/b>, txtVon <\/b>und txtBis <\/b>aus und stellt einen entsprechenden Filter zusammen.<\/p>\n Sie wird durch einen Klick auf die Schaltfläche cmdSuchen <\/b>ausgelöst und ist in Listing 2 zu finden. Die Prozedur prüft in einer If…Then-Bedingung den Inhalt der einzelnen Textfelder, und zwar über die Länge der enthaltenen Zeichenketten. Beträgt die mit der Len<\/b>-Funktion Länge mehr als 0 <\/b>Zeichen, ist ein Vergleichswert vorhanden und die Prozedur fügt einen entsprechenden, mit dem AND<\/b>-Schlüsselwort beginnenden Ausdruck zu der in der Variablen strFilter <\/b>gespeicherten Zeichenkette hinzu.<\/p>\n Listing 2: Suchfunktion<\/span><\/b><\/p>\n Wenn der Benutzer beispielsweise als Absender den Wert andre@minhorst.com <\/b>eingibt, lautet der Ausdruck in strFilter <\/b>für diesen Schritt wie folgt:<\/p>\n Sie erkennen hier bereits, dass wir mit dem LIKE<\/b>-Operator und dem Sternchen als führenden und abschließenden Platzhalter arbeiten. Dadurch liefert das Suchergebnis auch solche Einträge, die den angegebenen Text nur enthalten, nicht aber komplett mit diesem identisch sein müssen. Auf diese Weise fügt die Prozedur schrittweise die in den Textfeldern angegebenen Vergleichswerte zu einem Filterausdruck zusammen.<\/p>\n Ein Unterschied ergibt sich bei den beiden Textfeldern txtVon <\/b>und txtBis<\/b>, mit denen ja der Zeitraum für die E-Mails zusammengesetzt werden soll. Die Prozedur prüft dann in einer ersten If…Then<\/b>-Bedingung, ob der Benutzer im Feld txtVon <\/b>ein Startdatum angegeben hat. Falls ja, prüft sie auch noch, ob txtBis <\/b>gefüllt ist. In diesem Fall kann sie einen Ausdruck wie den folgenden zusammenstellen:<\/p>\n Hat das Feld txtBis <\/b>keinen Wert, enthält der Ausdruck nur das Startdatum für den Datumsbereich:<\/p>\n Fehlt noch die Variante, dass nur txtBis <\/b>gefüllt ist:<\/p>\n Nun hat die Prozedur kein, ein oder mehrere Kriterien zusammengestellt, die jeweils mit dem AND<\/b>-Schlüsselwort beginnen. Das erste Auftreten dieses Schlüsselworts müssen wir natürlich abschneiden, was die Prozedur mit der Mid<\/b>-Funktion erledigt, sofern strFilter <\/b>nicht leer ist. Schließlich stellt sie die Eigenschaft Filter <\/b>des Unterformulars auf den Wert aus strFilter <\/b>ein und aktiviert den Filter durch Einstellen der Eigenschaft FilterOn <\/b>auf den Wert True<\/b>.<\/p>\n Wenn Sie nicht gefunden haben, was Sie suchen, können Sie die Filterkriterien zurücksetzen und alle in der Tabelle tblMailItems <\/b>enthaltenen Einträge wieder einblenden.<\/p>\n Dazu klicken Sie einfach auf die Schaltfläche cmdAlleAnzeigen<\/b>, was die folgende Prozedur auslöst:<\/p>\n Dies leert nacheinander alle Kriterienfelder und schließlich auch die Filter<\/b>-Eigenschaft des Unterformulars.<\/p>\n Angenommen, Sie haben eine komplette .pst<\/b>-Datei in der hier vorgestellten Datenbank gespeichert und dann unter Outlook mit einer komplett neuen .pst<\/b>-Datei neu begonnen. Die Wahrscheinlichkeit ist hoch, dass Sie die eine oder andere Mail aus der alten .pst<\/b>-Datei nochmal benötigen. Zu diesem Zweck haben wir der Datenbank die Schaltfläche cmdWiederherstellen <\/b>hinzugefügt. Damit legen Sie die aktuell markierte Datei in genau dem Ordner unter Outlook wieder an, von dem sie auch eingelesen wurde. Das bedeutet natürlich auch, dass die Ordner-Struktur, sofern diese noch nicht vorhanden ist, in genau der gleichen Art wieder aufgebaut werden muss.<\/p>\n Die Prozedur aus Listing 3 liest zunächst den Primärschlüsselwert der wiederherzustellenden E-Mail aus dem aktuell markierten Datensatz im Unterformular ein und speichert diesen in der Variablen lngMailItem<\/b>. Das nachfolgend erstellte Recordset auf Basis der Tabelle tblMailItems <\/b>enthält dann auch nur genau diese eine E-Mail.<\/p>\n Listing 3: Wiederherstellen einer E-Mail in Outlook<\/span><\/b><\/p>\n Diese wird wie zuvor daraufhin untersucht, ob die .msg<\/b>-Datei im Anlagefeld der Tabelle gespeichert ist oder ob sie im Verzeichnis MSG <\/b>liegt. Wo auch immer die E-Mail sich befindet – die Prozedur speichert diese unter dem Namen MailItemTemp.msg <\/b>im Verzeichnis der Datenbank. Vorher löscht sie eine eventuell bereits vorhandene Datei gleichen Namens. Warum ist hier keine eindeutige Benennung unter Einbeziehung des Primärschlüsselwertes erforderlich Weil wir mit dieser Prozedur immer nur eine E-Mail gleichzeitig anlegen. Diese wird außerdem nicht über die gespeicherte .msg<\/b>-Datei geöffnet, sodass wir diese auch immer direkt wieder löschen können.<\/p>\n Anschließend holt die Prozedur mit der Hilfsfunktion GetOutlook <\/b>eine Instanz von Outlook und speichert diese in der Variablen objOutlook<\/b>. GetOutlook <\/b>schaut schlicht, ob schon eine Instanz in m_Outlook <\/b>vorliegt, welches wie folgt im Modul mdlmport <\/b>deklariert wird, und liefert entweder diese oder eine neue Instanz zurück:<\/p>\n Die Funktion GetOutlook<\/b> sieht so aus:<\/p>\n Die Prozedur cmdWiederherstellen_Click <\/b>liest dann aus dem Unterformular den Pfad ein, aus dem die E-Mail beim Import eingelesen wurde, also beispielsweise:<\/p>\n Der folgende Aufruf der Funktion GetFolderByPath <\/b>(siehe mdlImport<\/b>) versucht, diesen Pfad zu finden und ein entsprechendes Folder<\/b>-Objekt zurückzuliefern.Gelingt dies nicht, ruft die Prozedur die Funktion OrdnerErstellen <\/b>auf und übergibt den zu erstellenden Ordner als Parameter. Die Funktion erstellt den Ordner und liefert einen Verweis darauf als Funktionsergebnis zurück (mehr zu dieser Funktion weiter unten).<\/p>\n Danach erstellt die Prozedur cmdWiederherstellen_Click <\/b>die E-Mail auf Basis der .msg<\/b>-Datei neu und verschiebt diese mit der MoveFolder<\/b>-Methode in den neu erstellten Ordner. Schließlich zeigt sie die neu erstellte E-Mail noch im Mail-Inspector an.<\/p>\n Die Funktion OrdnerErstellen <\/b>finden Sie in Listing 4. Sie erwartet den Pfad zum gewünschten Ordner in Form eines String-Parameters. Die Funktion ermittelt zunächst den Basis-Ordner des Zielordners, also den, der hinter den beiden Backslash-Zeichen (\\\\) liegt – in der Regel ist dies \\\\Outlook<\/b>. Dazu ermittelt sie mit InStr <\/b>das erste Backslash-Zeichen ab dem dritten Zeichen betrachtet und liest den ersten Teil in die Variable strRoot <\/b>ein.<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2015_04\/pic_990_002.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2015_04\/pic_990_003.png\")
<\/p>\nSuchformular<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2015_04\/pic_990_004.png\")
<\/p>\n\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2015_04\/pic_990_005.png\")
<\/p>\nMails über das Unterformular anzeigen<\/h2>\n
Private Sub <\/span>Absender_DblClick(Cancel As Integer<\/span>)\r\n MailOeffnen Me!MailitemID\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Betreff_DblClick(Cancel As Integer<\/span>)\r\n MailOeffnen Me!MailitemID\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Empfaenger_DblClick(Cancel As Integer<\/span>)\r\n MailOeffnen Me!MailitemID\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Erhalten_DblClick(Cancel As Integer<\/span>)\r\n MailOeffnen Me!MailitemID\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Pfad_DblClick(Cancel As Integer<\/span>)\r\n MailOeffnen Me!MailitemID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>MailOeffnen(lngMailItemID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstAttachment As <\/span>DAO.Recordset2\r\n Dim <\/span>fldAttachment As <\/span>DAO.Field2\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblMailItems WHERE MailItemID = \" & lngMailItemID, dbOpenDynaset)\r\n Set<\/span> rstAttachment = rst.Fields(\"MailItem\").Value\r\n If <\/span>rstAttachment.RecordCount = 1 Then<\/span>\r\n Set<\/span> fldAttachment = rstAttachment.Fields(\"FileData\")\r\n On Error Resume Next<\/span>\r\n Kill CurrentProject.Path & \"\\MailItemTemp_\" & lngMailItemID & \".msg\"\r\n On Error GoTo<\/span> 0\r\n fldAttachment.SaveToFile CurrentProject.Path & \"\\MailItemTemp_\" & lngMailItemID & \".msg\"\r\n Else<\/span>\r\n FileCopy CurrentProject.Path & \"\\MSG\\\" & lngMailItemID & \".msg\", CurrentProject.Path & \"\\MailItemTemp_\" _\r\n & lngMailItemID & \".msg\"\r\n End If<\/span>\r\n Call<\/span> ShellExecute(Me.hWnd, \"open\", CurrentProject.Path & \"\\MailItemTemp_\" & lngMailItemID & \".msg\", \"\", \"\", _\r\n SW_NORMAL)\r\nEnd Sub<\/span><\/pre>\nMailItemTemp_<ID>.msg<\/pre>\n
![\"Eine](\"..\/fileadmin\/_temp_\/2015_04\/pic_990_006.png\")
<\/p>\nSuchfunktion<\/h2>\n
Private Sub <\/span>cmdSuchen_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>Len<\/span>(Me!txtAbsender) > 0 Then<\/span>\r\n strFilter = strFilter & \" AND Absender LIKE ''*\" & Me!txtAbsender & \"*''\"\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Me!txtEmpfaenger) > 0 Then<\/span>\r\n strFilter = strFilter & \" AND Empfaenger LIKE ''*\" & Me!txtEmpfaenger & \"*''\"\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Me!txtBetreff) > 0 Then<\/span>\r\n strFilter = strFilter & \" AND Betreff LIKE ''*\" & Me!txtBetreff & \"*''\"\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Me!txtInhalt) > 0 Then<\/span>\r\n strFilter = strFilter & \" AND Body LIKE ''*\" & Me!txtInhalt & \"*''\"\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Me!txtVon) > 0 Then<\/span>\r\n If <\/span>Len<\/span>(Me!txtBis) > 0 Then<\/span>\r\n strFilter = strFilter & \"AND Erhalten >= \" & ISODatum(Me!txtVon) & \" AND Erhalten <= \" & ISODatum(Me!txtBis)\r\n Else<\/span>\r\n strFilter = strFilter & \"AND Erhalten >= \" & ISODatum(Me!txtVon)\r\n End If<\/span>\r\n Else<\/span>\r\n If <\/span>Len<\/span>(Me!txtBis) > 0 Then<\/span>\r\n strFilter = strFilter & \"AND Erhalten <= \" & ISODatum(Me!txtBis)\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(strFilter) > 0 Then<\/span>\r\n strFilter = Mid<\/span>(strFilter, 5)\r\n End If<\/span>\r\n With<\/span> Me!sfmMailItems.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nAND Absender LIKE ''*andre@minhorst.com*''<\/pre>\n
Erhalten >= #2015\/01\/01 00:00:00# AND Erhalten <= #2015\/01\/31 00:00:00#<\/pre>\n
Erhalten >= #2015\/01\/01 00:00:00#<\/pre>\n
Erhalten <= #2015\/01\/31 00:00:00#<\/pre>\n
Alle Mails wieder einblenden<\/h2>\n
Private Sub <\/span>cmdAlleAnzeigen_Click()\r\n Me!txtAbsender = Null\r\n Me!txtEmpfaenger = Null\r\n Me!txtBetreff = Null\r\n Me!txtInhalt = Null\r\n Me!txtVon = Null\r\n Me!txtBis = Null\r\n Me!sfmMailItems.Form.Filter = \"\"\r\nEnd Sub<\/span><\/pre>\nMail in Outlook wiederherstellen<\/h2>\n
Private Sub <\/span>cmdWiederherstellen_Click()\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>strMaildatei As String<\/span>\r\n Dim <\/span>objMail As <\/span>Outlook.MailItem\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstAttachment As <\/span>DAO.Recordset\r\n Dim <\/span>fld As <\/span>DAO.Field2\r\n Dim <\/span>lngMailItemID As Long<\/span>\r\n lngMailItemID = Me!sfmMailItems.Form!MailitemID\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT MailItem FROM tblMailItems WHERE MailItemID = \" & lngMailItemID, dbOpenDynaset)\r\n Set<\/span> rstAttachment = rst.Fields(\"MailItem\").Value\r\n If <\/span>rstAttachment.RecordCount = 1 Then<\/span>\r\n Set<\/span> fld = rstAttachment!FileData\r\n strMaildatei = CurrentProject.Path & \"\\MailItemTemp.msg\"\r\n fld.SaveToFile strMaildatei\r\n Else<\/span>\r\n FileCopy CurrentProject.Path & \"\\MSG\\\" & lngMailItemID & \".msg\", CurrentProject.Path & \"\\MailItemTemp.msg\"\r\n End If<\/span>\r\n Set<\/span> objOutlook = GetOutlook\r\n strPfad = Me!sfmMailItems.Form!Pfad\r\n Set<\/span> objFolder = GetFolderByPath(strPfad)\r\n If <\/span>objFolder Is Nothing Then<\/span>\r\n Set<\/span> objFolder = OrdnerErstellen(objOutlook, strPfad)\r\n End If<\/span>\r\n Set<\/span> objMail = objOutlook.CreateItemFromTemplate(strMaildatei)\r\n objMail.Move objFolder\r\n objMail.Display\r\nEnd Sub<\/span><\/pre>\nDim <\/span>m_Outlook As <\/span>Outlook.Application<\/pre>\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\r\n Else<\/span>\r\n On Error Resume Next<\/span>\r\n If <\/span>Len<\/span>(m_Outlook) = 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>\r\n Set<\/span> GetOutlook = m_Outlook\r\nEnd Function<\/span><\/pre>\n<\/font>Outlook\\Posteingang\\Privat<\/pre>\n
Ordner erstellen<\/h2>\n
Private Function <\/span>OrdnerErstellen(strPfad As String<\/span>)\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>objExistingFolder As <\/span>Outlook.Folder\r\n Dim <\/span>strOrdner() As String<\/span>\r\n Dim <\/span>strRoot As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n strRoot = Left<\/span>(strPfad, InStr<\/span>(3, strPfad, \"\\\") - 1)\r\n strPfad = Mid<\/span>(strPfad, InStr<\/span>(3, strPfad, \"\\\") + 1)\r\n strOrdner =