Email versenden ohne Outlook

Forumthread: Email versenden ohne Outlook

30.03.2019 07:00:31

Daniel

Hi Exceler,
ich hab folgendes Problem:
Ich möchte eine Email versenden mit Excel.
Das soll jedoch kein WS oder sonst was sein, sondern ein vordefinierter Text.
Wenn ich auf den Button drücke, dann soll an eine im Quellcode hinterlegte Email-Adresse (bericht.eins@gmail.com) mit einem definiertem Betreff (Ausgeführt) ein fertiger Text (Das Makro wurde ausgeführt) versendet werden.
Dabei soll sich aber nicht Outlook öffnen oder so - sondern einfach nur die Email versendet werden.
Ist das überhaupt möglich?
Also ohne, dass da zusätzlich was passiert was den Arbeitsablauf stört oder so?
Das es quasi fließend ist?
Und wenn ja:
Was brauch ich dazu alles?
Danke für eure Hilfe
MfG
Daniel

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aktuelles Thema

30.03.2019 08:29:08

Fennek
AW: Email versenden ohne Outlook

30.03.2019 09:03:19

mumpel
AW: Email versenden ohne Outlook

30.03.2019 10:59:09

Daniel

AW: Email versenden ohne Outlook

30.03.2019 09:03:19

mumpel

Hallo!
Man kann auch mit Outlook direkt senden ohne das es merklich auffällt. Outlook mit Hochfahren des Rechners starten und in den Systray minimieren. Dann können Emails mit der "Send"-Anweisung sofort gesendet werden, sofern das Antivirenprogramm aktuell ist und das Windows-Wartungscenter den Antivirenstatus kennt. Dürfte auch nicht viel länger dauern als über CDO.
Gruß, René

AW: Email versenden ohne Outlook

30.03.2019 10:59:09

Daniel

Hallo René,
das stimmt - aber das hilft mir nichts, weil Outlook gar nicht installiert ist :-)
Ich hab jetzt die entsprechende Lösung gefunden - danke für den Tipp mit dem laufendem Thread:

Dim email As CDO.Message
Dim config As CDO.Configuration
Set email = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
config.Fields(cdoSMTPAuthenticate).Value = cdoBasic
config.Fields(cdoSendUserName).Value = "email@adresse"
config.Fields(cdoSendPassword).Value = "Kennwort"
config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "SMTP-Server"
config.Fields(cdoSMTPServerPort).Value = 465
config.Fields(cdoSMTPUseSSL).Value = True
config.Fields.Update
Set mail.Configuration = config
With email
.To = "bericht.eins@gmail.com"
.From = "email@adresse"
.Subject = "Betreff"
.TextBody = "Eingabe eines Textes."
.Send
End With
Set config = Nothing
Set email = Nothing

Danke für eure Hilfe :-)
MfG
Daniel
PS.:
Nicht vergessen bevor das gemacht wird den Verweis auf die CDO-Bibliothek zu setzen.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Email aus Excel zu versenden, ohne dass Outlook geöffnet wird, kannst Du VBA (Visual Basic for Applications) verwenden. Folgende Schritte helfen Dir dabei:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu:
- Klicke im Menü auf Einfügen und wähle Modul.

Füge den folgenden Code ein:

Dim email As CDO.Message
Dim config As CDO.Configuration
Set email = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
config.Fields(cdoSMTPAuthenticate).Value = cdoBasic
config.Fields(cdoSendUserName).Value = "email@adresse"
config.Fields(cdoSendPassword).Value = "Kennwort"
config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "SMTP-Server"
config.Fields(cdoSMTPServerPort).Value = 465
config.Fields(cdoSMTPUseSSL).Value = True
config.Fields.Update
Set email.Configuration = config
With email
   .To = "bericht.eins@gmail.com"
   .From = "email@adresse"
   .Subject = "Betreff"
   .TextBody = "Eingabe eines Textes."
   .Send
End With
Set config = Nothing
Set email = Nothing

Anpassungen:
- Ersetze email@adresse mit Deiner Absenderadresse.
- Füge Dein Passwort ein.
- Gib den SMTP-Server Deines E-Mail-Anbieters an (z.B. für Gmail: smtp.gmail.com).
Führe das Makro aus, um die Email zu versenden.

Häufige Fehler und Lösungen

Outlook versendet nicht: Wenn Du die CDO-Bibliothek nicht richtig referenziert hast, wird die Email vielleicht nicht gesendet. Gehe zu Extras > Verweise und stelle sicher, dass die CDO-Bibliothek aktiviert ist.
Authentifizierungsfehler: Stelle sicher, dass Du den korrekten Benutzernamen und das Passwort verwendest. Achte auch darauf, dass die SMTP-Server-Einstellungen korrekt sind.
Email wird nicht gesendet: Überprüfe die Firewall- und Antiviren-Einstellungen, da diese den Versand blockieren können.

Alternative Methoden

Wenn Du eine vba send email without outlook Methode suchst, gibt es auch andere Optionen:

SMTP-Server eines anderen Anbieters: Du kannst auch andere SMTP-Server nutzen, um Emails zu versenden, solange Du die Zugangsdaten hast.
Gmail Verteiler verschicken: Nutze die Funktionalität von Google Sheets, um Emails an mehrere Empfänger gleichzeitig zu versenden.

Praktische Beispiele

Hier ein einfaches Beispiel, wie Du eine Email mit einem vordefinierten Text versenden kannst:

With email
    .To = "bericht.eins@gmail.com"
    .From = "email@adresse"
    .Subject = "Ausgeführt"
    .TextBody = "Das Makro wurde ausgeführt."
    .Send
End With

Durch diese Anpassungen kannst Du sicherstellen, dass die Emails genau so versendet werden, wie Du es möchtest.

Tipps für Profis

Debugging: Falls Du Probleme beim Senden von Emails hast, nutze die Debug.Print Funktion, um Variablen und Einstellungen zu überprüfen.
Sichere SMTP-Verbindungen: Achte darauf, dass Du SSL oder TLS verwendest, um Deine Verbindungen zu sichern.
Makros regelmäßig testen: Teste Deine Makros regelmäßig, um sicherzustellen, dass sie auch nach Änderungen an Deinem E-Mail-Anbieter weiterhin funktionieren.

FAQ: Häufige Fragen

1. Wie kann ich Emails an mehrere Empfänger senden?
Du kannst die .To-Eigenschaft durch Kommas getrennt erweitern, z.B. .To = "email1@gmail.com, email2@gmail.com".

2. Welche SMTP-Server kann ich verwenden?
Du kannst die SMTP-Server von Anbietern wie Gmail, Yahoo, Outlook und vielen anderen nutzen, solange Du die richtigen Zugangsdaten hast.

Beliebteste Forumthreads (12 Monate)