<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Möglichkeit, Mails ohne die Verwendung von Outlook zu versenden, würde vielen Access-Anwendungen gut zu Gesicht stehen. Wo auch immer der direkte Versand von Informationen interessant ist, tritt normalerweise Outlook auf den Plan. Das ist aber nicht immer gewünscht, denn warum sollte man denn einen Umweg gehen, wenn man auch direkt auf die entsprechenden Funktionen des Betriebssystems – in diesem Fall auf die Bibliothek Winsock.dll – zugreifen kann<\/b><\/p>\n
Wer einmal von Access aus versucht hat, mit Hilfe von Microsoft Outlook automatisiert Mails zu verschicken, und sich ein wenig mit SMTP auskennt, der weiß, dass er dabei mit Kanonen auf Spatzen schießt. Dabei öffnet man nämlich eine Riesenanwendung, nur um ein paar Zeilen an einen Mailserver zu schicken. Wenn man Outlook nur zu diesem Zweck startet und anschließend wieder schließt, frißt dieser Vorgang durchaus einige Sekunden.<\/p>\n
Warum also nicht einmal ein wenig in der Geheimniskiste kramen und E-Mails versenden, ohne den Umweg über Outlook in Kauf zu nehmen Wenn man auf den – zugegebenermaßen vorhandenen – Komfort von Outlook verzichten kann und einfach nur zu bestimmten Anlässen eine Mail direkt über die Datenbankanwendung versenden lassen möchte, ist das bestimmt eine gewisse Vorarbeit wert.<\/p>\n
Anwendungsfälle dafür gibt es genug. Das Verschicken einer Rundmail an ein paar hundert Kunden aus der Kontakte-Tabelle geht damit sicher wesentlich schneller als mit Outlook, aber das ist noch nicht einmal der wichtigste Grund, Access in einen Mail- beziehungsweise SMTP-Client umzubauen. Viel interessanter ist beispielsweise das automatisierte Verschicken einer Mail, wenn zum Beispiel der Lagerbestand einer bestimmten Ware einen kritischen Wert erreicht oder wenn Fehlfunktionen auftreten.<\/p>\n
Dazu bedarf es allerdings einiger grundlegender Kenntnisse über Winsock, SMTP sowie den Aufbau von Mails im Allgemeinen. Die nachfolgenden Kapitel behandeln diese Themen in der notwendigen Tiefe.<\/p>\n
Schließlich folgen zum Schluss einige Beispiele für den Praxiseinsatz von SMTP innerhalb von Access-Datenbanken.<\/p>\n
Auf Windows-Betriebssystemen verwendet man zum Versenden von E-Mails in der Regel Microsoft Outlook, Outlook Express oder einen ähnlichen Mail-Client.<\/p>\n
Diese Anwendungen verfügen über eine Menge wichtige und weniger wichtige Funktionen, die dem Anwender den Großteil der Arbeit abnehmen. Der muss in der Regel nur noch den oder die Adressaten, die Betreffzeile und den Text eingeben und auf den Senden-Button klicken, um eine Mail zu versenden. In manchen Fällen gibt“s noch eine Beilage in Form eines so genannten Attachments, das aber ebenfalls bequem per Dialog zu ermitteln ist.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{191FEA1C-8A1E-4E7F-9641-F4699A161DBD}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Der SMTP-Server ist zur Eingabe bereit.<\/span><\/b><\/p>\n Wenn man von Access aus eine Mail versenden möchte, kann man dies mit Microsoft Outlook ab der Version 2000 ohne Probleme per Automatisierung erledigen. Per VBA lassen sich dann leicht die Methoden, Ereignisse und Eigenschaften des Outlook-Objektmodells ansprechen und von Access aus fernsteuern.<\/p>\n Outlook selbst verwendet dann das zur Familie der TCP\/IP-Protokolle gehörende SMTP (Simple Mail Transfer Protocol), um eine E-Mail an den entsprechenden SMTP-Server zu schicken. Dieser befördert diese E-Mail dann gegebenenfalls über weitere SMTP-Server zum Zielrechner, von wo der Adressat die E-Mail dann mit seiner eigenen E-Mail-Software per POP3 auf seinen Rechner holt. Diesen letzten Schritt behandelt der vorliegende Beitrag indes nicht, obwohl auch das automatisierte Abholen und Auswerten von E-Mails sicher seinen Reiz hätte.<\/p>\n Den SMTP-Server, auch MTA (Mail Transfer Agent) genannt, stellt in der Regel der Provider zur Verfügung, über den man auch die Verbindung zum Internet herstellt. Wer über eine eigene Internetseite oder über Webspace für andere Zwecke verfügt, kann möglicherweise auf eine eigene E-Mail-Adresse und damit auf einen alternativen SMTP-Server zugreifen. Und wer es auf die Spitze treibt, hat vielleicht sogar einen eigenen Server gemietet oder gekauft, auf dem er seinen persönlichen Mailserver mit entsprechendem SMTP-Dienst betreibt.<\/p>\n Wenn nun beispielsweise Microsoft Outlook eine Mail an einen SMTP-Server schicken soll, baut es zunächst eine Verbindung zum Zielrechner auf. Dafür ist die Winsock-Schnittstelle zuständig, deren Funktionen sich in der Datei Wsock32.dll befinden. Diese Schnittstelle ist nicht nur die Grundlage für das SMTP-Protokoll, sondern auch für weitere Dienste wie Telnet oder FTP.<\/p>\n Ist eine Verbindung via Winsock eingerichtet, können die verbundenen Rechner Nachrichten hin- und herschicken. Im vorliegenden Fall sind das SMTP-Befehle und die entsprechenden Antworten. Mit den SMTP-Befehlen übergibt der sendende Rechner alle Informationen über die zu versendende Mail – angefangen von den wichtigsten Daten, nämlich der Absender- und der Empfängeradresse bis hin zum eigentlichen Inhalt. Dieser wiederum kann sich äußerst vielfältig gestalten – von der einfachen Textmail über eine HTML-Mail bis hin zu Mails mit Anhängen oder mehreren unterschiedlichen Inhaltsarten, die der empfangende Client je nach seinen Möglichkeiten anzeigt.<\/p>\n Das Simple Mail Transfer Protocol ist recht einfach zu überschauen. Nachfolgend ist ein Beispiel skizziert, das dessen Anwendung in der Praxis erläutert und gleichzeitig die Einfachheit verdeutlicht. <\/p>\n Dabei verwendet man die Eingabeaufforderung von Windows, um per Tastatur eine komplette Mail an einen beliebigen Adressaten zu versenden.<\/p>\n Nach dem öffnen der Eingabeaufforderung startet man zunächst eine Verbindung zum Mailserver, und zwar über den Port 25. Die entsprechende Anweisung sieht folgendermaßen aus (im Beispiel für den Mailserver von Strato):<\/p>\n Die Angabe des Ports, also der 25, ist besonders wichtig. Lässt man diese Information weg, geht Telnet von Port 23 aus, was in der Regel nicht zum Erfolg führt. Daraufhin meldet sich der SMTP-Server des jeweils angegebenen Providers mit einer Ausgabe wie in Bild 1.<\/p>\n Anschließend kann man direkt mit der Eingabe der gewünschten SMTP-Befehle beginnen. Quellcode 1 enthält eine beispielhafte Kommunikation zwischen Client und SMTP-Server.<\/p>\n Zunächst begrüßt man den Server mit dem Befehl HELO <Rechnername>. Der SMTP-Server antwortet mit einem lockeren „…pleased to meet you“ – je nach Server kann man aber auch eine andere Floskel lesen.<\/p>\n Anschließend folgen die drei eigentlichen Elemente einer E-Mail:<\/p>\n Danach folgen die beiden wichtigsten Informationen: Die übermittlung des Adressaten sowie des Absenders der Mail. In beiden Fällen ist man mit der Großschreibung der Befehle, dem Einfassen der Adressen in spitzen Klammern und dem Verzicht auf Leerzeichen zwischen Doppelpunkt und Adresse auf der sicheren Seite. Soweit der SMTP-Server alle bisherigen Angaben akzeptiert, sendet er jeweils den Code 250 als Bestätigung der Ausführung der Kommandos zurück – unter Umständen ergänzt durch weitere, serverabhängige Floskeln.<\/p>\n Anschließend leitet man durch die Anweisung DATA die Eingabe der Header-Informationen und des eigentlichen Inhalts der Mail ein.<\/p>\n Während die soeben genannten Daten quasi den Briefumschlag der Mail darstellen und für die eigentliche Versendung wichtig sind, folgen nun einige Daten, die bei einem normalen Brief auch innerhalb des Umschlags auf dem Brief selbst stehen würden. Dazu gehören folgende Informationen:<\/p>\n Es gibt noch eine Reihe weiterer Header, deren Beschreibung allerdings den Rahmen dieses Beitrags sprengen würde. Weitere Informationen findet man unter der folgenden Internetadresse (ohne Zeilenumbruch): http:\/\/sites.inka.de\/ancalagon\/faq\/headerfaq.html <\/p>\n Nach den Headerzeilen folgt in der Regel der eigentliche Inhalt einer Mail. Diesen schreibt man einfach ohne weitere Angaben in die dem letzten Header folgende Zeile. Dabei kann man beliebige Zeichen und auch Leerzeilen verwenden.<\/p>\n Das Absenden der Mail initiiert man durch die Eingabe eines einzelnen Punktes in einer Zeile. Der Server akzeptiert die Mail dann entweder mit dem Code 250 oder „meckert“, wenn ein Header nicht den Konventionen entsprechen sollte.<\/p>\n In ersterem Fall ist die Mail damit verschickt und trifft in Kürze beim Empfänger ein – zumindest, sofern nicht vorher ein Viren- oder Spamprogramm auf den Plan tritt und die Mail aussortiert, ansonsten muss man die eingegebenen Daten überprüfen.<\/p>\n Quellcode 1<\/b><\/p>\n Damit sind die Grundlagen für das Versenden einer Mail per SMTP geklärt. Später kommen noch einige Informationen hinzu, wie man beispielsweise Dateien an eine Mail anhängen oder eine Mail gleichzeitig im Text- und HTML-Format verschicken kann.<\/p>\n Die Grundlage für das Versenden von Mails direkt von Access aus ist die Herstellung einer Verbindung zwischen dem verschickenden Rechner und dem Zielrechner, also dem SMTP-Server. Diese Verbindung realisiert man über die Winsock-Schnittstelle von Microsoft Windows.<\/p>\n Die Prozeduren und Funktionen in den nachfolgenden Beispielen basieren auf der 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 SMTP. 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 Die Verwendung der Winsock-Schnittstelle ist auf den ersten Blick eine sehr umfangreiche und unübersichtliche Geschichte. Dank der Arbeit von John Rhoton reduziert sich das Ganze aber auf einige wesentliche Punkte. In den Beispieldaten, die er eigentlich für die Verwendung in Visual Basic zusammengestellt hat, findet man unter anderem eine recht große Sammlung an API-Funktionen.<\/p>\n <\/p>\n Wer den Umgang mit solchen Funktion nicht gewohnt ist, verstrickt sich dort leicht. Glücklicherweise hat John Rhoton eine Menge Wrapper-Funktionen hinzugefügt, die den eigentlichen Aufruf der API-Funktionen übernehmen und dabei nur die wirklich benötigten Informationen als Parameter erwarten. Die verwendeten API-Funktionen gehören bis auf wenige Ausnahmen der Windows-Bibliothek wsock32.dll an.<\/p>\n Die Beispieldatenbanken zu diesem Beitrag enthalten einige Module, deren Routinen nachfolgend kurz erläutert werden.<\/p>\n Das Modul mdlWinsock<\/b><\/p>\n Dieses Modul enthält die bereits weiter oben erwähnten Deklarationen der API-Funktionen für die Verwendung der Winsock-Schnittstelle.<\/p>\n Außerdem findet man hier die Wrapperfunktionen, die die Arbeit mit API-Funktionen vereinfachen.<\/p>\n Die Funktion StartWinsock erwartet keine Parameter und startet Winsock. Wenn der Start erfolgreich verläuft, gibt die Funktion einige Statusmeldungen im Testfenster aus.<\/p>\n Die Funktion GetIPAdress ermittelt die IP-Adresse des zu verwendenden SMTP-Servers.<\/p>\n Das Verbinden zum SMTP-Server erfolgt durch den Aufruf der beiden Funktionen CreateSocket und ConnectSocket. Die erste sorgt für die Voraussetzung auf dem Client, indem sie ein Handle auf ein Socket von Winsock ermittelt. Die zweite Funktion baut die Verbindung zum SMTP-Server auf, dessen IP-Adresse die Funktion GetIPadress zuvor ermittelt hat.<\/p>\n Der eigentliche Verkehr erfolgt dann durch die beiden Funktionen SendSocket und ReceiveSocket. Die Funktion SendSocket schickt jeweils eine Anweisung an den SMTP-Server.<\/p>\n Die Funktion ReceiveSocket liest die Antwort des SMTP-Servers auf die gesendete Anweisung.<\/p>\n Die Funktion ReleaseSocket beendet schließlich die Verbindung zwischen dem Client und dem SMTP-Server.<\/p>\n Das Modul mdlFileDialog<\/b><\/p>\n Eine der Beispielanwendungen bietet die Möglichkeit zum Anhängen einer Datei an eine Mail. Mit den Funktionen des Moduls mdlFileDialog kann man den Dialog zur Auswahl der anzuhängenden Datei aufrufen. Weitere Informationen zu diesen Funktionen finden Sie unter dem folgenden Link (ohne Zeilenumbruch): http:\/\/www.access-im-unternehmen.de:8080\/192.0.html<\/p>\n Das Klassenmodul MIMEMessage<\/b><\/p>\n Diese Klasse enthält die Methoden zum Zusammensetzen des eigentlichen Inhalts der Mail, also der Header und des Body. Eine Beschreibung der notwendigen Funktionen folgt weiter unten in Kapitel 7.<\/p>\n Das KlassenmodulMIMEAttachment<\/b><\/p>\n In dieser Klasse findet man einige Funktionen, mit denen man Dateien in Mail-taugliche Datenpakete umwandelt. Eine Beschreibung dieser Funktionen würde den Rahmen des vorliegenden Beitrags sprengen.<\/p>\n Die nachfolgenden Abschnitte stellen vier unterschiedliche Variationen für den Einsatz von SMTP unter Access vor:<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 2: Das Formular zum Versenden einer E-Mail<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Das ausgefüllte Formular zum Versenden einer Textmail<\/span><\/b><\/p>\n Es folgt nun eine ausführliche Beschreibung des ersten Beispiels, das als Grundlage für die nachfolgenden Beispiele dient.<\/p>\n Die Erläuterung der Besonderheiten der anderen Beispiele folgt im Anschluss.<\/p>\n Versenden einer Textmail<\/b><\/p>\n Wie weiter oben deutlich wurde, erfordert der Versand einer Mail einer Mail eine ganze Menge Informationen. Die Beispiele enthalten jeweils ein Formular, in das der Benutzer die notwendigen Informationen eintragen kann. Das Formular für das erste Beispiel heißt frmEinzelmailText und sieht in der Entwurfsansicht wie in Bild 2 aus.<\/p>\n Das Formular ist in dieser Version nicht an eine Tabelle gebunden. Wenn man das Formular als Grundlage für ein Tool zum Versenden von E-Mails verwenden möchte, würde man vermutlich eine oder mehrere Tabellen mit den relevanten Daten erstellen und das Formular an diese binden.<\/p>\n Für Demozwecke reicht allerdings das ungebundene Formular aus. Ein Tipp: Wenn man beim Ausprobieren nicht immer wieder die Daten neu eingeben möchte, trägt man diese in die jeweilige Standardwert-Eigenschaft der einzelnen Steuerelemente ein.<\/p>\n Noch einfacher ist es, die Beispielwerte in der Beim öffnen-Ereignisprozedur unterzubringen, so kann man die Einträge später auf einen Rutsch wieder entfernen. Quellcode 1 zeigt die erforderlichen Zeilen. Die Anweisung StartWinsock muss das Formular beim öffnen allerdings auf jeden Fall aufrufen. In Bild 3 ist das mit der Routine aus Quellcode 1 ausgefüllte Formular zu sehen.<\/p>\n Die Schaltfläche mit der Beschriftung Senden löst bei Betätigung eine Ereigniseigenschaft die die E-Mail mit den angegebenen Daten versendet. Die entsprechende Ereignisprozedur ist in Quellcode 2 zu finden.<\/p>\n Quellcode 2<\/b><\/p>\n Diese Routine hat keine andere Aufgabe, als die Schritte zu erledigen, die auch in Quellcode 1 durchgeführt werden – dort allerdings bei bestehender und direkter Verbindung zum SMTP-Server via Telnet.<\/p>\n Quellcode 3<\/b><\/p>\n Per VBA ist selbstverständlich ein wenig mehr Aufwand vonnöten. Die Prozedur startet und endet mit dem Ein- und Ausblenden der Sanduhr anstelle des Mauszeigers, damit der Benutzer weiß, dass gerade etwas passiert.<\/p>\n Anschließend deklariert die Routine einige Variablen, unter anderem auch eine Instanz der Klasse MIMEMessage. Dann liest sie den Namen des SMTP-Servers aus dem Textfeld txtSMTPServer ein und ermittelt über die Funktion GetIPAdress die IP-Adresse des Servers. Die bereits weiter oben erläuterten Funktionen CreateSocket und ConnectSocket stellen die Verbindung zum Server her.<\/p>\n Danach sendet die Routine die HELO-Anweisung sowie die Informationen über den Sender und den Adressaten der Mail. Zu allen Sendevorgängen ermittelt die Prozedur die erforderlichen Parameter aus den jeweiligen Textfeldern des Formulars.<\/p>\n Nach dem Senden der DATA-Anweisung setzt die Routine die eigentliche Nachricht im MIMEMessage-Objekt zusammen.<\/p>\n Um die Header-Daten zusammenzustellen, ruft die Prozedur jeweils die AddHeader-Methode des MIMEMessage-Objekts auf. Diese erwartet als Parameter die Bezeichnung des Headers (ohne Doppelpunkt) und den zu übergebenden Wert.<\/p>\n Interessant ist die übergabe des Datums: Für eine zuverlässige Anzeige in allen gängigen E-Mail-Clients ist die Verwendung eines speziellen Formats erforderlich. Dieses sieht beispielsweise folgendermaßen aus:<\/p>\n Nach den Headern folgt der Body der Mail. Der dementsprechende Inhalt des Textfeldes txtPlaintext wird dazu mit der Add-Methode an die Bodylines-Auflistung des MIMEMessage-Objektes angehängt.<\/p>\n Nun kommt die Methode ComposeSimple der MIMEMessage-Klasse zum Zuge (s. Quellcode 3).<\/p>\n Sie schnappt sich alle bisher übergebenen Header samt Bezeichnung und Inhalt, fügt noch die beiden Header<\/p>\n und<\/p>\n hinzu und ergänzt das Ganze um den Body.<\/p>\n Das auf diese Weise – wie beispielsweise in Quellcode 4 – zusammengesetzte Gebilde schickt die Routine cmdSend_Click dann Zeile für Zeile mit der SendSocket-Funktion an den SMTP-Server.<\/p>\n Bleibt noch, den Punkt (.) als abschließendes Zeichen zu schicken und mit der Anweisung quit den Datenverkehr mit dem SMTP-Server zu beenden.<\/p>\n Quellcode 4<\/b><\/p>\n <\/b><\/p>\n Bild 4: Formular zum Versenden von Mails mit Anhang<\/span><\/b><\/p>\n Versenden einer Textmail mitAttachment<\/b><\/p>\n Das Versenden einer Mail mit Attachment unterscheidet sich nicht wesentlich vom Versenden einer einfachen Mail. Im Formular zur Eingabe der Daten kann man neben den bereits bekannten Informationen noch ein Attachment auswählen (siehe Bild 4).<\/p>\n Die zum Versenden notwendige Routine unterscheidet sich lediglich an einer Stelle von der aus Quellcode 2. Statt der Zeile<\/p>\n kommen die folgenden Anweisungen zum Einsatz:<\/p>\n Dabei überprüft die Routine zunächst, ob der Benutzer ein Attachment angegeben hat und ruft dann die Methode AddAttachment der Klasse MIMEMessage auf. Diese reicht die Aufgabe direkt an die Klasse MIMEAttachment weiter, die Datei in ein versendbares Format umwandelt.<\/p>\n Außerdem kommt statt der Methode ComposeSimple (s. Quellcode 5) des Klassenmoduls MIMEMessage die Methode ComposeSimpleWithAttachment zum Zuge.<\/p>\n Diese Methode unterscheidet sich wesentlich von der Methode ComposeSimple. Sie erstellt eine etwas kompliziertere Kombination aus Header und Body (s. Quellcode 6).<\/p>\n Um die Vorgehensweise zu verstehen, ist ein etwas tieferer Einblick in den Aufbau von E-Mails notwendig, die aus mehreren Teilen bestehen – in dem Fall aus einem Textteil und einem Anhang.<\/p>\n Um in einer E-Mail mehrere Teile unterzubringen, muss man zunächst für den Header CONTENT-TYPE den Wert multipart\/mixed verwenden. Zusätzlich ermittelt man eine Zeichenkette für den Parameter boundary. Dieser muss unbedingt eindeutig sein, um Verwechselungen mit eventuell vorhandenen untergeordneten mehrteiligen Body-Teilen zu vermeiden.<\/p>\n Quellcode 5<\/b><\/p>\n Ist diese Zeichenkette einmal ermittelt (wie im Beispiel –Boundary.7682531.4953315–), verwendet man diese, um weitere neue Bestandteile einer mehrteiligen Mail einzuleiten.<\/p>\n Dabei stellt man dem Ausdruck zwei Minuszeichen voran (–). Um das Ende des letzten Teilabschnitts des Body zu kennzeichnen, verwendet man erneut diesen Ausdruck, schließt ihn aber in dem Fall in doppelte Minuszeichen ein.<\/p>\n Der Inhalt von Quellcode 6 zeigt dies recht deutlich: Nach dem einführenden —-Boundary… folgt zunächst der Textteil der Mail, den der E-Mail-Client auch als Inhalt anzeigt. Die gleiche Zeichenkette leitet auch den danach folgenden Teil ein. Dieser Teil enthält den Hinweis, dass es sich bei dem Inhalt um einen anderen Content-Type handelt, nämlich application\/octet-stream. Der nachfolgende Parameter Content-Transfer-Encoding gibt das Format des Inhalts an. Anschließend folgt der eigentliche Inhalt in Form einer Base64-codierten Zeichenfolge. Der empfangende Mail-Client erzeugt daraus wieder das ursprüngliche Format.<\/p>\n Quellcode 6<\/b><\/p>\n Versenden einer kombinierten Mail mit Plain Text und HTML<\/b><\/p>\n Wer seinen Mail-Editor im Textmodus betreibt, der schüttelt sich gelegentlich beim Anblick diverser Mails, die unter Umständen mühevoll im HTML-Format erstellt wurden, aber im Textmodus einfach nur schauderhaft aussehen. um dies zu verhindern, kann man auch eine Text- und eine HTML-Version des Inhalts in einer Mail versenden, wobei der E-Mail-Client sich dann unter normalerweise die richtige Version heraussucht. Und wenn der Leser einen textbasierten Client verwendet, findet man die HTML-Version im Anhang der Mail vor und kann sie per Doppelklick im Browser anzeigen.<\/p>\n Das Formular aus Bild 5 dient Versenden einer Mail, die den Inhalt im Text- und im HTML-Format enthält. Dazu enthält das Formular zwei entsprechende Eingabefelder.<\/p>\n Die Technik zur Zusammenstellung der Mail ist ähnlich der beim Versenden von Mails mit Anhängen. Man gibt lediglich als Content-Type den Wert multipart\/alternative an und fügt den HTML-Part als zweiten, gleichberechtigten Inhalt des Mailbody ein. Die entsprechenden Routinen sind im Klassenmodul des Formulars frmEinzelmailTextUndHTML und im Klassenmodul MIMEMessage (ComposeSimpleHTMLAndPlain) zu finden.<\/p>\n Versenden einer Mail an mehrere Empfänger<\/b><\/p>\n Bleibt noch die Möglichkeit, eine Mail an mehrere Absender zu versenden, beispielsweise um andere Empfänger als CC: oder BCC: zu berücksichtigen. Das Formular aus Bild 6 greift dies auf und enthält eine Funktion, mit der man einer Mail neben dem Hauptempfänger mehrere weitere E-Mail-Adressen hinzufügen kann. Dabei dienen die beiden Kombinationsfelder Quelltabelle und Quellfeld dazu, eine Tabelle und aus dieser Tabelle das Feld mit einer E-Mail-Adresse auszuwählen.<\/p>\n <\/b><\/p>\n Bild 5: Gleichzeitiges Versenden von Plain Text und HTML<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Formular zum Versenden von Mail an mehrere Empfänger<\/span><\/b><\/p>\n Technisch gesehen passiert hier nicht mehr, als dass in der Routine zur Durchführung des Mailverkehrs zum SMTP-Servers um die Stelle, an der der Empfänger mit RCPT TO: festgelegt wird, eine Schleife läuft, die nacheinander alle im Listenfeld angezeigten E-Mail-Adressen einträgt. Dabei verschickt die Anwendung die Mail zwar wie gehabt nur einmal, diese geht aber an alle angegebenen Adressaten. Dadurch verliert die Mail natürlich die persönliche Note, weil jeder Adressat die gleiche, im Header angegebene Adresse sieht. Wenn alle Mails mit einem individuellen Empfänger ausgestattet sein sollen, würde man eine Schleife um den kompletten Sendevorgang legen und dabei den Empfänger sowohl beim Envelope unter RCPT TO als auch beim Header unter To eintragen. Dann kann man auch direkt eine persönliche Anrede im Body unterbringen. Dadurch dauert der Vorgang natürlich je nach der Anzahl der Adressaten möglicherweise recht lange. Anderenfalls soll an dieser Stelle auch erwähnt werden, dass eine Mail mit mehreren Adressaten zwar in einem Rutsch zum SMTP-Server gelangen, aber irgendwann ja auch mal in unterschiedliche Mails für die verschiedenen Empfänger aufgeteilt werden müssen.<\/p>\n Die hier vorgestellten Grundlagen und Methoden decken natürlich noch nicht alle Möglichkeiten ab, bilden aber eine solide Grundlage für die Integration von Funktionen zum Versenden von Mail in eigene Anwendungen. Damit könnte man beispielsweise Anwendungen ausstatten, die beim Kunden laufen und beim Auftreten von Fehlern direkt den Hersteller benachrichtigen sollen – natürlich nicht ohne Erlaubnis des Kunden. Mit der in einer der nächsten Ausgaben vorgestellten POP3-Funktionalität kann man die so gesendeten Benachrichtigungen direkt per Datenbank vom Mailserver abholen und zur Verarbeitung vorbereiten.<\/p>\n Enthaltene Beispieldateien:<\/p>\n AccessMails2000.mdb<\/p>\ntelnet post.strato.de 25<\/pre>\n
Der Umschlag der Mail<\/h3>\n
Der Briefkopf<\/h3>\n
Hinweis<\/h3>\n
Der Inhalt<\/h3>\n
220 post.webmailer.de ESMTP Sendmail 8.12.10\/8.12.10; Thu, 8 Jul 2004 09:44:57 +0200 (MEST)\r\nHELO Mein Rechnername\r\n250 post.webmailer.de Hello pD9561037.dip.t-dialin.net [217.86.16.55], pleased to meet you\r\nMAIL FROM:<andre@minhorst.com>\r\n250 2.1.0 <andre@minhorst.com>... Sender ok\r\nRCPT TO:<info@access-im-unternehmen.de>\r\n250 2.1.5 <info@access-im-unternehmen.de>... Recipient ok\r\nDATA\r\n354 Start mail input; end with <CRLF>.<CRLF>\r\nFrom:André Minhorst <andre@minhorst.com>\r\nTo:Info <info@access-im-unternehmen.de>\r\nSubject:Beispielmail für Access im Unternehmen\r\nDate:Thu, 8 Jul 2004 09:44:57 +0200\r\nHallo Access im Unternehmen,\r\ndies ist eine Beispielmail.\r\nViele Grüße\r\nAndré Minhorst\r\n.\r\n250 2.0.0 i687ivHP001747 Message accepted for delivery<\/pre>\n
Starten von Winsock<\/h3>\n
Aktuelle IP-Adresse ermitteln<\/h3>\n
Verbindung erstellen<\/h3>\n
Daten senden und empfangen<\/h3>\n
Socket verabschieden<\/h3>\n
Private Sub Form_Open(Cancel As Integer)\r\n Me.txtSMTPServer = \"smtp.beispielserver.de\"\r\n Me.txtFrom = \"info@beispielserver.de\"\r\n Me.txtTo = \"info@access-im-unternehmen.de\"\r\n Me.txtSubject = \"Testmail\"\r\n Me.txtPlaintext = \"Dies ist eine Testmail.\"\r\n Me.txtPort = 25\r\n Me.txtSendername = \"André Minhorst\"\r\n Me.txtSenderEMail = \"info@beispielserver.de\"\r\n Debug.Print StartWinSock\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{191FEA1C-8A1E-4E7F-9641-F4699A161DBD}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{191FEA1C-8A1E-4E7F-9641-F4699A161DBD}\/pic003.png\")
<\/p>\nPrivate Sub cmdSend_Click()\r\n DoCmd.Hourglass True\r\n Dim lngSMTPSocket As Long\r\n Dim lngServerAddress As Long\r\n Dim strServerName As String\r\n Dim strServerResponse As String\r\n Dim mmsgCurrentMessage As New MIMEMessage\r\n Dim strCurrentLine\r\n Dim intStatus As Boolean\r\n lngSMTPSocket = 0\r\n strServerName = Me.txtSMTPServer\r\n intStatus = GetIPAddress(lngServerAddress, strServerName)\r\n intStatus = CreateSocket(lngSMTPSocket, 0)\r\n intStatus = ConnectSocket(lngSMTPSocket, lngServerAddress, Me.txtPort)\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n intStatus = SendSocket(lngSMTPSocket, \"HELO \" + Me.txtSMTPServer)\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n intStatus = SendSocket(lngSMTPSocket, \"mail from:<\" + Me.txtFrom + \">\")\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n intStatus = SendSocket(lngSMTPSocket, \"rcpt to:<\" + Me.txtTo + \">\")\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n intStatus = SendSocket(lngSMTPSocket, \"data\")\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n mmsgCurrentMessage.AddHeader \"From\", Me!txtSendername & \" <\" _ & Me!txtSenderEMail & \">\"\r\n mmsgCurrentMessage.AddHeader \"To\", Me!txtTo\r\n mmsgCurrentMessage.AddHeader \"Subject\", Me!txtSubject\r\n mmsgCurrentMessage.AddHeader \"Date\", Choose(Weekday(Date), \"Sun\", \"Mon\", \"Tue\", _ \"Wed\", \"Thu\", \"Fri\", \"Sat\") & \", \" & Format(Now, \"d\") & \" \" _ & Choose(Month(Date), \"Jan\", \"Feb\", \"May\", \"Apr\", \"May\", \"Jun\", \"Jul\", _ \"Aug\", \"Sep\", \"Oct\", \"Nov\", \"Dec\") & \" \" & Format(Now, \"yyyy\") & \" \" _ & Format(Now, \"hh:nn:ss\") & \" +0200\"\r\n mmsgCurrentMessage.BodyLines.Add Me.txtPlaintext\r\n mmsgCurrentMessage.ComposeSimple\r\n For Each strCurrentLine In mmsgCurrentMessage.Lines\r\n intStatus = SendSocket(lngSMTPSocket, CStr(strCurrentLine))\r\n Next\r\n intStatus = SendSocket(lngSMTPSocket, \".\")\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n intStatus = SendSocket(lngSMTPSocket, \"quit\")\r\n intStatus = ReceiveSocket(lngSMTPSocket, strServerResponse)\r\n intStatus = ReleaseSocket(lngSMTPSocket)\r\n DoCmd.Hourglass False\r\nEnd Sub<\/pre>\n
Public Sub ComposeSimple()\r\n Dim rhdrCurrentHeader\r\n Dim mattCurrentAttachment\r\n For Each rhdrCurrentHeader In Headers\r\n Lines.Add CStr(rhdrCurrentHeader.Label) + \": \" _ + CStr(rhdrCurrentHeader.Value)\r\n Next\r\n Lines.Add \"MIME-Version: 1.0\"\r\n Lines.Add \"CONTENT-TYPE: text\/plain; \" _ & \"charset=\"\"ISO-8859-1\"\"\"\r\n Lines.Add \"\"\r\n Dim CurrentLine\r\n For Each CurrentLine In BodyLines\r\n Lines.Add CStr(CurrentLine)\r\n Next\r\nEnd Sub<\/pre>\n
Envelope senden<\/h3>\n
Headerdaten zusammenstellen<\/h3>\n
Thu, 8 Jul 2004 13:36:15 +0200<\/pre>\n
Der Body<\/h3>\n
MIME-Version: 1.0<\/pre>\n
CONTENT-TYPE: text\/plain; charset=\"ISO-8859-1\"<\/pre>\n
From: André Minhorst <info@andre-minhorst.de>\r\nTo: info@access-im-unternehmen.de\r\nSubject: Testmail\r\nSend was OK.\r\nDate: Thu, 8 Jul 2004 13:51:55 +0200\r\nMIME-Version: 1.0\r\nCONTENT-TYPE: text\/plain; charset=\"ISO-8859-1\"\r\nHallo Freunde,\r\ndies ist eine Testmail.\r\nViele Grüße\r\nEuer André<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{191FEA1C-8A1E-4E7F-9641-F4699A161DBD}\/pic004.png\")
<\/p>\nmmsgCurrentMessage.ComposeSimple<\/pre>\n
If Me.txtAttachment <> \"\" And _ Dir(Me.txtAttachment) <> \"\" Then\r\n mmsgCurrentMessage.AddAttachment _ Me.txtAttachment, \"Base64\"\r\nEnd If\r\nmmsgCurrentMessage. _ ComposeSimpleWithAttachment<\/pre>\n
Public Sub ComposeSimpleWithAttachment()\r\n Dim strAttachmentBoundary As String\r\n Dim rhdrCurrentHeader\r\n Dim mattCurrentAttachment\r\n Randomize\r\n strAttachmentBoundary = \"--Boundary\" + Trim(str(Rnd)) + Trim(str(Rnd)) + \"--\"\r\n For Each rhdrCurrentHeader In Headers\r\n Lines.Add CStr(rhdrCurrentHeader.Label) + \": \" + CStr(rhdrCurrentHeader.Value)\r\n Next\r\n Lines.Add \"MIME-Version: 1.0\"\r\n Lines.Add \"CONTENT-TYPE: multipart\/mixed; \" _\r\n + \"boundary=\"\"\" + strAttachmentBoundary + \"\"\"\"\r\n Lines.Add \"\"\r\n Lines.Add \"--\" + strAttachmentBoundary\r\n Lines.Add \"\"\r\n Dim CurrentLine\r\n For Each CurrentLine In BodyLines\r\n Lines.Add CStr(CurrentLine)\r\n Next\r\n Lines.Add \"\"\r\n For Each mattCurrentAttachment In Attachments\r\n Lines.Add \"--\" + strAttachmentBoundary\r\n Lines.Add \"Content-Type: application\/octet-stream; name=\"\"\" _ + Dir(mattCurrentAttachment.Filename) + \"\"\"\"\r\n Lines.Add \"Content-Transfer-Encoding: base64\"\r\n Lines.Add \"\"\r\n For Each CurrentLine In mattCurrentAttachment.Lines\r\n Lines.Add CStr(CurrentLine)\r\n Next\r\n Lines.Add \"\"\r\n Next\r\n Lines.Add \"--\" + strAttachmentBoundary + \"--\"\r\nEnd Sub<\/pre>\n
From: André Minhorst <info@andre-minhorst.de>\r\nTo: info@access-im-unternehmen.de\r\nSubject: Testmail\r\nDate: Thu, 8 Jul 2004 18:41:36 +0200\r\nMIME-Version: 1.0\r\nCONTENT-TYPE: multipart\/mixed; boundary=\"--Boundary.7682531.4953315--\"\r\n----Boundary.7682531.4953315--\r\nDies ist eine Testmail.\r\n----Boundary.7682531.4953315--\r\nContent-Type: application\/octet-stream; name=\"Codezone.zip\"\r\nContent-Transfer-Encoding: base64\r\nUEsDBBQAAAAIAOGJ2DA30HG8ogEAAN8CAAAKAAAAYXV0aG9yLnhtbHVS207jMBB9X2n\/IfK765Sm\r\nUJAbtqVUQuLywPIBxp4mFokd2RPa7h\/vX+wkKdCuhBQlM2duZ85EXu\/qKnmHEK13czYepSwBp72x\r\nrpizu+cnPptNL\/mYJRGVM6ryDubMeXad\/\/whtXcIDhPcN4Q21MU7llBHFz\/c0S4adjKAJhStNXM2\r\nzS5u1reLCb9Z3GY8u1hc8uVskvLlarxerleT6XI9obm+DRruKL9EbK6E2G63I6U1xMhtzVtiEByU\r\n...\r\nNbiRAcFyWQOqXKLFCvKFM+Fv8mBd6UNEKQZUGog62AaJksjlMIGMNlT01gFUF1kphPwsTTOenvOz\r\n7HeaXvWPFCcZslIRXxpD9vcV\/+X0HO+9VkTGgBRH7oemR9FTRP6xTcfS4r7jjgEAO5\/6Fj5YiOS8\r\n----Boundary.7682531.4953315----\r\n.<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{191FEA1C-8A1E-4E7F-9641-F4699A161DBD}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{191FEA1C-8A1E-4E7F-9641-F4699A161DBD}\/pic006.png\")
<\/p>\nDownloads zu diesem Beitrag<\/h3>\n