Office: E-Mail aus Excel mit CDO

Helfe beim Thema E-Mail aus Excel mit CDO in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe eine Abfrage geschrieben ob eine geöffnete Datei leer ist. Wenn Sie leer ist soll eine E-Mail aus der Excel-Datei versendet werden. Der... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von WebworkerX, 28. Mai 2017.

  1. E-Mail aus Excel mit CDO


    Hallo,
    ich habe eine Abfrage geschrieben ob eine geöffnete Datei leer ist.
    Wenn Sie leer ist soll eine E-Mail aus der Excel-Datei versendet werden.
    Der Code ist soweit ok aber ich kriege jetzt einen Laufzeitfehler angezeigt
    mit dem ich nicht ganz klarkomme.
    Fehlermitteilung: Laufzeitfehler '-2147220973 (80040213)':
    DerTransport konnte keine Verbindung zum Server herstellen.
    Hier mein VBA Code:
    '--- E-Mail versenden ------------------------------------
    Const cdoSendUsingPickup = 1
    Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
    Const cdoAnonymous = 0
    Const cdoBasic = 1 ' clear text
    Const cdoNTLM = 2 'NTLM

    ' Mailserver Konfiguration
    Const strUsername = "blabla@Beispielmail.de"
    Const strPassword = "Musterpass"
    Const strSMTPServer = "smtp.Beispielmail.de"
    ' SSL benutzen JA/EIN (ACHTUNG CDO unterstützt nur TLS auf Port 25)
    Const boolUseSSL = True

    'Nachrichtendetails festlegen -----------
    strFrom = "blabla@Beispielmail.de"
    strTo = "blub@mustermannmail.de"
    strSubject = "Test"
    strTextbody = "Vergleich: die Bestands-neu-Datei ist leer!"
    strHTMLBody = "Ich bin ein HTML-Body
    "
    arrAttachments = Array("C:Tempimportdatei.txt", "C:Tempimportdatei.txt")

    '----------------------------
    Set iMsg = CreateObject("CDO.Message")
    Set objConf = CreateObject("CDO.Configuration")
    Set objFlds = objConf.Fields
    With objFlds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = boolUseSSL
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUsername
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword
    .Update
    End With
    With iMsg
    Set .configuration = objConf
    .To = strTo
    .From = strFrom
    .Subject = strSubject
    .TextBody = strTextbody
    .HTMLBody = strHTMLBody
    For Each att In arrAttachments
    .AddAttachment att

    Next
    End With
    ' --- in der Ausführung steht dann
    iMsg.Send
    MsgBox "Nachricht wurde verschickt!"
    Set iMsg = Nothing
    Set objConf = Nothing
    Set objFlds = Nothing
    Hat jemand da eine Tip wie der Fehler behoben werden kann? *rolleyes.gif*

    Danke im Voraus.

    WebworkerX

    :)
     
    WebworkerX, 28. Mai 2017
    #1
  2. Code Tags wären nett gewesen.

    Ich vermute der Fehler tritt beim Send auf, jedenfalls hast Du das nicht geschrieben.

    Ich bekomme den Fehler auch, wenn z.B. der Port oder der Servername falsch ist.
    Meine Vermutung ist, dass einer der Parameter falsch ist.
     
    Storax, 30. Mai 2017
    #2
  3. Moin!
    Welcher Mail-Dienst?
    GMail hat vor kurzem die Sicherheitseinstellungen geändert.
    Ich habe vor Monaten einen Beitrag geschrieben.
    Mal sehen ob ich ihn wiederfinde.

    Gruß Ralf
     
    RPP63, 30. Mai 2017
    #3
  4. E-Mail aus Excel mit CDO

    RPP63, 30. Mai 2017
    #4
  5. Die eigene Firewall kann es natürlich auch sein.
    @Ralf: Die Sicherheitseinstellungen kann man oft selber einstellen, z.B. bei yahoo
     
    Storax, 30. Mai 2017
    #5
  6. RPP63, 30. Mai 2017
    #6
  7. Na ja, so heiß nun auch wieder nicht. Wer hat schon nur einen Mail-Account.
     
    Storax, 30. Mai 2017
    #7
  8. E-Mail aus Excel mit CDO

    Hallo,
    vielen Dank für die vielen Antworten, habe den SMTP Server richtig eingetragen.
    Bekomme jetzt aber den "Laufzeitfehler '-2147220975 (80040211)':
    Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x80040217. Die Serverantwort lautet not available"
    Das Debugging steht bei Send. Jemand eine Idee, der Port soll aber auf 25 gesetzt werden. *eek.gif*
     
    WebworkerX, 31. Mai 2017
    #8
  9. Und 25 ist für den von Dir verwendeten SMTP Server richtig ??
     
    Storax, 31. Mai 2017
    #9
  10. Mit folgendem VBA sende ich mails. Hier mal die Datei, die ich damals zugesendet bekommen habe. Läuft auf jeden Fall unter Windows 7 & Office 2007.

    Code:
     
    dagobertsfrau, 1. Juni 2017
    #10
  11. Moin!
    Den Du uns aber aus unerfindlichen Gründen nicht nennen magst?
    Ich habe Dir für G-Mail eine Lösung an die Hand gegeben;
    bei O2 scheint es problemlos zu klappen


    Ich kenne da den einen oder anderen, der bei Kenntnis des Providers gekitzelt würde, um eine Lösung zu finden (Dummy-Adresse), aber so wirst Du wohl selbst suchen und zu einer Lösung kommen müssen. *cool.gif*

    Gruß Ralf
     
    Zuletzt von einem Moderator bearbeitet: 9. Februar 2021
    RPP63, 1. Juni 2017
    #11
