<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
In Ausgabe 4\/2004 haben wir eine Lösung für das Versenden von E-Mails mit SMTP vorgestellt. Und wer E-Mails versendet, der will vermutlich auch E-Mails abrufen. Im vorliegenden Beitrag versorgen wir Sie mit den Grundlagen zu POP3 und den Funktionen, die Sie für den Zugriff auf POP3-Konten benötigen.<\/b><\/p>\n
POP3 ist die Abkürzung für Post Office Protocol in der Version 3. Es ist wie SMTP ein übertragungsprotokoll, das in diesem Fall die übertragung von E-Mails von einem E-Mail-Server zu einem E-Mail-Client regelt.<\/p>\n
POP3 stellt einige Kommandos bereit, mit denen der E-Mail-Client Informationen vom E-Mail-Server über vorhandene E-Mails erhalten und diese beispielsweise herunterladen oder löschen kann. Genau wie SMTP erfolgt die übertragung der Daten standardmäßig über einen bestimmten Port, in diesem Fall über den Port 110.<\/p>\n
Kommandos von POP3<\/b><\/p>\n
Im Rahmen des vorliegenden Beitrags benötigen wir die folgenden POP3-Kommandos:<\/p>\n
Beispiel<\/b><\/p>\n
Um folgendes Beispiel nachvollziehen zu können, benötigen Sie ein POP3-Konto auf einem E-Mail-Server Ihrer Wahl. Wenn möglich, sollten Sie ein sonst nicht benutztes Konto verwenden, um zu verhindern, dass möglicherweise wichtige Mails verloren gehen.<\/p>\n
Im Beispiel werden wir per Telnet eine POP3-Sitzung initiieren, in der wir verschiedene Informationen abfragen und eine E-Mail herunterladen. Dazu müssen Sie natürlich zunächst einmal eine E-Mail mit einem Beispielbetreff und Beispielinhalt an die entsprechende Adresse schicken. Und damit auch etwas Betrieb auf dem Mail-Server herrscht und die Beispiele anschaulicher sind, schicken Sie diese Mail direkt noch einmal hinterher.<\/p>\n
Nun öffnen Sie die Eingabeaufforderung von Windows und starten die POP3-Sitzung via Telnet. Als Mailserveradresse geben Sie die Adresse an, die Sie auch im E-Mail-Client eingetragen haben beziehungsweise eintragen würden. Wichtig ist die Angabe des Ports:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{6BC748DC-A31D-4A2C-AFB4-5BB70D928D63}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Abb. 1: Abrufen einer E-Mail<\/b><\/p>\n Die Eingabeaufforderung ändert nun den Titel auf Telnet <Mailserveradresse> und zeigt eine Meldung an, die mit +OK beginnt.<\/p>\n Nun melden Sie sich an, indem Sie mit den beiden Anweisungen USER und PASS den Benutzernamen und das Kennwort angeben. <\/p>\n Auch hier verwenden Sie wieder die Daten, mit denen auch der E-Mail-Client arbeitet:<\/p>\n Auf beide Eingaben sollte der E-Mail-Server wieder mit +OK antworten, ansonsten stimmen die Daten möglicherweise nicht. <\/p>\n Nun geht“s richtig los: Mit der STAT-Anweisung überprüfen Sie, wie viele Mails das Konto derzeit enthält und wie viel Speicherplatz diese belegen.<\/p>\n Die Antwort des POP3-Servers bedeutet, dass sich derzeit zwei Mails mit einer Größe von insgesamt 1292 Bytes auf dem betreffenden Konto befinden. Diese Antwort ist immer gleich aufgebaut – das ist auch dringend erforderlich, da verschiedenste E-Mail-Clients auf diese und andere Informationen zugreifen und sich auf das richtige Format verlassen müssen.<\/p>\n Das STAT-Kommando und die anderen nachfolgend beschriebenen Kommandos liefern Informationen über den Zustand des POP3-Kontos zum Zeitpunkt des Sitzungsbeginns. Wenn Sie also beispielsweise während einer Sitzung eine weitere Testmail schicken, wird diese nicht angezeigt. <\/p>\n Schauen wir uns nun die Informationen zu den Mails im Einzelnen an. Das Kommando LIST gibt eine Liste der Größenangabe zu allen E-Mails dieses Kontos aus. Der Punkt in der letzten Zeile dient dem Abschließen mehrzeiliger Ausgaben:<\/p>\n Sie können die Informationen auch nur für eine E-Mail anzeigen lassen, indem Sie die Nummer der E-Mail als Parameter angeben:<\/p>\n Nun möchten Sie auch den Inhalt der E-Mail erfahren. Dafür ist die Anweisung RETR zuständig. Als Parameter geben Sie die ID der auszugebenden Mail an. Die Anweisung und die resultierende Ausgabe finden Sie in Abb. 1.<\/p>\n Wer den Beitrag Mail versenden ohne Outlook aus Ausgabe 4\/2004 gelesen hat, erkennt den Inhalt der E-Mail: Es handelt sich dabei um die komplette E-Mail inklusive Header-Informationen. Nachdem Sie den Inhalt dieser Test-E-Mail gelesen haben, können Sie diese löschen. Dazu verwenden Sie folgende Anweisung mit der ID der E-Mail als Parameter:<\/p>\n Die Antwort lautet +OK, wenn die E-Mail erfolgreich gelöscht werden konnte. Anderenfalls gibt der POP3-Server eine Meldung wie -ERR already deleted zurück.<\/p>\n Schließlich können Sie mit der Anweisung LAST die ID ermitteln, die der größten ID der gelesenen E-Mails entspricht.<\/p>\n Mit der Anweisung QUIT beenden Sie schließlich die Sitzung.<\/p>\n Es gibt noch weitere Kommandos, die aber im Rahmen des vorliegenden Beitrags nicht wichtig sind. Eine vollständige Beschreibung von POP3 enthält das Dokument RFC 1225, das Sie unter anderem hier finden: http:\/\/www.faqs.org\/rfcs\/rfc1225.html<\/p>\n Es gibt genügend Gründe, warum eine Access-Datenbank in der Lage sein sollte, E-Mails via POP3 von einem beliebigen E-Mail-Konto abzuholen. So könnte etwa eine Shop-Software die via Webformular eingegebenen Bestellungen direkt per E-Mail auf ein Konto schicken, von dem eine lokale Access-Datenbank sich die Bestellungen abholt und direkt bearbeitet.<\/p>\n Oder Sie bestücken eine Software mit einer Fehlerbehandlung, die aussagekräftige Fehlermeldungen per SMTP an ein E-Mail-Konto schickt, von wo sie eine geeignete Ticket-Datenbank abholt und auswertet.<\/p>\n Die Beispieldatenbanken finden Sie auf der diesem Magazin beiliegenden CD unter den Dateinamen POP3_97.mdb (für Access 97) und POP3_00.mdb (für Access 2000 und höher). <\/p>\n Fehlt eigentlich nur noch die Möglichkeit, die E-Mails per VBA abzurufen. Das ist allerdings nicht ganz einfach und erfordert einige Umwege. Diese führen namentlich über einige API-Funktionen, deren Deklarationen im Modul mdlAPI der Beispieldateibanken zu finden sind. Da jede einzelne Interaktion mit dem Webserver via Winsock relativ viele API-Aufrufe erfordert, wurden die Methoden für deren Durchführung in einer Klasse namens clsWinsock gekapselt.<\/p>\n Die Klasse bietet gegenüber den API-Aufrufen wesentlich griffigere Methoden und verbirgt eine Menge Funktionalität. Eine Auflistung der verwendeten Methoden finden Sie in Tab. 1.<\/p>\n Als Grundlage für die Prozeduren und Funktionen in den nachfolgenden Beispielen dient die Arbeit von John Rhoton. Er beschreibt in seinem Buch Programmer“s Guide to Internet Mail (Digital Press, 1999) unter anderem ausführlich die Funktionsweise von Winsock und POP3. Die diesem Beitrag zugrunde liegenden Funktionen können dem Download für Visual Basic unter der folgenden Adresse entnommen werden (ohne Zeilenumbruch): http:\/\/www.winsite.com\/bin\/Info500000022279. <\/p>\n Methode<\/b><\/p>\n<\/td>\n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n StartWinsock<\/p>\n<\/td>\n Startet die Winsock-Schnittstelle<\/p>\n<\/td>\n<\/tr>\n GetIPAddress<\/p>\n<\/td>\n Ermittelt die IP-Adresse einer angegebenen Internetadresse<\/p>\n<\/td>\n<\/tr>\n CreateSocket<\/p>\n<\/td>\n Erstellt eine Schnittstelleninstanz und ermittelt einen entsprechenden Handler<\/p>\n<\/td>\n<\/tr>\n ConnectSocket<\/p>\n<\/td>\n Erstellt die Verbindung mit der Zieladresse über die Winsock-Schnittstelle<\/p>\n<\/td>\n<\/tr>\n SendSocket<\/p>\n<\/td>\n Schickt ein Kommando über die Winsock-Schnittstelle<\/p>\n<\/td>\n<\/tr>\n ReceiveSocket<\/p>\n<\/td>\n Fragt die Antwort des gegenüberliegenden Partners ab<\/p>\n<\/td>\n<\/tr>\n ReleaseSocket<\/p>\n<\/td>\n Beendet die Verbindung über die Winsock-Schnittstelle<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Methoden der Klasse clsWinsock<\/b><\/p>\n Um eine möglichst eng an den eigentlichen Anweisungen von POP3 orientierte Schnittstelle zu ermöglichen, werden diese Anweisungen in einer weiteren Klasse gekapselt. Diese Klasse heißt clsPOP3 und enthält die Methoden und Eigenschaften aus Tab. 2.<\/p>\n Methode<\/b><\/p>\n<\/td>\n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n StartSession<\/p>\n<\/td>\n Startet eine Sitzung. Parameter: Servername, Benutzername, Kennwort<\/p>\n<\/td>\n<\/tr>\n GetStatus<\/p>\n<\/td>\n Ermittelt die Anzahl der vorhandenen Mails und speichert diese in der Eigenschaft NumberOfMails<\/p>\n<\/td>\n<\/tr>\n ReadMessage<\/p>\n<\/td>\n Liest eine Nachricht in die Variable Message ein. Parameter: Nummer der Nachricht<\/p>\n<\/td>\n<\/tr>\n DeleteMessage<\/p>\n<\/td>\n Kennzeichnet eine Nachricht als gelöscht. Das eigentliche Löschen wird erst durch den Aufruf der Methode EndSession durchgeführt. Parameter: Nummer der Nachricht<\/p>\n<\/td>\n<\/tr>\n EndSession<\/p>\n<\/td>\n Beendet die Sitzung und löscht als gelöscht gekennzeichnete Nachrichten<\/p>\n<\/td>\n<\/tr>\n NumberOfMails<\/p>\n<\/td>\n Anzahl der Nachrichten, wird durch GetStatus gefüllt<\/p>\n<\/td>\n<\/tr>\n Message<\/p>\n<\/td>\n Inhalt der Nachricht. Wird durch die Methode ReadMessage gefüllt<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Methoden der Klasse für die Verwendung des Post Office Protocols, Version 3<\/b><\/p>\n Die Klasse könnte man noch um einige Methoden und Eigenschaften erweitern, um beispielsweise die Größe einer einzelnen Mail zu ermitteln oder die Liste aller enthaltenen Mails inklusive Größe auszugeben. Da die POP3-Klasse aber nur für den Abruf automatisch generierter Mails gedacht ist, deren Größe vermutlich immer gleich und daher uninteressant ist, verzichten wir an dieser Stelle auf weitere Elemente.<\/p>\n Wenn Sie die Methoden und Eigenschaften der Klasse clsPOP3 in eigenen Anwendungen verwenden möchten, werden Sie unter Umständen den einen oder anderen Test durchführen. Tests erfordern Testdaten und in diesem Falle hilft es, wenn Sie das entsprechende Postfach mal eben mit ein paar Testmails bestücken können.<\/p>\n Sie finden in den Beispieldatenbanken nicht nur die Funktionalität für die Verwendung von POP3, sondern auch eine Klasse zum Versenden von Mails via SMTP namens clsSMTP.<\/p>\n Die Prozedur aus Quellcode 1 zeigt ihre Anwendung. Sie müssen lediglich für die den Eigenschaften zugewiesenen Werte, die derzeit durch Platzhalter ersetzt werden, eigene Werte einsetzen.<\/p>\n Quellcode 1<\/b><\/p>\n In Quellcode 2 finden Sie eine kleine Beispielprozedur, die alle im angegebenen Postfach enthaltenen E-Mails im Testfenster ausgibt.<\/p>\n Auch hier müssen Sie die den Variablen strServer, strBenutzername und strKennwort zugewiesenen Werte noch durch Ihre eigenen Daten ersetzen.<\/p>\n Die Routine gibt alle derzeit im Postfach enthaltenen E-Mails im Klartext aus – also mit den Metainformationen wie Absender, Empfänger und so weiter.<\/p>\n Abb. 2 zeigt die Ausgabe einer Mail im Testfenster. Um mit dieser Mail etwas anfangen zu können, verwenden Sie eine weitere Klasse. Diese extrahiert die einzelnen Elemente einer Mail und macht sie in Form einzelner Eigenschaften verfügbar.<\/p>\n Quellcode 2<\/b><\/p>\n <\/b><\/p>\n Abb. 2: Ausgabe einer E-Mail im Testfenster<\/b><\/p>\n Das Lesen von E-Mails macht natürlich nur Sinn, wenn man die enthaltenen Informationen anschließend vernünftig auswertet.<\/p>\n Das Auswerten erfolgt in zwei Schritten. Der erste ermittelt die Metadaten und den Inhalt der E-Mail und schreibt diese in eine eigens dafür vorgesehene Tabelle. Die zweite kümmert sich um den eigentlichen Inhalt der Mail.<\/p>\n Tabelle zum Speichern der E-Mails<\/b><\/p>\n Bleiben wir zunächst beim ersten Schritt. Dazu benötigen wir eine Tabelle, die alle in der E-Mail enthaltenen Metadaten aufnimmt.<\/p>\n Vorher ist zu klären, welche der in der E-Mail enthaltenen Elemente Sie überhaupt benötigen. Es ist sicher interessant, die Adressen des Absenders und des Empfängers, das Sendedatum, den Betreff und den Inhalt der Mail zu speichern.<\/p>\n Außerdem sollten Sie festhalten, zu welcher Zeit die E-Mail abgerufen wurde. Weniger interessant ist in diesem Zusammenhang, welchen Weg die E-Mail genommen hat. Abb. 3 zeigt die Entwurfsansicht der Tabelle tblMessages.<\/p>\n Quellcode 3<\/b><\/p>\n <\/b><\/p>\n Abb. 3: Tabelle zum Speichern von E-Mail-Daten<\/b><\/p>\n Extrahieren der E-Mail-Daten<\/b><\/p>\n Das Extrahieren der E-Mail übernimmt wiederum eine eigene Klasse. Diese hat einige Eigenschaften zum Speichern des Inhalts der E-Mail und der daraus extrahierten Informationen. Das Extrahieren der Informationen übernimmt die Methode ExtractMessage.<\/p>\n Sämtliche Eigenschaften der Klasse sind über öffentliche Property-Prozeduren erreichbar – allerdings entweder nur für den lesenden oder den schreibenden Zugriff.<\/p>\n Der komplette Inhalt der Mail kann über die Eigenschaft Message an die Klasse übergeben werden, die Eigenschaften Subject, MessageFrom, MessageTo, DateSent, DateReceived und Content enthalten die extrahierten Daten.<\/p>\n Quellcode 3 enthält die Deklaration der Variablen und die Property-Prozeduren und Quellcode 4 die Prozedur ExtractMessage. Letztere geht für jeden der benötigten Header ähnlich vor: Sie ermittelt die Position des Schlüsselworts, das den Header einleitet (beispielsweise Subject: oder Date:) und anschließend den entsprechenden Wert.<\/p>\n Dabei geht die Methode davon aus, dass der Inhalt des Headers durch ein Leerzeichen vom einführenden Schlüsselwort und durch einen Zeilenumbruch vom nächsten Header getrennt ist. Das Ermitteln der Position der Headerinformation mit der InStr-Funktion und des daraus resultierenden Headerinhalts erfolgt in einer separaten Funktion namens GetHeader (s. Quellcode 5).<\/p>\n Den einzigen Unterschied macht der eigentliche Inhalt der Mail: Er wird nicht durch ein bestimmtes Schlüsselwort, sondern durch zwei Zeilenumbrüche eingeleitet und auch wieder beendet. Daher konnte die Ermittlung dieser Information nicht in die Funktion GetHeader ausgelagert werden.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Die Ermittlung des Inhalts der Mail erfordert noch eine weitere Funktion namens GetMailDate, die das Sendedatum aus dem entsprechenden Header der Mail extrahiert (s. Quellcode 6). Die Funktion erwartet den vom einleitenden Schlüsselwort getrennten Header namens Date in einem Format, das beispielsweise den 9. Oktober 2004, 23:56:27 Uhr, wie folgt ausgibt:<\/p>\n Quellcode 6<\/b><\/p>\n Die ursprüngliche Version der Funktion GetMailDate heißt DateFromHeader und stammt von Rick Rothstein, gepostet in der Newsgroup microsoft.public.vb.general.discussion am 21. Juli 2003. <\/p>\n Inhalt der Mail in einer Tabelle speichern<\/b><\/p>\n Nun verwenden Sie die oben vorgestellte Tabelle tblMessages, um die extrahierten Informationen zu speichern. Dabei erfahren Sie direkt, wie Sie die soeben vorgestellte Klasse clsMessage einsetzen können.<\/p>\n Die nachfolgende Prozedur deckt dabei direkt den Fall ab, der bei den oben erwähnten Beispielen für das automatisierte Abrufen von E-Mails sehr wahrscheinlich eintritt: Sie liest alle im gewünschten Konto enthaltenen E-Mails ein und löscht diese anschließend vom Server.<\/p>\n Die Prozedur heißt AlleMailsAbholen und ist in Quellcode 7 zu finden. Neben der Klasse clsPOP3 zum Abholen der Mails sowie clsMessage zum Extrahieren des Inhalts benötigt die Routine ein Database- und ein Recordset-Objekt, um den Inhalt der E-Mail direkt in den entsprechenden Feldern der Tabelle tblMessages speichern zu können.<\/p>\n Die Variablen strServer, strBenutzername und strKennwort sind hier nur zu Beispielzwecken fest codiert. Im „echten“ Betrieb würde man diese Informationen beispielsweise in einer speziellen Parametertabelle speichern und bei Bedarf einlesen – wenn man das Kennwort über Speichern und nicht jedes Mal abfragen würde.<\/p>\n Nach dem Instanzieren der benötigten Objekte tritt die Klasse clsPOP3 in Aktion, genau genommen deren Methode StartSession. Verläuft diese erfolgreich, ist die Sitzung eröffnet und die Anzahl der auf dem Server liegenden Mails für das angegebene Konto kann abgefragt werden. Dazu schreibt die Methode GetStatus die vorhandene Anzahl in die Eigenschaft NumberOfMails der Klasse. Und dann geht“s rund: In einer For Next-Schleife liest die Routine alle vorhandenen Nachrichten ein und weist diese der Eigenschaft Message der Klasse clsMessage zu. Die Methode ExtractMessage ermittelt die gewünschten Informationen aus der Nachricht und macht sie über die Eigenschaften Content, DateReceived, DateSent, MessageFrom, MessageTo und Subject verfügbar, sodass diese einfach in einen neuen Datensatz der Tabelle tblMessages geschrieben werden können. Schließlich löscht die Routine den soeben eingelesenen Datensatz noch innerhalb der Schleife.<\/p>\n Der vorliegende Beitrag hat Ihnen die Verwendung des Post Office Protocols, Version 3, vorgestellt und gezeigt, wie Sie es mit VBA verwenden können. Damit sind die Vorbereitungen für die kombinierte Anwendung dieses Protokolls mit dem in Ausgabe 4\/2004 von Access im Unternehmen vorgestellten SMTP innerhalb von Access-Datenbanken geschaffen.<\/p>\n Im Beitrag Fehlerverwaltung mit Online-Komponente in der aktuellen Ausgabe erfahren Sie, wie Sie Datenbanken mit einer Fehlerbehandlung bestücken, die Fehlermeldungen automatisch per E-Mail „nach Hause“ schicken. Mit „nach Hause“ ist ein speziell für solche Mails eingerichtetes E-Mail-Konto gemeint.<\/p>\n Quellcode 7<\/b><\/p>\n Von diesem holt der Entwickler die versendeten Fehlermeldungen mit der in diesem Beitrag vorgestellten Methode ab und kann die Meldungen direkt in einer Datenbank weiter verarbeiten. Das wäre die entwicklerfreundliche Nutzung des automatisierten Mailversands und -empfangs. POP3 lässt sich mit Access aber für die Verarbeitung aller möglichen per E-Mail versendeten Daten nutzen, sofern ihr Inhalt möglichst automatisiert erstellt wurde – etwa eine Bestellung über ein Onlineformular oder eine Anmeldung an einen Newsletter.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n POP3.mdb<\/p>\ntelnet <Mailserveradresse> 110<\/pre>\n
USER <Benutzername>\n+OK\nPASS <Kennwort>\n+OK<\/pre>\n
STAT\n+OK 2 1292<\/pre>\n
Hinweis<\/h3>\n
LIST\n+OK\n1 646\n2 646\n.<\/pre>\n
LIST 2\n+OK 2 646<\/pre>\n
DELE 2<\/pre>\n
Beenden der Sitzung<\/h3>\n
Hinweis<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Beispielmails verschicken<\/h3>\n
Public Sub MailSenden()\n Dim objSMTP As clsSMTP\n Set objSMTP = New clsSMTP\n With objSMTP\n .SMTPServer = \"<SMTPServer>\"\n .Port = 25\n .MailFrom = \"<Mail Absender>\"\n .MailTo = \"<Mail Empfänger>\"\n .Sendername = \"<Name Absender>\"\n .SenderEMail = \"<Mail Absender>\"\n .Subject = \"Testmail\"\n .Plaintext = \"Testmail\"\n .Send\n End With\nEnd Sub<\/pre>\n
Beispiel für das Abrufen von E-Mails<\/h3>\n
Public Sub AlleMailsAusgeben()\n Dim objPOP3 As clsPOP3\n Dim strServer As String\n Dim strBenutzername As String\n Dim strKennwort As String\n Dim lngNumberOfMails As Long\n Dim l As Long\n strServer = \"<Mailserver-Domain>\"\n strBenutzername = \"<Benutzername>\"\n strKennwort = \"<Kennwort>\"\n Set objPOP3 = New clsPOP3\n If objPOP3.StartSession(strServer, _ strBenutzername, strKennwort) = True Then\n objPOP3.GetStatus\n lngNumberOfMails = objPOP3.NumberOfMails\n For l = 1 To lngNumberOfMails\n objPOP3.ReadMessage l\n Debug.Print \"================\"\n Debug.Print \"Nachricht Nr. \" & l\n Debug.Print \"================\"\n Debug.Print objPOP3.Message\n Next l\n Else\n Debug.Print \"Kein Zugriff möglich.\"\n End If\n Set objPOP3 = Nothing\nEnd Subo<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{6BC748DC-A31D-4A2C-AFB4-5BB70D928D63}\/pic002.png\")
<\/p>\nOption Compare Database\nOption Explicit\nDim mMessage As String\nDim mSubject As String\nDim mMessageFrom As String\nDim mMessageTo As String\nDim mDateSent As Date\nDim mDateReceived As Date\nDim mContent As String\nPublic Property Let Message(strMessage As String)\n mMessage = strMessage\nEnd Property\nPublic Property Get Subject() As String\n Subject = mSubject\nEnd Property\nPublic Property Get MessageFrom() As String\n MessageFrom = mMessageFrom\nEnd Property\nPublic Property Get MessageTo() As String\n MessageTo = mMessageTo\nEnd Property\nPublic Property Get DateSent() As Date\n DateSent = mDateSent\nEnd Property\nPublic Property Get DateReceived() As Date\n DateReceived = mDateReceived\nEnd Property\nPublic Property Get Content() As String\n Content = mContent\nEnd Property<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{6BC748DC-A31D-4A2C-AFB4-5BB70D928D63}\/pic003.png\")
<\/p>\nPublic Function ExtractMessage() As Boolean\n On Error GoTo ExtractMessage_Err\n Dim intPosStart As Integer\n Dim intPosEnd As Integer\n If Len(mMessage) = 0 Then\n ExtractMessage = False\n Exit Function\n End If\n mMessageFrom = GetHeader(\"From:\")\n mMessageTo = GetHeader(\"To:\")\n mSubject = GetHeader(\"Subject:\")\n mDateSent = CDate(GetMaildate(GetHeader(\"Date:\")))\n mDateReceived = Now\n intPosStart = InStr(1, mMessage, vbCrLf & vbCrLf)\n intPosEnd = InStr(intPosStart + 4, mMessage, vbCrLf & vbCrLf)\n mContent = Trim(Mid(mMessage, intPosStart + 4, Len(mMessage) - intPosStart - 7))\n ''Fehlerbehandlung\n ExtractMessage = True\nExtractMessage_Exit:\n ''Restarbeiten\n Exit Function\nExtractMessage_Err:\n ExtractMessage = False\n Call GetError(\"clsEMail \", \"ExtractMessage\", Erl, \"Bemerkungen: .\/.\")\n GoTo ExtractMessage_Exit\nEnd Function<\/pre>\n
Private Function GetHeader(strHeader As String)\n Dim intPosStart As Integer\n Dim intPosEnd As Integer\n Dim intLenHeader As Integer\n intLenHeader = Len(strHeader) + 1\n intPosStart = InStr(1, mMessage, strHeader)\n intPosEnd = InStr(intPosStart + 1, mMessage, vbCrLf)\n GetHeader = Mid(mMessage, intPosStart + intLenHeader, intPosEnd - intPosStart - intLenHeader)\nEnd Function<\/pre>\n
Datumsangaben konvertieren<\/h3>\n
Sat, 9 Oct 2004 23:56:27 +0200\nPrivate Function GetMaildate(strMaildate As String) As Date\n Dim Part() As String\n Const Months = \"JanFebMarAprMayJunJulAugSepOctNovDec\"\n Part = Split(strMaildate, \" \")\n GetMaildate = DateSerial(Part(3), 1 + (InStr(Months, Part(2)) - 1) \\ 3, _ Part(1)) + CDate(Part(4))\nEnd Function<\/pre>\n
Hinweis<\/h3>\n
Public Sub AlleMailsAbholen()\n Dim db As DAO.Database\n Dim rst As DAO.Recordset\n Dim objPOP3 As clsPOP3\n Dim objMessage As clsMessage\n Dim strServer As String\n Dim strBenutzername As String\n Dim strKennwort As String\n Dim lngNumberOfMails As Long\n Dim l As Long\n Set db = CurrentDb\n Set rst = db.OpenRecordset(\"tblMessages\", dbOpenDynaset)\n strServer = \"<Servername>\"\n strBenutzername = \"<Benutzername>\"\n strKennwort = \"<Kennwort>\"\n Set objPOP3 = New clsPOP3\n Set objMessage = New clsMessage\n If objPOP3.StartSession(strServer, strBenutzername, strKennwort) = True Then\n objPOP3.GetStatus\n lngNumberOfMails = objPOP3.NumberOfMails\n For l = 1 To lngNumberOfMails\n objPOP3.ReadMessage l\n objMessage.Message = objPOP3.Message\n objMessage.ExtractMessage\n With rst\n .AddNew\n !Content = objMessage.Content\n !DateReceived = objMessage.DateReceived\n !DateSent = objMessage.DateSent\n !MessageFrom = objMessage.MessageFrom\n !MessageTo = objMessage.MessageTo\n !Subject = objMessage.Subject\n .Update\n End With\n objPOP3.DeleteMessage l\n Next l\n End If\n rst.Close\n Set objPOP3 = Nothing: Set objMessage = Nothing\n Set rst = Nothing: Set db = Nothing\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h2>\n