<\/p>\n
Lernen Sie eine kostenlose VB-DLL kennen, die alle notwendigen Funktionen zum Versenden von E-Mails enthält.<\/p>\n
SMTP, VBA<\/p>\n
Access 97 und höher<\/p>\n
vbSendMail.zip<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Zum Versenden von E-Mails aus einer Access-Datenbank brauchen Sie kein Outlook: Das können Sie mit einer kleinen .dll-Datei gemütlich per VBA erledigen. Wozu Sie eine solche Funktion einsetzen können, haben wir Ihnen etwa mit dem Serienmail-Tool in Ausgabe 4\/2006 gezeigt. Eine passende und noch dazu freie Funktionssammlung stellen wir Ihnen im vorliegenden Artikel vor.<\/b><\/p>\n
Die hier vorgestellte Komponente finden Sie unter der Adresse http:\/\/www.freevbcode.com\/ShowCode.AspID=109.<\/p>\n
Das Paket enthält neben der Datei vbSendMail.dll auch noch den Quellcode in Form eines VB-Projekts – eigenen Anpassungen steht also nichts im Wege.<\/p>\n
Neben der genannten DLL benötigen Sie noch die Datei mswinsck.ocx – sollte diese nicht auf Ihrem System installiert sein, verwenden Sie das in den Beispieldateien enthaltene Setup. Es installiert sowohl die vbSendMail.dll als auch mswinsck.ocx in das Verzeichnis c:\\windows\\system32. <\/p>\n
Bevor Sie die Mail-DLL in Betrieb nehmen, müssen Sie diese registrieren.<\/p>\n
Das erledigen Sie am schnellsten im Ausführen-Dialog (Start\/Ausführen) mit folgender Anweisung:<\/p>\n
Regsvr32 <Pfad>\\vbSendMail.dll<\/p>\n
Alternativ verwenden Sie eine Batch-Datei mit dem folgenden Inhalt, die sich im gleichen Verzeichnis wie die vbSendMail.dll befinden muss:<\/p>\n
Regsvr32 vbSendMail.dll<\/p>\n
Um die Bibliothek in Access und damit innerhalb von VBA verfügbar zu machen, legen Sie einen Verweis auf die Bibliothek an (siehe Bild 1).<\/p>\n
Zum Versenden einer einfachen Mail sind nur wenige Zeilen Code nötig. Um die Ereignisse der Komponente abzufangen (dazu später mehr), müssen Sie diese in einem Klassenmodul deklarieren, wobei es sich auch um ein Formularmodul handeln kann.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{71FB2203-341F-4C48-BCA0-3822B9267894}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Setzen eines Verweises auf die Mail-Komponente<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Eine einfache, per VBA versendete E-Mail<\/span><\/b><\/p>\n Quellcode 1: Versenden einer einfachen Text-E-Mail<\/b><\/p>\n Für die ersten Beispiele reicht jedoch ein Standardmodul, das Sie von Access aus mit der Schaltfläche Neu auf der Registerseite Module des Datenbankfensters anlegen.<\/p>\n Hier deklarieren Sie nun eine Objektvariable namens objSendMail (in einer Zeile):<\/p>\n Private objSendMail As vbSendMail.clsSendMail<\/p>\n Die Beispielprozedur aus Quellcode 1 zeigt eine sehr einfache Möglichkeit zum Versenden einer E-Mail per VBA.<\/p>\n Wenn Sie die Platzhalter mit richtigen Daten füllen und der angegebene SMTP-Server keine Authentifizierung verlangt, können Sie mit diesen wenigen Zeilen Code bereits eine E-Mail versenden.<\/p>\n Dies sind aber auch nur die notwendigsten Daten, die zum Versenden einer E-Mail erforderlich sind (siehe Bild 2).<\/p>\n Die folgenden Eigenschaften der Klasse clsSendMail gestalten die E-Mail professioneller:<\/p>\n <\/p>\n Eine E-Mail kann mehr als einen Empfänger haben. Wenn mehrere gleichberechtigte Empfänger die Mail erhalten sollen, geben Sie diese als Zeichenkette für die Eigenschaften Recipient beziehungsweise RecipientName an, wobei Sie die einzelnen Empfänger durch Semikolons voneinander trennen.<\/p>\n Sollen weitere Empfänger nur eine Kopie („CC“) erhalten, fügen Sie diese Empfänger mit der Eigenschaft CCRecipient beziehungsweise CCDisplayName hinzu – auch hier geben Sie mehrere Empfänger durch Semikolon getrennt an.<\/p>\n Wenn Sie eine Kopie an jemanden versenden möchten, ohne dass die anderen Empfänger dies erkennen können, verwenden Sie BCCRecipient.<\/p>\n Falls Sie kein Semikolon, sondern ein anderes Zeichen zum Trennen von Empfängerlisten verwenden möchten, geben Sie dieses mit der Eigenschaft Delimiter an.<\/p>\n Um eine E-Mail mit einem Anhang auszustatten, fügen Sie der Eigenschaft Attachment den Pfad zu der hinzuzufügenden Datei hinzu.<\/p>\n Auch hier gilt: Mehrere Einträge werden durch das Semikolon oder ein alternatives, per Delimiter eingestelltes Trennzeichen voneinander getrennt.<\/p>\n Beispiel für ein einzelnes Attachment:<\/p>\n Für das Versenden von E-Mails verlangen manche SMTP-Server eine vorherige Authentifizierung. Damit verhindern diese, dass Personen den SMTP-Server unbefugt verwenden, um etwa Spam-Mails zu versenden. Es gibt derzeit zwei weit verbreitete Authentifizierungsmechanismen: SMTP-After-Pop und SMTP-Auth.<\/p>\n Bei SMTP-After-Pop muss der E-Mail-Client sich zuvor am Pop3-Konto anmelden und dann die E-Mail in einem bestimmten Zeitfenster versenden, bei SMTP-Auth erfolgt für SMTP eine separate Authentifizierung. Die vbSendMail-Komponente ist für beide Fälle vorbereitet.<\/p>\n Um sich vor dem Versenden von E-Mails beim Pop-Server anzumelden, benötigt man die in folgendem Beispiel enthaltenen Eigenschaften:<\/p>\n Die Anmeldung per SMTP-Auth sieht ähnlich aus:<\/p>\n Die bisherigen Beispiele lassen keinen Rückschluss zu, ob die versendete E-Mail erfolgreich verschickt wurde oder nicht.<\/p>\n Die große Stärke der vbSendMail-DLL sind ihre Ereignisse, die Sie per VBA abfangen können.<\/p>\n Dazu bringen Sie den Code in einem Klassenmodul unter. Standardmodule erlauben keine Deklaration eines Objekts mit dem WithEvents-Schlüsselwort, und genau dieses ist für die Verarbeitung der Ereignisse notwendig. Legen Sie also ein neues Formular an, das Sie lediglich mit einer Schaltfläche namens cmdSenden ausstatten.<\/p>\n <\/b><\/p>\n Bild 3: Kombinationsfelder zum Auswählen von Ereigniseigenschaften<\/span><\/b><\/p>\n Quellcode 2: Versenden einer Mail als Reaktion auf das Klick-Ereignis einer Schaltfläche<\/b><\/p>\n Die Deklaration und die durch die Schaltfläche ausgelösten Prozeduren sehen wie in Quellcode 2 aus.<\/p>\n Entscheidend ist das Schlüsselwort WithEvents in der Deklaration des objSendMail-Objekts deshalb, weil Sie nun die Ereignisse des Objekts mit bestimmten Prozeduren abfangen können.<\/p>\n Diese legen Sie ganz einfach an, indem Sie im linken Kombinationsfeld im oberen Bereich des Codefensters das Objekt objSendMail und im rechten Bereich das passende Ereignis auswählen (siehe Bild 3).<\/p>\n Nach der Auswahl legt der VBA-Editor automatisch eine Prozedur an, die beim Auslösen des Ereignisses durch das Objekt aufgerufen wird. Legen Sie zum Experimentieren einfach einmal alle vier verfügbaren Ereignisprozeduren an.<\/p>\n Interessant sind vor allem die beiden Ereignisse SendSuccessful und SendFailed.<\/p>\n Damit können Sie sehr genau nachverfolgen, ob eine E-Mail versendet wurde oder nicht.<\/p>\n Während das SendSuccessful-Ereignis einfach nur ausgelöst wird, wenn die E-Mail erfolgreich versendet wurde, liefert das SendFailed-Ereignis auch noch den Grund für eventuelles Scheitern mit – und zwar im Parameter Explanation.<\/p>\n Diesen können Sie beispielsweise per Debug.Print im Direktfenster ausgeben:<\/p>\n In einem einfachen Beispiel würde man die vier Ereignisprozeduren etwa wie in Quellcode 3 ausrüsten. Dies führt zu einigen Ausgaben im Direktfenster, wie Bild 4 zeigt. In der Praxis setzen Sie die Routinen beispielsweise dazu ein, den Benutzer über den Fortschritt zu informieren, Informationen über versendete oder nicht versendete E-Mails in einer Datenbank zu speichern oder zu ermitteln, warum ein E-Mail-Versand nicht erfolgreich war.<\/p>\n Quellcode 3: Ereignisprozeduren des SendMail-Objekts<\/b><\/p>\n <\/b><\/p>\n Bild 4: Ausgabe der Ereignisprozeduren aus Quellcode 3<\/span><\/b><\/p>\n Quellcode 4: Versenden einer Serienmail<\/b><\/p>\n Die Komponente bietet neben Send auch noch Methoden wie Connect und Disconnect. Für das Versenden einer einzelnen E-Mail reicht der Aufruf der Send-Methode aus, da diese die beiden Methoden Connect und Disconnect impliziert.<\/p>\n Wenn Sie jedoch viele E-Mails über die gleiche Adresse versenden möchten, sollten Sie einmal eine Verbindung mit Connect aufbauen und diese nach dem Versenden der E-Mails mit Disconnect wieder schließen.<\/p>\n Die Verbindung wird dann nicht für jeden Send-Aufruf erneut aufgebaut, was sich positiv auf die Performance auswirkt (s. Quellcode 4).<\/p>\n Sie perfektionieren Ihre auf vbSendMail basierende Anwendung, wenn Sie Funktionen wie IsValidEmailAddress, GetIPAdress, GetIPHost oder Ping zum Prüfen der E-Mail-Adresse und des SMTP-Servers einsetzen.<\/p>\n Die Komponente vbSendMail liefert alle für das Versenden von E-Mails per VBA notwendigen Funktionen.<\/p>\n Dank der Ereignisse lässt sich komfortabel prüfen, ob die E-Mail erfolgreich versendet wurde, sodass auch eine Dokumentation der versendeten E-Mails kein Problem darstellt.<\/p>\n Enthaltene Beispieldateien:<\/p>\n vbSendMail.zip<\/p>\n![](\"..\/fileadmin\/_temp_\/{71FB2203-341F-4C48-BCA0-3822B9267894}\/pic002.png\")
<\/p>\nPublic Sub MailSenden()\r\n Set objSendMail = New vbSendMail.clsSendMail\r\n With objSendMail\r\n .SMTPHost = \"<Smtp-Server>\"\r\n .from = \"<Absender-E-Mail>\"\r\n .Recipient = \"<Empfänger-E-Mail>\"\r\n .Subject = \"Beispielmail\"\r\n .Message = \"Dies ist eine Testmail.\"\r\n .Send\r\n End With\r\nEnd Sub<\/pre>\n
Weitere Empfänger<\/h3>\n
Anhänge<\/h3>\n
objSendMail.Attachment = \"c:\\Text.pdf\"<\/pre>\n
SMTP-after-Pop<\/h3>\n
...\r\nUsePOPAuthentification = True\r\nPop3Host = \"<Pop3-Server>\"\r\nUserName = \"<Benutzername>\"\r\nPassword = \"<Kennwort>\"\r\n...<\/pre>\n
SMTP-Auth<\/h3>\n
...\r\nUseAuthentication = True\r\nUserName = \"<Benutzername>\"\r\nPassword = \"<Kennwort>\"\r\n...<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{71FB2203-341F-4C48-BCA0-3822B9267894}\/pic003.png\")
<\/p>\nPrivate WithEvents objSendMail As vbSendMail.clsSendMail\r\nPrivate Sub cmdMailSenden_Click()\r\n Set objSendMail = New vbSendMail.clsSendMail\r\n With objSendMail\r\n .SMTPHost = \"smtp.access-im-unternehmen.de\"\r\n .from = \"info@access-im-unternehmen.de\"\r\n .Recipient = \"andre@minhorst.com\"\r\n .Subject = \"Test\"\r\n .Message = \"Dies ist eine Testmail.\"\r\n .Send\r\n End With\r\n Set objSendMail = Nothing\r\nEnd Sub<\/pre>\n
Private Sub objSendMail_SendFailed( _ Explanation As String)\r\n Debug.Print Explanation\r\nEnd Sub<\/pre>\n
Private Sub objSendMail_Progress(PercentComplete As Long)\r\n Debug.Print \"Prozent: \" & PercentComplete\r\nEnd Sub\r\nPrivate Sub objSendMail_SendFailed(Explanation As String)\r\n Debug.Print \"Nicht gesendet!\"\r\n Debug.Print Explanation\r\nEnd Sub\r\nPrivate Sub objSendMail_SendSuccesful()\r\n Debug.Print \"Gesendet!\"\r\nEnd Sub\r\nPrivate Sub objSendMail_Status(Status As String)\r\n Debug.Print \"Status: \" & Status\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{71FB2203-341F-4C48-BCA0-3822B9267894}\/pic004.png\")
<\/p>\nPrivate WithEvents objSendMail As vbSendMail.clsSendMail\r\nPrivate Sub cmdSerienmailSenden_Click()\r\n ''... Recordset mit Mailadressen deklarieren und \r\n ''instanzieren ...\r\n Set objSendMail = New vbSendMail.clsSendMail\r\n With objSendMail\r\n .SMTPHost = \"smtp.access-im-unternehmen.de\"\r\n .from = \"info@access-im-unternehmen.de\"\r\n .Connect\r\n .Subject = \"Betreff\"\r\n .Message = \"Inhalt\"\r\n Do While not rst.EOF\r\n .Recipient = rst!Recipitient\r\n .Send\r\n rst.MoveNext\r\n Loop\r\n .Disconnect\r\n End With\r\n Set objSendMail = Nothing\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n