Thema:

E-Mail aus Excel mit CDO

Die Seite wird geladen...
  1. E-Mail aus Excel mit CDO - Similar Threads - Mail Excel CDO

  2. VBA eine Mail Empfänger aus Zellen ziehen

    in Microsoft Excel Hilfe
    VBA eine Mail Empfänger aus Zellen ziehen: Hallo, aktuell habe ich alle Mail-Empfänger in einer Zelle (K11) mit Semikolon getrennt stehen. Aktuell schaut es so aus: .To = Range("K11").Value Ziel ist es aber die Empfänger...
  3. VBA Grafik in E-Mail einfügen

    in Microsoft Excel Hilfe
    VBA Grafik in E-Mail einfügen: Hallo zusammen, ich habe mir in verschiedenen Foren einen VBA-Code zusammengesucht, angepasst und entsprechend nutze ich diesen jetzt auch. Hierzu hätte ich jetzt zwei Fragen: 1. Grafik wird...
  4. Komplexes Makro ohne Ahnung :-/

    in Microsoft Excel Hilfe
    Komplexes Makro ohne Ahnung :-/: Hallo Ihr Lieben, ich brauche ganz dringend Hilfe. Ich bin zwar mit Formeln in Excel ganz gut aufgestellt, aber mit Makros leider nicht. Ich muss für meine Eltern und mich viele Versicherungen und...
  5. Anzahl geantwortete Mails in Outlook auslesen und in Excel einfügen

    in Microsoft Excel Hilfe
    Anzahl geantwortete Mails in Outlook auslesen und in Excel einfügen: Guten Tag, ich brauche Codebeispiele, die geantwortete Emails in vergleich zu Anzahl alle Mails in Outlook auslesen kann und als eine Diagramme (Anzahl% für eine Woche) in Excel anzeigen.(z.B ich...
  6. E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail.

    in Microsoft Excel Hilfe
    E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail.: Diese E-Mail Automatisierung hat bereits Funktioniert nur seit heute kann ich maximal zwei E-Mails versenden. VBA Code: Sub Senden() Dim ol As Outlook.Application Dim olm As Outlook.MailItem...
  7. E-Mail aus Excel mit Knopfdruck versenden

    in Microsoft Excel Hilfe
    E-Mail aus Excel mit Knopfdruck versenden: Hallo zusammen hier wohl wieder eine leichte Fragestellung meinerseits: in einem Excel möchte ich einen Knopf erstellen, der von der drückenden Person eine Mail an eine gewisse Mailadresse...
  8. Excel Teilnehmerliste/Anmeldung mit automatischer Mail/Kalendereintragung

    in Microsoft Excel Hilfe
    Excel Teilnehmerliste/Anmeldung mit automatischer Mail/Kalendereintragung: Hallo zusammen, ich bin neu hier im Forum aber kein kompletter Neuling was Excel angeht. Bis jetzt habe ich meist "nur" mit verschiedenen Formeln gearbeitet was meist super geklappt hat. Ich habe...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden