<\/p>\n
Lernen Sie eine Anwendung zum Versenden von Serienmails mit Platzhaltern kennen.<\/p>\n
VBA, Formulare, SMTP<\/p>\n
Access 2000 und höher<\/p>\n
Serienmail.mdb, SendMail2.dll<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Serienmails verschicken – das ist doch ganz einfach, oder Einfach die Mail mit Outlook erstellen, Empfänger eintragen und ab die Post! Klar, wenn man keine besonderen Ansprüche hat, kann man das so machen. Wer allerdings den Inhalt der Serienmail personalisieren oder eine Historie der versendeten Mails inklusive Verteilerliste pflegen möchte, braucht ein spezielles Stück Software. Im vorliegenden Beitrag stellen wir Ihnen genau das richtige vor.<\/b><\/p>\n
Das Serienmail-Tool bietet einige Funktionen zum Versenden personalisierter E-Mails:<\/p>\n
Die Benutzeroberfläche der Musterlösung besteht im Wesentlichen aus dem in Bild 1 dargestellten Formular.<\/p>\n
Achtung: Die Anwendung prüft vor dem Versand von E-Mails nicht, ob eine Verbindung zum Internet besteht. <\/p>\n
Die E-Mail-Funktionen der Musterlösung sind in einer DLL gekapselt, die Sie zuvor auf Ihre Festplatte kopieren und registrieren müssen.<\/p>\n
Am besten kopieren Sie diese in das Verzeichnis c:\\Windows\\System32; dort befinden sich auch die meisten anderen DLLs. Um die Komponente zu registrieren, geben Sie im Ausführen-Dialog von Windows folgende Anweisung innerhalb einer Zeile ein:<\/p>\n
RegSvr32.exe c:\\Windows\\System32\\SendMail2.dll<\/pre>\n
<\/p>\n
<\/b><\/p>\n
Bild 1: Das Hauptformular des Serienmail-Tools<\/span><\/b><\/p>\n
Bevor man mit dem Serienmail-Tool eine E-Mail an mehrere Empfänger versenden kann, sind eine Reihe von Eingaben zu tätigen.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 2: Absenderinformationen einer Serien-E-Mail<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 3: Eingabe des Servernamens und des Ports<\/span><\/b><\/p>\n
Absender-Informationen<\/b><\/p>\n
Jede E-Mail hat einen Absender. Dieser wird in einer Mail direkt mehrfach benötigt: einmal auf dem „Umschlag“ (aufgrund dieser Informationen können die SMTP-Server die Mail vom Absender zum Adressaten transportieren) und einmal in der Mail selbst. So können Sie auch mit dem Serienmail-Tool verschiedene Absenderangaben machen: Die unter „Von:“ angegebene Adresse ist der Absender auf dem Umschlag, und die beiden Absenderinformationen unter Absendername und Absender-E-Mail können Sie beispielsweise im E-Mail-Client lesen (siehe Bild 2).<\/p>\n
Das Sendedatum tragen Sie nur für statistische Zwecke ein, das Tool speichert ohnehin zu jedem Empfänger die exakte Sendezeit mit Datum und Uhrzeit.<\/p>\n
SMTP-Server<\/b><\/p>\n
ähnlich wie bei einem herkömmlichen E-Mail-Client, zum Beispiel: Outlook, müssen Sie auch dem Serienmail-Tool die SMTP-Adresse des Servers mitteilen (bei web.de heißt diese beispielsweise smtp.web.de, bei GMX mail.gmx.de – die passende Adresse erfahren Sie vom jeweiligen Anbieter). SMTP verwendet üblicherweise Port 25 des Servers (siehe Bild 3).<\/p>\n
SMTP_AUTH und SMTP after POP<\/h3>\n
Manche SMTP-Server sind durch die eine oder andere Art der Authentifizierung vor dem unbefugten Zugriff geschützt. Die gängigsten Varianten sind SMTP after POP und SMTP_AUTH.<\/p>\n
Bei SMTP after POP muss man sich vor dem Versenden von E-Mails via SMTP am POP3-Konto angemeldet haben, um eingegangene E-Mails abzurufen.<\/p>\n
Bei SMTP_AUTH meldet man sich mit einem eigens für das Versenden vorgesehenen Kennwort beim SMTP-Server an. Das Serienmail-Tool sieht beide Möglichkeiten vor. Die notwendigen Einstellungen nehmen Sie in dem in Bild 4 gezeigten Bereich des Hauptformulars vor. Die Option Keine ist angemessen, wenn Ihr SMTP-Server keine Authentifizierung vornimmt, etwa, weil er ohnehin jedem Rechner im eigenen LAN zu Diensten ist. Die Auswahl von SMTP after POP3 aktiviert die beiden Textfelder Kennwort und POP3-Server – hier müssen Sie die notwendigen Daten eintragen. Welche dies sind, erfahren Sie vom jeweiligen E-Mail-Provider oder in den Einstellungen Ihres Mail-Client, wenn dieser schon konfiguriert ist. Die gesuchten Informationen finden Sie etwa bei Outlook, wenn Sie unter Extras\/E-Mail-Konten… auf „Vorhandene E-Mail-Konten anzeigen oder bearbeiten“ klicken.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 4: Das Serienmail-Tool bietet verschiedene Authentifizierungsmöglichkeiten.<\/span><\/b><\/p>\n
Die Option SMTP_AUTH wiederum erfordert lediglich die Angabe eines Kennworts. Bei einigen Providern entspricht dieses Kennwort dem POP3-Kennwort.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 5: Plaintext und HTML-Text für die Serienmail<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 6: HTML-Ansicht der Serienmail<\/span><\/b><\/p>\n
E-Mail-Inhalt<\/b><\/p>\n
Die meisten E-Mails enthalten entweder reinen Text oder HTML-Text. Mit reinem Text macht man nichts falsch, dieser wird von allen E-Mail-Clients ohne Probleme angezeigt. HTML-Mails können unter Umständen Probleme verursachen, wenn der Inhalt wegen der Formatierungen „zerschossen“ wird oder die Anzeige von HTML im Mail-Client des Empfängers ausgeschaltet ist.<\/p>\n
Das Serienmail-Tool erlaubt die Verwendung beider Formate. Dabei können Sie entweder festlegen, dass alle Empfänger mit dem gleichen Format versorgt werden oder das Format für jeden Empfänger individuell festlegen.<\/p>\n
Der passende Bereich des Formulars frmSerienmail sieht wie in Bild 5 aus. Mit der Option Standardformat legen Sie fest, ob normalerweise der Inhalt des Feldes Inhalt (Plaintext) oder der des Feldes Inhalt (HTML) als Inhalt der Mail verwendet wird. „Normalerweise“ deshalb, weil Sie das verwendete Format auch individuell je Empfänger festlegen können – dazu später mehr.<\/p>\n
Wenn Sie auf die Schaltfläche HTML-Ansicht anzeigen klicken, erscheint ein separates Formular mit der passenden Darstellung (siehe Bild 6).<\/p>\n
Empfänger-Informationen festlegen<\/b><\/p>\n
Es fehlen noch die Informationen, welche Adressaten die Serienmail erreichen soll.<\/p>\n
Diese Daten müssen Sie in einer Tabelle bereitstellen, die in jeder Zeile zumindest die folgenden Felder enthält:<\/p>\n
Primärschlüsselfeld<\/li>\n Feld mit der E-Mail-Adresse<\/li>\n Optional kann ein weiteres Feld festlegen, ob der jeweilige Empfänger die E-Mail im HTML- oder im Plaintext-Format erhalten soll.<\/p>\n
Für personalisierte Serienmails, in denen Sie etwa den Empfänger mit Vor- und Nachnamen anreden möchten, muss die Tabelle ebenfalls die passenden Daten liefern. Bild 7 zeigt ein Beispiel für den Aufbau einer solchen Tabelle.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 7: Beispiel einer geeigneten Datenherkunft für das Serienmail-Tool<\/span><\/b><\/p>\n
Die Ermittlung der zu verwendenden Informationen erfolgt in den folgenden Schritten:<\/p>\n
Zunächst stellen Sie eine Tabelle oder Abfrage bereit, aus der das Tool die E-Mail-Adressen beziehen soll. Dabei kann es sich durchaus um eine verknüpfte Tabelle handeln.<\/li>\n Legen Sie die Tabelle oder Abfrage mit den E-Mail-Adressen im Kombinationsfeld Tabelle des Hauptformulars fest (siehe Bild 8).<\/li>\n Diese Auswahl aktualisiert den Inhalt der Kombinationsfelder mit der Beschriftung Primärschlüsselfeld und Feld der E-Mail-Adresse und füllt diese mit allen in der Tabelle enthaltenen Feldern. Wählen Sie hier die passenden Felder aus.<\/li>\n Wenn die Tabelle ein Feld enthält, das je Empfänger angibt, ob die E-Mail im HTML- oder im Plaintext-Format versendet werden soll, stellen Sie die Option HTML individuell auswählen auf Ja ein.<\/li>\n Haben Sie die Option im vorherigen Schritt auf Ja eingestellt, wählen Sie im Kombinationsfeld Feld HTML Ja\/Nein noch das Feld aus, das einen passenden Booleschen Wert enthält. (<\/li>\n Fertig! Mit diesen Einstellungen können Sie bereits die erste Serienmail verschicken.<\/p>\n
Personalisierte Serienmails<\/h3>\n
Vermutlich wollen Sie den Inhalt der Serienmail mit einigen dynamischen Elementen füllen – etwa, um den Empfänger mit „Sehr geehrter Herr Minhorst“ persönlich anzusprechen.<\/p>\n
Dazu sieht das Serienmail-Tool den Einsatz von Platzhaltern vor, die es zusammen mit den Mails in der Datenbank speichert. Um die Platzhalter festzulegen, müssen Sie zwei Voraussetzungen erfüllen:<\/p>\n
Die im Kombinationsfeld Tabelle ausgewählte Tabelle enthält für jeden Platzhalter eine Spalte mit den einzufügenden Inhalten.<\/li>\n Der Plaintext- und der HTML-Inhalt weisen in eckige Klammern gesetzte Platzhalter auf (diese müssen nicht unbedingt in beiden Formaten auftauchen).<\/li>\n Ist dies beides erfüllt, klicken Sie einfach auf die Schaltfläche Platzhalter aktualisieren. Das Unterformular mit der überschrift Quellfelder der Platzhalter listet dann in der linken Spalte alle in den Mail-Inhalten gefundenen Platzhalter auf – also alle in eckigen Klammern eingefassten Zeichenketten. In der rechten Spalte können Sie eines dieser Felder auswählen. Dessen Inhalt wird dann vor dem Verschicken für den entsprechenden Platzhalter eingesetzt (siehe Bild 8).<\/p>\n
<\/p>\n
Wenn Sie den Inhalten nachträglich Platzhalter hinzugefügt haben, können Sie entweder erneut alle Platzhalter einlesen, wobei alle angegebenen Quellfelder gelöscht werden, oder den neuen Platzhalter manuell in die Liste eintragen.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 8: Die Empfänger-Informationen enthalten auch die Einstellungen für die Platzhalter in personalisierten E-Mails.<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 9: Weitere Funktionen des Tools: Versenden der Mail, Kopieren eines Newsletters und Anzeigen der Empfängerliste<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 10: Anzeige der Empfänger einer Serien-E-Mail mit Angabe des Versandzeitpunkts<\/span><\/b><\/p>\n
Weitere Möglichkeiten<\/b><\/p>\n
Das Hauptformular bietet drei weitere Steuerelemente (siehe Bild 9):<\/p>\n
Mit der Schaltfläche Mail versenden bringen Sie die Serienmail auf den Weg.<\/li>\n Die Schaltfläche E-Mail kopieren erstellt eine neue E-Mail auf Basis der aktuell angezeigten E-Mail. Auf diese Weise sparen Sie sich die Neueingabe konstanter Informationen wie SMTP-Server oder Absender-Angaben.<\/li>\n Die Schaltfläche Empfänger anzeigen öffnet ein weiteres Formular, das die Empfänger der aktuellen E-Mail auflistet (siehe Bild 10).<\/li>\n Das Formular aus Bild 10 offenbart ein weiteres Feature, das auf den ersten Blick nicht offensichtlich ist: Das Tool merkt sich, welche Mail an welche Empfänger verschickt wurde. Hat der Versand einmal nicht geklappt, speichert es dennoch die Versandinformationen inklusive dem Hinweis, dass die Mail nicht erfolgreich versendet wurde, und dem Grund für das Fehlschlagen.<\/p>\n
Wenn man den Versand erneut startet, verschickt das Tool die E-Mail nur noch an Empfänger, die die Mail noch nicht erhalten haben.<\/p>\n
Das Datenmodell, auf dem das vorgestellte Werkzeug aufbaut, besteht aus fünf miteinander verknüpften Tabellen (siehe Bild 11). Die Haupttabelle heißt tblEMails. Sie enthält die meisten der im Formular frmSerienmail abgebildeten Informationen. Die Empfänger der Mail werden im Hauptformular nicht explizit angezeigt. Trotzdem speichert die Datenbank diese Angaben, und zwar inklusive Versanddatum.<\/p>\n
Dabei werden alle Versuche, eine E-Mail zu versenden, protokolliert – auch die gescheiterten. Diese Informationen hält das Tool in der Tabelle tblEMailsEmpfaenger fest. Die Empfänger schreibt es nicht direkt in diese, sondern in eine weitere Tabelle namens tblEmpfaenger. Dies hat den Grund, dass man vermutlich regelmäßig E-Mails an den gleichen Kreis von Empfängern versendet. Damit deren E-Mail-Adresse nicht mit jedem Versand neu gespeichert werden muss, wird jede E-Mail-Adresse einmalig in der Tabelle tblEmpfaenger gespeichert.<\/p>\n
Die Tabelle tblPlatzhalter speichert sowohl die Platzhalter als auch die Felder, aus denen die Platzhalter gespeist werden sollen. Die Tabelle ist über das Feld EMailID mit der Tabelle tblEMails verbunden.<\/p>\n
Das technische Highlight der Anwendung ist die DLL SendMail2.dll, die Sascha Trowitzsch zusammengestellt hat. Die darin enthaltene Klasse vbSendMail2 bietet alle Möglichkeiten zum Senden von E-Mails über das SMTP-Protokoll.<\/p>\n
Dazu gehören Eigenschaften zum Festlegen aller Informationen, die in der Tabelle tblEMails enthalten sind und die der Anwender über das Formular frmSerienmail eingeben kann. Außerdem gibt es dort eine Methode namens Send zum Verschicken einer E-Mail. Besonders hilfreich sind die von der Klasse bereitgestellten Ereigniseigenschaften, mit denen man auf bestimmte Ereignisse wie das erfolgreiche Versenden oder das Scheitern eines Sendevorgangs reagieren kann – dazu später mehr.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 11: Datenmodell des Serienmail-Tools<\/span><\/b><\/p>\n
Datenherkunft mit E-Mail-Empfängern auswählen<\/b><\/p>\n
Technisch interessant ist die Anzeige der Tabellen und Abfragen mitsamt darin enthaltenen Feldern, welche mit der in Bild 12 gezeigten Abfrage ermittelt werden.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 12: Diese Abfrage ermittelt alle Tabellen und Abfragen einer Datenbank.<\/span><\/b><\/p>\n
Das Kombinationsfeld cboSourceObject verwendet diese Abfrage, um die in der Datenbank enthaltenen Tabellen und Abfragen anzuzeigen. Dazu stellen Sie die Eigenschaft Datensatzherkunft auf diese Abfrage ein.<\/p>\n
Damit der Tabellenname in der dem Formular zugrunde liegenden Tabelle gespeichert wird, stellen Sie außerdem die Eigenschaft Steuerelementinhalt auf das Feld EMailTabelle ein.<\/p>\n
Diese basiert auf der Systemtabelle MSysObjects und zeigt die Namen der Objekte an, deren Feld Type den Wert 1 (Tabelle) oder 5 (Abfrage) und deren Feld Flag den Wert 0 aufweist.<\/p>\n
Nach Sie einen Eintrag dieser Tabelle ausgewählt haben, sollen die Kombinationsfelder cboPrimaerschluesselfeld, cboSourcefieldMail und cboSourceFieldHTML desselben Formulars sowie das Kombinationsfeld Quellfeld des Unterformulars frmPlatzhalter aktualisiert werden und anschließend die Felder der aktuell ausgewählten Datenherkunft anzeigen.<\/p>\n
Die passende Prozedur heißt cboSourceFieldMail_Aktualisieren. Sie wird unter anderem von der Ereignisprozedur aufgerufen, die nach dem Aktualisieren des Kombinationsfelds cboSourceObject, aber auch direkt beim öffnen des Formulars ausgelöst wird.<\/p>\n
Quellcode 1 enthält die Ereignisprozedur Nach Aktualisierung des Kombinationsfeldes cboSourceObject und die dadurch aufgerufene Prozedur.<\/p>\n
Letztere prüft zunächst, ob im Kombinationsfeld cboSourceObject eine Tabelle oder eine Abfrage ausgewählt wurde. Abhängig davon erzeugt sie entweder ein TableDef-Objekt (bei einer Tabelle) oder ein QueryDef-Objekt (Abfrage).<\/p>\n
Anschließend durchläuft die Prozedur alle Elemente des jeweiligen Objekts und stellt diese durch Semikola getrennt zu einer String-Variablen zusammen.<\/p>\n
Quellcode 1: Aktualisieren der Kombinationsfelder zur Auswahl der Felder der Datenherkunft<\/b><\/p>\n
Private Sub cboSourceObject_AfterUpdate()\r\n cboSourceFields_Aktualisieren\r\nEnd Sub\r\nPrivate Sub cboSourceFields_Aktualisieren()\r\n ''... Deklarationsteil (siehe Beispieldatenbank)\r\n Set db = CurrentDb\r\n Select Case Me!cboSourceObject.Column(1)\r\n Case 1\r\n Set Obj = db.TableDefs(Me!cboSourceObject)\r\n Case 5\r\n Set Obj = db.QueryDefs(Me!cboSourceObject)\r\n Case Else\r\n Exit Sub\r\n End Select\r\n For Each fld In Obj.Fields\r\n str = str & fld.name & \";\"\r\n Next fld\r\n str = Left(str, Len(str) - 1)\r\n Me!cboSourcefieldMail.RowSource = str\r\n Me!cboSourceFieldHTML.RowSource = str\r\n Me!cboPrimaerschluesselfeld.RowSource = str\r\n Me!frmPlatzhalter.Form.cboQuellfeld.RowSource = str\r\nEnd Sub<\/pre>\nQuellcode 2: öffnen eines Formulars zur Anzeige eines HTML-Dokuments<\/b><\/p>\n
Private Sub cmdHTMLAnzeigen_Click()\r\n DoCmd.OpenForm \"frmHTML\", WindowMode:=acDialog, _ OpenArgs:=Me!InhaltHTML\r\nEnd Sub<\/pre>\nQuellcode 3: Erstellen einer neuen Textdatei<\/b><\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n Me!ctlWebbrowser.Navigate \"about:blank\"\r\n Me!ctlWebbrowser.Document.Write Me.OpenArgs\r\nEnd Sub<\/pre>\nDiese Zeichenkette weist sie schließlich der jeweiligen Datensatzherkunft zu und stellt gleichzeitig die Eigenschaft Herkunftsart auf Wertliste ein.<\/p>\n
Anzeigen der HTML-Ansicht<\/b><\/p>\n
Die Schaltfläche cmdHTMLAnzeigen rendert auf Mausklick den HTML-Text der bearbeiteten Mail.<\/p>\n
Dies geschieht auf einem kleinen Umweg: Die Routine, die beim Klicken der Schaltfläche ausgelöst wird, öffnet das Formular frmHTML und übergibt den aktuellen HTML-Code als öffnungsargument (s. Quellcode 2).<\/p>\n
Das Formular frmHTML besteht lediglich aus einem Webbrowser-Steuerelement sowie einer Schaltfläche zum Schließen des Formulars.<\/p>\n
Das öffnen dieses Formulars löst die Ereignisprozedur Form_Open mit zwei Anweisungen zum Anzeigen des übergebenen HTML-Dokuments aus (s. Quellcode 3).<\/p>\n
Platzhalter<\/b><\/p>\n
Platzhalter legt man im Quelltext der Text- und der HTML-Version der Serienmail durch in eckige Klammern eingefasste Wörter an – etwa [Vorname] oder [Nachname]. Deren Inhalte sollen mit den passenden Feldern der zugrunde liegenden Datenherkunft gefüttert werden. Dazu muss der Benutzer der Anwendung zunächst einmal mitteilen, welcher Platzhalter mit welchem Feld gefüllt werden soll. Das erfolgt im Unterformular frmPlatzhalter. Dieses enthält als Datenherkunft die Tabelle tblPlatzhalter und zeigt die darin enthaltenen Felder Platzhalter und Quellfeld in der Datenblattansicht an. Das Kombinationsfeld Quellfeld wird ja, wie bereits weiter oben erwähnt, mit den Feldern der verwendeten Datenherkunft für die Serienmail gefüllt.<\/p>\n
Das Unterformular ist über das Feld EMailID mit dem Hauptformular verknüpft, sodass es immer die Platzhalter zu der Serienmail anzeigt, die im Hauptformular zu sehen ist.<\/p>\n
Damit der Benutzer die Platzhalter nur in die Quelltexte der Serienmail schreiben und nicht auch noch in die Liste der Platzhalter eintragen muss, gibt es die Schaltfläche cmdPlatzhalterBearbeiten.<\/p>\n
Quellcode 4: Versenden der Serienmail (Teil 1)<\/b><\/p>\n
Private Sub cmdSenden_Click()\r\n DoCmd.Hourglass True\r\n ''... Deklarationsteil (nicht abgedruckt)\r\n \r\n DoCmd.RunCommand acCmdSaveRecord ''[1]\r\n \r\n Set objMail = New vbSendMail2.asSendMail\r\n \r\n Set db = CurrentDb\r\n Set rstKontakte = db.OpenRecordset(\"SELECT \" & Me!cboPrimaerschluesselfeld & \", \" _ & Me!cboSourcefieldMail & \" FROM \" & Me!cboSourceObject, dbOpenDynaset) ''[2]\r\n rstKontakte.MoveLast\r\n rstKontakte.MoveFirst\r\n intKontakte = rstKontakte.RecordCount ''[3]\r\n Do While Not rstKontakte.EOF\r\n If Nz(DLookup(\"EMailID\", \"qryEmpfaenger\", \"EMailID = \" & Me.EMailID & \" AND EMail = ''\" _ & rstKontakte!EMail & \"'' AND Gesendet = True\"), 0) = 0 Then ''[4]\r\n With objMail\r\n .from = Me.Von\r\n .Subject = Me.Betreff\r\n .Recipient = rstKontakte!EMail\r\n .SMTPHost = Me.SMTPServer\r\n .SMTPPort = Me.Port\r\n<\/pre>\nDiese löst die Ereignisprozedur cmdPlatzhalterBearbeiten_Click aus (siehe Modul Form_frmSerienmail in der Beispieldatenbank), die nach Rückfrage alle Platzhalter der aktuellen Serienmail löscht und für jeden in der Serienmail enthaltenen Platzhalter einen neuen Eintrag anlegt.<\/p>\n
Für das Ermitteln der Platzhalter ist die Prozedur PlatzhalterSchreiben verantwortlich, die jeweils den übergebenen Text auf Zeichenketten in eckigen Klammern untersucht und diese unter Angabe der ID der aktuellen Serienmail in die Tabelle tblPlatzhalter einträgt.<\/p>\n
E-Mails versenden<\/b><\/p>\n
Die Schaltfläche cmdSenden ruft die Ereignisprozedur aus Quellcode 4 auf. Die Prozedur speichert zunächst den aktuellen Datensatz, damit die Mail mit den aktuellen Daten verschickt wird [1]. Anschließend erzeugt sie eine Datensatzgruppe (rstKontakte) auf Basis der als Datenherkunft für die Adressaten angegebene Tabelle oder Abfrage [2] und ermittelt die Anzahl der enthaltenen Datensätze als Grundlage für die Anzeige des Fortschritts in der Statusleiste [3].<\/p>\n
Nun startet das eigentliche Versenden: Dazu durchläuft die Routine in einer Schleife alle Datensätze in der Datensatzgruppe rstKontakte.<\/p>\n
Gleich die erste Zeile prüft, ob die Mail noch nicht an den aktuellen Empfänger gesendet wurde [4] – in dem Fall soll das nicht noch einmal geschehen.<\/p>\n
Die folgenden Zeilen füllen die Eigenschaften des Objekts objMail mit Daten aus zwei Quellen: Allgemeine Daten, die in jeder Mail vorkommen, stammen aus den entsprechenden Feldern des Formulars frmSerienmail, die übrigen sind empfängerspezifisch, werden aus dem aktuell in der Schleife durchlaufenen Datensatz eingelesen und den passenden Eigenschaften zugewiesen.<\/p>\n
Ist im Formular festgelegt, dass die Empfänger ihre E-Mail wahlweise im HTML- und im Plaintext-Format enthalten, ermittelt eine DLookup-Anweisung das für den aktuellen Empfänger gewünschte Format [5]; anderenfalls stellt sie das Standardformat ein [6].<\/p>\n
Quellcode 4: Versenden der Serienmail (Fortsetzung)<\/b><\/p>\n
If Me.ogrHTMLIndividuell = True Then\r\n bolHTML = DLookup(Me!cboSourceFieldHTML, Me!cboSourceObject, _ Me!cboPrimaerschluesselfeld & \" = \" _ & rstKontakte(Me!cboPrimaerschluesselfeld)) ''[5]\r\n Else\r\n bolHTML = Me!ogrStandardformat ''[6]\r\n End If\r\n If bolHTML = True Then ''[7]\r\n .AsHTML = True\r\n .Message = PlatzhalterErsetzen(Me!InhaltHTML, Me!EMailID)\r\n Else\r\n .AsHTML = False\r\n .Message = PlatzhalterErsetzen(Me!Inhalt, Me!EMailID)\r\n End If\r\n Select Case Me.ogrAuthentifizierung ''[8]\r\n Case 1\r\n .UsePopAuthentication = True\r\n .Username = Me.txtFrom\r\n .Password = Nz(Me.txtKennwort, \"\")\r\n .POP3Host = Me.txtPOP3Server\r\n Case 2\r\n .UseAuthentication = True\r\n .Username = Me.txtFrom\r\n .Password = Nz(Me.txtKennwort, \"\")\r\n End Select\r\n .send\r\n If bolGesendet = True Then\r\n intGesendet = intGesendet + 1\r\n End If\r\n EmpfaengerdatenSpeichern rstKontakte(Me!cboSourcefieldMail), _ Me!EMailID, db, bolGesendet, strMeldung ''[9]\r\n End With\r\n Else\r\n intNichtGesendet = intNichtGesendet + 1\r\n End If\r\n SysCmd acSysCmdSetStatus, rstKontakte.AbsolutePosition + 1 & \" von \" & intKontakte _\r\n & \" versendet.\"\r\n rstKontakte.MoveNext\r\n DoEvents\r\n Loop\r\n MsgBox \"Statistik:\" & vbCrLf & \"Anzahl erfolgreich versendeter E-Mails: \" _ & intGesendet & vbCrLf & \"Anzahl nicht versendeter E-Mails: \" & intNichtGesendet\r\n Set objMail = Nothing\r\n DoCmd.Hourglass False\r\nEnd Sub\r\n<\/pre>\nDie folgenden Anweisungen legen die Eigenschaften AsHTML und Message des Objekts objMail anhand der zuvor ermittelten Werte fest [7].<\/p>\n
Fehlt noch die Art der Anmeldung an den SMTP-Server. Das folgende Select Case-Konstrukt teilt dem Objekt objMail die passenden Werte aus dem Formular mit.<\/p>\n
Die Send-Methode sorgt schließlich für das Versenden der E-Mail an den aktuellen Empfänger. Das Ergebnis dieses Vorgangs landet als neuer Datensatz in der Tabelle tblEMailsEmpfaenger. Das Speichern dieser Daten übernimmt die Routine EmpfaengerdatenSpeichern, die hier nicht abgedruckt ist; sie prüft zuvor, ob die E-Mail-Adresse des Empfängers schon in der Tabelle tblEmpfaenger steht, und trägt diese gegebenenfalls nach [9]. Die übrigen Anweisungen aktualisieren die Fortschrittsanzeige in der Statusleiste und die Ausgabe, wie viele E-Mails nach dem Durchlaufen sämtlicher Empfänger verschickt worden sind.<\/p>\n
Status ermitteln per Ereignisprozedur<\/b><\/p>\n
Das Objekt objMail stellt einige Ereignisse nach dem erfolgreichen oder fehlgeschlagenen Versenden einer E-Mail zur Verfügung. Um diese Ereignisse abzufangen und eigene Anweisungen bei deren Auftreten auszuführen, deklariert man das Objekt im Kopf des Moduls als „With Events“:<\/p>\n
Dim WithEvents objMail As vbSendMail2.asSendMail<\/pre>\nDie Auswahl des Objekts objMail im linken Kombinationsfeldes des Codefensters führt zur Anzeige der vorhandenen Ereignisse im rechten Kombinationsfeld (siehe Bild 13). Der Klick auf einen Eintrag im rechten Kombinationsfeld legt automatisch den Rumpf für Prozeduren an, die beim passenden Ereignis ausgelöst werden.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 13: Diese Prozeduren werden durch Ereignisse des Objekts objMail ausgelöst.<\/span><\/b><\/p>\n
Die Ereignisse sind beispielsweise wichtig, um direkt ein Feedback über das Ergebnis eines Sendevorgangs zu erhalten und angemessen darauf reagieren zu können. Im vorliegenden Fall speichern die Ereignisprozeduren für Erfolg oder Misserfolg eines Sendevorgangs Informationen über das Ergebnis in modulweit deklarierten Variablen. Die oben vorgestellte Routine zum Versenden von E-Mails liest beispielsweise die Variablen bolGesendet und strMeldung aus, um die passenden Informationen in die Tabelle tblEMailsEmpfaenger zu schreiben.<\/p>\n
Platzhalter ersetzen<\/b><\/p>\n
Die Funktion PlatzhalterErsetzen trägt vor dem Versenden an Stelle der Platzhalter die vorgesehen Inhalte in die E-Mails ein. Dazu übergibt die aufrufende Prozedur den Text mit den Platzhaltern sowie die ID der Serienmail, damit auch die richtigen Platzhalter ersetzt werden.<\/p>\n
Die Funktion durchläuft eine Datensatzgruppe mit den der Serienmail zugeordneten Platzhaltern und ersetzt die angegebenen Ausdrücke durch die passenden Inhalte. Der Rückgabewert ist dann mit den gewünschten Daten versehene Fassung des Textes (siehe Routine PlatzhalterErsetzen im Modul Form_frmSerienmail der Beispieldatenbank).<\/p>\n
Wenn Sie das Serienmail-Tool einsetzen, steht vor dem Versenden der Serienmail an die komplette Verteilerliste hoffentlich ein Test. Dazu legen Sie am besten eine Tabelle mit einigen Dummy-Adressen an – sicher haben Sie selbst den einen oder anderen E-Mail-Account, an den Sie sich die Serienmail zunächst selbst zusenden können.<\/p>\n
Spam oder kein Spam<\/h3>\n
Wenn Sie möchten, dass die Serienmail auch bei den angegebenen Empfängern ankommt, sollten Sie dafür sorgen, dass diese nicht in einem Spam-Filter hängen bleibt. Am besten installieren Sie selbst einen Spam-Filter und werten aus, ob und – wenn ja – warum Ihre Serienmail darin hängen bleibt.<\/p>\n
Die vollständige Beschreibung einer Musterlösung mit verhältnismäßig viel Quellcode ist im Rahmen dieses Beitrags nicht möglich. Die fehlenden Funktionen können Sie allerdings leicht anhand der Beispieldatenbanken nachvollziehen.<\/p>\n
Die Lösung liefert die wesentlichen Funktionen zum Versenden von E-Mails an mehrere Empfänger. Eine Validierung der Eingaben fehlt aber ebenso wie eine Fehlerbehandlung.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
Serienmails.mdb<\/p>\n
SendMail2.dll<\/p>\n