{"id":55001571,"date":"2025-12-01T00:00:00","date_gmt":"2025-12-02T21:40:02","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1571"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"EMails_senden_mit_CDO_und_Gmail","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/EMails_senden_mit_CDO_und_Gmail\/","title":{"rendered":"E-Mails senden mit CDO und Gmail"},"content":{"rendered":"

Im Beitrag „E-Mails versenden mit CDO“ (www.access-im-unternehmen.de\/1363) haben wir beschrieben, wie man grundsätzlich E-Mails mit der CDO-Bibliothek versenden kann. Im vorliegenden Beitrag schauen wir uns nun an, wie sich dies erledigen lässt, wenn man ein Gmail-Konto verwendet. Dazu legen wir ein Gmail-Konto an, sofern noch nicht vorhanden, holen uns das benötigte App-Passwort und stellen dann den Code zusammen, mit dem wir per VBA eine E-Mail über dieses Konto versenden können. Die auf diese Weise versendeten E-Mails können wir nachher sogar in der Benutzeroberfläche von Gmail einsehen.<\/b><\/p>\n

Gmail-Konto erstellen<\/h2>\n

Voraussetzung für das Versenden von E-Mails über ein Gmail-Konto ist erst einmal das Vorhandensein eines solchen Kontos. Dieses legen wir unter gmail.com <\/b>an. Nachdem wir die grundlegenden Informationen eingegeben haben, stellen wir die gewünschte Gmail-Adresse ein (siehe Bild 1).<\/p>\n

\"Anlegen<\/p>\n

Bild 1: Anlegen eines Gmail-Kontos<\/span><\/b><\/p>\n

Anschließend legen wir das Kennwort für den Zugriff auf unser Konto fest (siehe Bild 2).<\/p>\n

\"Erstellen<\/p>\n

Bild 2: Erstellen eines Passworts<\/span><\/b><\/p>\n

Vorneweg: Dieses Kennwort werden wir später nicht für das Versenden von E-Mails per CDO verwenden!<\/p>\n

Nun geben wir noch eine E-Mail-Adresse an, die wir für die Wiederherstellung des Gmail-Kontos nutzen können – beispielsweise, wenn wir einmal das Passwort vergessen.<\/p>\n

Und schließlich benötigt Gmail noch einen Telefonnummer, um das Konto zu schützen. Wir bekommen dann eine SMS an diese Nummer, um den Vorgang abzuschließen. Den dort enthaltenen Code geben wir anschließend unter Telefonnummer bestätigen <\/b>ein.<\/p>\n

Danach können wir angeben, wie wir verschiedene Einstellungen vornehmen wollen. Nach dem Bestätigen der Datenschutzinformationen landen wir bereits in unserem neuen Konto.<\/p>\n

2-Faktor-Authentifizierung aktivieren<\/h2>\n

Als Nächstes müssen wir die 2-Faktor-Authentifizierung aktivieren. Dazu gehen wir zu folgender URL:<\/p>\n

https:\/\/myaccount.google.com\/security<\/pre>\n
Hier finden wir unter So melden Sie sich in Google an <\/b>den Hinweis, dass die 2-Faktor-Authentifizierung deaktiviert ist (siehe Bild 3). Klicken Sie dort auf den Pfeil nach rechts.<\/p>\n
\"Sicherheitseinstellungen<\/p>\n
Bild 3: Sicherheitseinstellungen des Google-Kontos<\/span><\/b><\/p>\n
Danach müssen Sie sich noch einmal neu anmelden und landen dann im Bereich 2-Faktor-Authentifizierung<\/b>.<\/p>\n
Hier klicken wir auf Telefonnummer hinzufügen <\/b>(siehe Bild 4) und gelangen zurück zum vorherigen Bildschirm, wo die Aktivierung der 2-Faktor-Authentifizierung bestätigt wird.<\/p>\n
\"Telefonnummer<\/p>\n
Bild 4: Telefonnummer für die 2-Faktor-Authentifizierung hinzufügen<\/span><\/b><\/p>\n
App-Passwort holen<\/h2>\n
Nun rufen wir einen weiteren Link auf:<\/p>\n
https:\/\/myaccount.google.com\/apppasswords<\/pre>\n
Hier sehen wir die Möglichkeit, ein App-Passwort zu erstellen (siehe Bild 5).<\/p>\n
\"App-Passwort<\/p>\n
Bild 5: App-Passwort anlegen<\/span><\/b><\/p>\n
Wir tragen den App-Namen ein und klicken auf Erstellen<\/b>.<\/p>\n
In einem Popup-Bereich wird nun das neue App-Passwort angezeigt, dass wir in die Zwischenablage kopieren und direkt an einer sicheren Stelle speichern (siehe Bild 6).<\/p>\n
\"Unser<\/p>\n
Bild 6: Unser neues App-Passwort<\/span><\/b><\/p>\n
Achtung: Dieses App-Passwort kann nachträglich nicht mehr bei Google eingesehen werden!<\/b><\/p>\n
Damit sind die Arbeiten bei Google erledigt und wir können uns Access zuwenden.<\/p>\n
Hier wechseln wir in der Datenbank, der wir die E-Mail-Funktion zuweisen wollen, mit Alt + F11 <\/b>zum VBA-Editor.<\/p>\n
Hier legen wir als Erstes einen Verweis auf die Bibliothek Microsoft CDO for Windows 2000 Library <\/b>hinzu (siehe Bild 7).<\/p>\n
\"Hinzufügen<\/p>\n
Bild 7: Hinzufügen eines Verweises auf die CDO-Bibliothek<\/span><\/b><\/p>\n
Danach legen wir ein neues Modul an, beispielsweise namens mdlCDOMitGmail<\/b>.<\/p>\n
Diesem fügen wir den Inhalt aus Listing 1 hinzu. Die Funktion SendMail<\/b> erwartet die folgenden Parameter:<\/p>\n
Public Function <\/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         Optional<\/span> strCC As String<\/span>, Optional<\/span> strBCC As String<\/span>, Optional<\/span> strAttachments As String<\/span>) As Boolean<\/span>\r\n     Dim <\/span>objMessage As <\/span>CDO.Message\r\n     Dim <\/span>objConfiguration As <\/span>CDO.Configuration\r\n     Dim <\/span>varAttachment As Variant<\/span>\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         If <\/span>Not<\/span> Len<\/span>(strCC) = 0 Then<\/span>\r\n             .CC = strCC\r\n         End If<\/span>\r\n         If <\/span>Not<\/span> Len<\/span>(strBCC) = 0 Then<\/span>\r\n             .BCC = strBCC\r\n         End If<\/span>\r\n         If <\/span>Not<\/span> Len<\/span>(strAttachments) = 0 Then<\/span>\r\n             For Each varAttachment In Split<\/span>(strAttachments, \";\")\r\n                 .AddAttachment varAttachment\r\n             Next<\/span> varAttachment\r\n         End If<\/span>\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         Else<\/span>\r\n             SendMail = True<\/span>\r\n         End If<\/span>\r\n     End With<\/span>\r\n     Set<\/span> objConfiguration = Nothing\r\n     Set<\/span> objMessage = Nothing\r\nEnd Function<\/span><\/pre>\n
Listing 1: Funktion zum Versenden von E-Mails mit Gmail über CDO<\/span><\/b><\/p>\n