E-Mails aus Excel über Gmail versenden
Schritt-für-Schritt-Anleitung
Um aus Excel E-Mails über Google Mail zu versenden, kannst du den folgenden VBA-Code verwenden. Dieser Code konfiguriert die SMTP-Einstellungen für das Versenden von E-Mails über deinen Gmail-Firmenaccount.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Sub EMail_Senden_Ohne_Outlook()
Dim iNachricht As Object
Dim iKonfiguration As Object
Dim Felder As Variant
Const sString$ = "http://schemas.microsoft.com/cdo/configuration/"
Set iNachricht = CreateObject("CDO.Message")
Set iKonfiguration = CreateObject("CDO.Configuration")
iKonfiguration.Load -1
Set Felder = iKonfiguration.Fields
With Felder
.Item(sString & "sendusername") = "DeineEmail@gmail.com" ' Deine E-Mail-Adresse
.Item(sString & "sendpassword") = "DeinPasswort" ' Passwort angeben
.Item(sString & "smtpserver") = "smtp.gmail.com" ' Postausgangsserver
.Item(sString & "smtpusessl") = True ' SSL Verschlüsselung aktivieren
.Item(sString & "smtpauthenticate") = 1 ' SMTP Authentifizierung
.Item(sString & "sendusing") = 2 ' SMTP-Servers
.Item(sString & "smtpserverport") = 465 ' SMTP-Port
.Item(sString & "smtpconnectiontimeout") = 60 ' Connectiontimeout
.Update
End With
With iNachricht
Set .Configuration = iKonfiguration
.To = "Empfaenger@beispiel.com" ' Empfänger
.From = "DeineEmail@gmail.com" ' Von Mail-Adresse
.Subject = "Betreff" ' Betreffzeile
.TextBody = "Deine Nachricht!" ' Nachricht
.AddAttachment "C:\Ordner\Datei.txt" ' Anlage
.Send
End With
End Sub
- Ändere die Platzhalter im Code (z. B.
DeineEmail@gmail.com, DeinPasswort, Empfaenger@beispiel.com, etc.) entsprechend deiner Daten.
- Führe das Makro aus, um die E-Mail zu senden.
Häufige Fehler und Lösungen
-
Laufzeitfehler 80040222: Dieser Fehler tritt häufig auf, wenn die SMTP-Parameter nicht korrekt konfiguriert sind. Überprüfe, ob die E-Mail-Adresse und das Passwort richtig eingegeben wurden und ob die SSL-Verschlüsselung aktiviert ist.
-
"The transport failed to connect to the server": Stelle sicher, dass du eine stabile Internetverbindung hast und dass der Postausgangsserver (smtp.gmail.com) korrekt konfiguriert ist. Überprüfe auch, ob dein Firmenaccount möglicherweise Firewall-Einstellungen hat, die den Zugriff blockieren.
-
"The pickup directory path is required and was not specified": Dies kann darauf hinweisen, dass die SMTP-Einstellungen nicht korrekt sind. Vergewissere dich, dass der Port (465) und der Server (smtp.gmail.com) richtig eingestellt sind.
Alternative Methoden
Wenn der obenstehende VBA-Code nicht funktioniert, kannst du folgende Alternativen in Betracht ziehen:
-
Verwendung von Affixa: Wenn du Affixa bereits installiert hast, kannst du den Standardbrowser für das Versenden von E-Mails über Google Mail nutzen. Stelle sicher, dass Affixa korrekt konfiguriert ist und als Standard-E-Mail-Programm festgelegt wurde.
-
Gmail API: Eine weitere Möglichkeit ist die Verwendung der Gmail API für einen programmatischen Zugriff auf E-Mails. Dies erfordert jedoch zusätzliche Programmierkenntnisse und die Erstellung eines Google Cloud-Projekts.
Praktische Beispiele
Hier sind einige Anwendungsbeispiele, wie du den Code anpassen kannst:
-
E-Mail mit CC und BCC:
.CC = "cc@example.com"
.BCC = "bcc@example.com"
-
E-Mail mit mehreren Anhängen:
.AddAttachment "C:\Ordner\Datei1.txt"
.AddAttachment "C:\Ordner\Datei2.jpg"
-
E-Mail an mehrere Empfänger:
.To = "empfaenger1@example.com; empfaenger2@example.com"
Tipps für Profis
-
E-Mail-Versand testen: Teste den Versand zunächst mit deiner eigenen E-Mail-Adresse, um sicherzustellen, dass alles funktioniert, bevor du an andere versendest.
-
Sicherheitsrichtlinien: Informiere dich über die Sicherheitsrichtlinien deines Unternehmens bezüglich des Versendens von E-Mails über externe Server. Möglicherweise sind zusätzliche Schritte erforderlich, um sicherzustellen, dass der Versand konform ist.
-
Fehlersuche: Aktiviere die Debugging-Optionen in VBA, um detaillierte Fehlermeldungen zu erhalten, falls beim Senden der E-Mail Probleme auftreten.
FAQ: Häufige Fragen
1. Kann ich E-Mails auch ohne VBA versenden?
Ja, du kannst E-Mails auch manuell über die Google Mail-Weboberfläche senden, aber das Automatisieren über Excel ist praktischer, wenn du regelmäßig E-Mails versenden musst.
2. Was ist Affixa?
Affixa ist eine Software, die es dir ermöglicht, E-Mails direkt aus Anwendungen wie Excel zu versenden, ohne den Browser öffnen zu müssen. Stelle sicher, dass es korrekt konfiguriert ist.
3. Funktioniert das auch mit anderen E-Mail-Anbietern?
Der Code ist für Gmail optimiert, aber du kannst ihn anpassen, um ihn mit anderen E-Mail-Anbietern zu verwenden, indem du die SMTP-Server- und Portinformationen änderst.