{"id":55001363,"date":"2022-06-01T00:00:00","date_gmt":"2023-06-15T19:03:15","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1363"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"EMails_versenden_mit_CDO","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/EMails_versenden_mit_CDO\/","title":{"rendered":"E-Mails versenden mit CDO"},"content":{"rendered":"

<\/a>\"\"<\/p>\n

Für das Versenden von E-Mails von einer Access-Anwendung aus gibt es verschiedene Möglichkeiten. Die naheliegendste ist der Versand unter Verwendung von Outlook, da dieses üblicherweise auf Rechnern mit Microsoft Access installiert ist. Es gibt jedoch auch Fälle, bei denen kein Office-Paket vorliegt und wo eine alternative Lösung gefragt ist. Früher gab es die Bibliothek vbSendmail, die auch heute noch eingeschränkt funktioniert. Eingeschränkt deshalb, weil beispielsweise SSL nicht unterstützt wird. Also haben wir nach einer Alternative gesucht, die auch modernere, sichere Versender unterstützt und sind dabei auf eine eher betagte Lösung gestoßen: die Bibliothek CDO, die auf jedem Windows-System installiert ist.<\/b><\/p>\n

CDO-Bibliothek einbinden<\/h2>\n

Um die Elemente der CDO-Bibliothek zu nutzen, haben Sie wie üblich zwei Möglichkeiten – Late Binding und Early Binding. Da wir immer gern mit IntelliSense arbeiten, nutzen wir auch in diesem Fall wieder Early Binding. Das zieht nach sich, dass wir einen Verweis auf die Bibliothek zum VBA-Projekt der Zielanwendung hinzufügen müssen.<\/p>\n

Dazu öffnen Sie den VBA-Editor mit der Tastenkombination Alt + F11 <\/b>und betätigen dann den Menübefehl Extras|Verweise<\/b>. Im nun erscheinenden Verweise-Dialog für das aktuelle VBA-Projekt suchen Sie nach einem Eintrag namens Microsoft CDO for Windows 2000 Library <\/b>und markieren diesen (siehe Bild 1). Dem Namen können Sie bereits entnehmen, warum wir die Bibliothek in der Einführung als „betagt“ bezeichnet haben.<\/p>\n

\"Verweis<\/p>\n

Bild 1: Verweis auf die CDO-Bibliothek<\/span><\/b><\/p>\n

Nach dem Hinzufügen der Bibliothek schauen wir zuerst einmal in den Objektkatalog und wählen dort ganz oben den Eintrag CDO <\/b>aus.<\/p>\n

Hier finden wir schnell eine interessante Klasse namens Message<\/b>, die alle notwendigen Eigenschaften und Methoden zu bieten scheint – inklusive To<\/b>, From<\/b>, Subject<\/b>, TextBody <\/b>und Send<\/b> (siehe Bild 2).<\/p>\n

\"Eigenschaften<\/p>\n

Bild 2: Eigenschaften und Methoden der Message-Klasse<\/span><\/b><\/p>\n

Allerdings vermissen wir hier Eigenschaften, mit denen wir festlegen können, über welchen SMTP-Server wir die E-Mails versenden können und wie wir uns dort authentifizieren. Die Bibliothek bietet neben einigen Interface-Klassen nur noch zwei weitere Klassen – nämlich Configuration <\/b>und DropDirectory<\/b>.<\/p>\n

Darüberhinaus bietet die Klasse Message<\/b> auch noch eine Eigenschaft namens Configuration<\/b>, sodass wir wohl die notwendigen Eigenschaften über die Configuration<\/b>-Klasse vornehmen werden.<\/p>\n

Schauen wir allerdings im Objektkatalog in die Elemente der Klasse Configuration, finden wir dort nicht viel, was uns direkt weiterbringt – hier sehen wir nämlich nur die drei Elemente Fields<\/b>, GetInterface <\/b>und Load<\/b>.<\/p>\n

Auf der Suche nach dem Schlüsselwort SMTP <\/b>landen wir jedoch schnell bei der Klasse CdoConfiguration<\/b>, die einige Elemenge bereitstellt, die hilfreich aussehen. Diese sehen sie in Bild 3.<\/p>\n

\"Konstanten<\/p>\n

Bild 3: Konstanten für die Fields-Eigenschaft<\/span><\/b><\/p>\n

Eine weitere Recherche im Internet lieferte den Hinweis, dass wir Eigenschaften wie etwa den SMTP-Server über die Fields<\/b>-Auflistung des Configuration<\/b>-Objekts festlegen und dieses dann über die Eigenschaft Configuration <\/b>dem Message<\/b>-Objekt zuweisen.<\/p>\n

Grundlegende Anwendung<\/h2>\n

Wie sich zeigen wird, benötigen wir für verschiedene Provider unterschiedliche Konfigurationen. Wir schauen uns erst einmal die einfachste Variante an, bei der wir von ein E-Mail-Provider mit einem einfachen SMTP-Server ausgehen, der keine zusätzlichen Funktionen wie SSL oder dergleichen bietet.<\/p>\n

Um die zu verwendenden Parameter herauszufinden, starten wir erst einmal ohne Parameter mit der folgenden Prozedur.<\/p>\n

Hier deklarieren wir zuerst einmal ein Message<\/b>– und ein Configuration<\/b>-Objekt:<\/p>\n

Public Sub <\/span>MailSenden()\r\n     Dim <\/span>objMessage As <\/span>CDO.Message\r\n     Dim <\/span>objConfiguration As <\/span>CDO.Configuration<\/pre>\n
Dann erstellen wir das Configuration<\/b>-Objekt, mit dem wir erst einmal nichts konfigurieren, sowie ein Message<\/b>-Objekt:<\/p>\n
     Set<\/span> objConfiguration = New<\/span> CDO.Configuration\r\n     Set<\/span> objMessage = New<\/span> CDO.Message<\/pre>\n
Danach weisen wir dem Message<\/b>-Objekt das leere Configuration<\/b>-Objekt zu und legen einige andere, offensichtlich benötigte Informationen fest – nämlich den Adressat, den Absender, den Betreff und den Inhalt der E-Mail:<\/p>\n
     With<\/span> objMessage\r\n         Set<\/span> .Configuration = objConfiguration\r\n         .To = \"andre@minhorst.com\"\r\n         .From = \"info@amvshop.de\"\r\n         .Subject = \"Beispielbetreff\"\r\n         .TextBody = \"Dies ist ein Beispieltext.\"<\/pre>\n
Danach rufen wir bei deaktivierter eingebauter Fehlerbehandlung die Send<\/b>-Methode auf und lassen uns im Falle eines Fehlers die Fehlernummer und den Fehlertext ausgeben:<\/p>\n
         On Error Resume Next<\/span>\r\n         .Send\r\n         If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n             Debug.Print<\/span> Err.Number, Err.Description\r\n         End If<\/span>\r\n     End With<\/span>\r\n     Set<\/span> objConfiguration = Nothing\r\n     Set<\/span> objMessage = Nothing\r\nEnd Sub<\/span><\/pre>\n
Erster Versuch des Mailsversands<\/h2>\n
Rufen wir die Prozedur so auf, erhalten wir den folgenden Fehler:<\/p>\n
-2147220960  \r\nDer \"SendUsing\"-Konfigurationswert ist ungültig.<\/pre>\n
Mit SendUsing <\/b>landen wir im Objektkatalog schnell bei der Klasse CdoSendUsing <\/b>mit der Eigenschaften SendUsingPort<\/b>. <\/p>\n
Senden mit Port<\/h2>\n
Also fügen wir dem Configuration<\/b>-Objekt ein Fields<\/b>-Element mit dieser Eigenschaft hinzu:<\/p>\n
With<\/span> objConfiguration\r\n     .Fields(cdoSendUsingMethod).Value = cdoSendUsingPort\r\n     .Fields.Update\r\nEnd With<\/span><\/pre>\n
Dies liefert den folgenden Fehler:<\/p>\n
-2147220982\r\nDer erforderliche Name des SMTP-Servers wurde in der Konfigurationsquelle nicht gefunden.<\/pre>\n
[<\/p>\n
Also geben wir auch noch einen SMTP-Server an:<\/p>\n
...\r\n.Fields(cdoSMTPServer).Value = \"smtp.minhorst.com\"\r\n...<\/pre>\n
Damit versenden wir tatsächlich schon die erste E-Mail mit einem einfachen SMTP-Server ohne besondere Absicherung. Das funktionierte in unserem Fall aber auch nur, weil die Absender- und die Empfängeradresse beide mit dem angegebenen SMTP-Server arbeiten.<\/p>\n
E-Mail-Server mit Verschlüsselung nutzen<\/h2>\n
Je nachdem, welchen Server Sie verwenden, können die notwendigen Angaben variieren. In den folgenden Abschnitten schauen wir uns die notwendigen Einstellungen für das Configuration<\/b>-Objekt an.<\/p>\n
Dazu haben wir eine neue, parametrisierte Version der obigen Prozedur namens SendMail <\/b>geschaffen, mit der Sie alle notwendigen Einstellungen inklusive der Informationen für die E-Mails übergeben können (siehe Listing 1).<\/p>\n
Public Sub <\/span>SendMail(strServername As String<\/span>, strUsername As String<\/span>, strPassword As String<\/span>, strTo As String<\/span>, _\r\n         strFrom As String<\/span>, strSubject As String<\/span>, strTextBody As String<\/span>, Optional<\/span> strPort As String<\/span>)\r\n     Dim <\/span>objMessage As <\/span>CDO.Message\r\n     Dim <\/span>objConfiguration As <\/span>CDO.Configuration\r\n     Set<\/span> objConfiguration = New<\/span> CDO.Configuration\r\n     With<\/span> objConfiguration\r\n         .Fields(cdoSendUsingMethod).Value = cdoSendUsingPort\r\n         .Fields(cdoSMTPServer).Value = strServername\r\n         If <\/span>Not<\/span> Len<\/span>(strPort) = 0 Then<\/span>\r\n             .Fields(cdoSMTPServerPort).Value = strPort\r\n         End If<\/span>\r\n         .Fields(cdoSMTPUseSSL).Value = \"true\"\r\n         .Fields(cdoSMTPAuthenticate).Value = cdoBasic\r\n         .Fields(cdoSendUserName).Value = strUsername\r\n         .Fields(cdoSendPassword).Value = strPassword\r\n         .Fields.Update\r\n     End With<\/span>\r\n     Set<\/span> objMessage = New<\/span> CDO.Message\r\n     With<\/span> objMessage\r\n         Set<\/span> .Configuration = objConfiguration\r\n         .To = strTo\r\n         .From = strFrom\r\n         .Subject = strSubject\r\n         .TextBody = strTextBody\r\n         On Error Resume Next<\/span>\r\n         .Send\r\n         If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n             Debug.Print<\/span> Err.Number, Err.Description\r\n         End If<\/span>\r\n     End With<\/span>\r\n     Set<\/span> objConfiguration = Nothing\r\n     Set<\/span> objMessage = Nothing\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Prozedur zum Senden von E-Mails<\/span><\/b><\/p>\n
Die Prozedur erwartet die folgenden Parameter:<\/p>\n