Office: (Office 2010) Emails per VBA senden nicht mehr möglich

Helfe beim Thema Emails per VBA senden nicht mehr möglich in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo, das nachfolgende VB-Script nutze ich seit vielen Jahren um vierteljährlich als Schatzmeister mehrere Emails mit PDF-Anlagen für einen Verein... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von nogut, 26. Dezember 2021.

  1. nogut Neuer User

    Emails per VBA senden nicht mehr möglich


    Hallo,

    das nachfolgende VB-Script nutze ich seit vielen Jahren um vierteljährlich als Schatzmeister mehrere Emails mit PDF-Anlagen für einen Verein zu versenden. Das hat auch bis Juni/Juli 2021 einwandfrei funktioniert. Seitdem bekomme ich die folgende Fehlermeldung und habe es nicht geschafft, das Script wieder zum Laufen zu bringen.

    Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x80040217. Die Serverantwort lautet not available

    Es wäre super, wenn mir hier Jemand weiterhelfen könnte.

    P.S.:
    • In meiner Fritzbox sind und waren keine Portfreigaben eingerichtet.
    • Ich habe MS Office 2010 Professional, seit ca. 2 Jahren muss ich alle paar Wochen die Reparaturfunktion nutzen, wenn ich Serienbriefe schreiben möchte, da ansonsten die EXCEL-Datei mit den Adressen nicht als Datenbank geöffnet werden kann. Ich vermute, dass das immer auftritt, wenn Windows 10 ein Update einspielt. Ob das mit dem Nichtsenden der Mails zusammenhängt glaube ich nicht, da dies schon länger auftritt.
    Code:
    Sub Rechnung_Umlage_per_GMail_versenden()
    '
    ' Makro_GMail Makro
    ' Makro aufgezeichnet am 16.05.2015 von XXXXXXXX
    ' http://www.paulsadowski.com/wsh/cdo.htm
    
    
        Dim strPfad As String ' Dateipfad der Word- und Exceldatei
        strPfad = ActiveDocument.Path & "\"
    
        Dim filePfad As String ' Dateipfad der Rechnungs-PDF-Datei
        filePfad = strPfad & ActiveDocument.MailMerge.DataSource.DataFields("RgJahr").Value & "\"
            
        Dim fileName As String
        fileName = "FDP-PM Rg-Nr. " & ActiveDocument.MailMerge.DataSource.DataFields("RgNr").Value & "-" _
            & ActiveDocument.MailMerge.DataSource.DataFields("RgJahr").Value & " OV-" _
            & ActiveDocument.MailMerge.DataSource.DataFields("KURZ").Value & ".pdf"
            
        Dim Anlage As String
        Anlage = filePfad & fileName
        
              
        Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
        Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
    
        Const cdoAnonymous = 0 'Do not authenticate
        Const cdoBasic = 1 'basic (clear-text) authentication
        Const cdoNTLM = 2 'NTLM
    
        Set objMessage = CreateObject("CDO.Message")
        objMessage.Subject = "ABC-Verein | Kreisumlage Rechnung-Nr. " _
            & ActiveDocument.MailMerge.DataSource.DataFields("RgNr").Value & "/" _
            & ActiveDocument.MailMerge.DataSource.DataFields("RgJahr").Value
        objMessage.From = """Schatzmeister"" <vorname.nachname@gmail.com>"
        objMessage.To = ActiveDocument.MailMerge.DataSource.DataFields("SmEmail").Value
        objMessage.TextBody = ActiveDocument.MailMerge.DataSource.DataFields("EmailText").Value & ActiveDocument.MailMerge.DataSource.DataFields("Signatur").Value
        
        If Dir(Anlage) = "" Then
            MsgBox fileName & vbCrLf & vbCrLf & Space$(4) & "Die Email-Anlage existiert nicht."
            Exit Sub
         Else
            objMessage.AddAttachment Anlage
        End If
        
    
        
    '==This section provides the configuration information for the remote SMTP server.
    
    
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    
        'Name or IP of Remote SMTP Server
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    
        'Type of authentication, NONE, Basic (Base64 encoded), NTLM
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
    
        'Your UserID on the SMTP server
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "vorname.nachname@gmail.com"
    
        'Your password on the SMTP server
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Passwort-ABC123"
        
        'Server port (typically 25, >>>> bisher bei mir 465 <<<<)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    
        'Use SSL for the connection (False or True)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    
        'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    
        objMessage.Configuration.Fields.Update
    
    '==End remote SMTP server configuration section==
    
    
        objMessage.Send
    
        Set objMessage = Nothing
            If Err.Number <> 0 Then
                MsgBox Err.Number & vbCrLf & Err.Description
            Else
                MsgBox "Mail wurde erfolgreich versendet."
            End If
    
        On Error GoTo 0
          
    End Sub
     
  2. nogut Neuer User
    Habe das Problem lösen können. Hier habe ich den Lösungsweg gefunden:

    Emails mit VBA und der CDO Bibliothek versenden

    Bei der Suche in meinem Google-Konto nach Less secure Apps aktivieren bin ich darauf gestoßen, dass Google mein Konto im Dez. auf die 2-Faktor-Anmeldung umgestellt hatte. Nach Deaktivierung konnte ich wieder Emails senden.
     
Thema:

Emails per VBA senden nicht mehr möglich

Die Seite wird geladen...
  1. Emails per VBA senden nicht mehr möglich - Similar Threads - Emails VBA senden

  2. VBA Hyperklink senden

    in Microsoft Excel Hilfe
    VBA Hyperklink senden: Hallo zusammen, ich würde gerne ein Makro erstellen mit folgender Aufgabe: Die Datei Speichern (Dateiname aus Zellinhalt, mit Leerzeichen) Diese gespeicherte Datei soll dann in Outlook per...
  3. Bild aus Excel mittels VBA in Email einfügen

    in Microsoft Excel Hilfe
    Bild aus Excel mittels VBA in Email einfügen: Hi Excel Fanatiker *wink.gif* ich habe folgendes Problem: Ich habe eine Email (mit Texten und Tabellen) in Excel, die mittels VBA in Outlook übertragen wird. Das klappt auch wunderbar, mittels...
  4. Excel 2003 (VBA) Tabellenblatt Bereich als Email senden

    in Microsoft Excel Hilfe
    Excel 2003 (VBA) Tabellenblatt Bereich als Email senden: Hallo zusammen, ich bin neu in eurer Runde und möchte nach vergeblicher Suche Rat erfragen. Von VBA habe ich wenig Ahnung und konnte bis jetzt einen "gefundenen" VBA-Code dazu nutzen,...
  5. Abfrage als Anhang per Email (VBA) versenden

    in Microsoft Access Hilfe
    Abfrage als Anhang per Email (VBA) versenden: Ich habe diesen Code. Nun möchte ich noch eine Access Abfrage als Anhang (Excel Format) mitsenden. Ich habe den befehl im Access "objEmail.Attachments" gefunden, aber weiss nicht wie ich angeben...
  6. Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen

    in Microsoft Excel Hilfe
    Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen: Hallo Forum, ich bin noch nicht allzu lange registriert, konnte aber bereits viele Hilfen und interessante Ansätze aus den Beiträgen entnehmen, welche mir sehr geholfen haben. In der Hoffnung...
  7. VBA fü Senden einer Email mit PDF Anhang

    in Microsoft Word Hilfe
    VBA fü Senden einer Email mit PDF Anhang: Hallo, ich stecke ein wenig fest. Ich musste von Excel auf Word umsteigen bei ein Formular. Nun baue ich die Macros auf Word um. Bei ein Marco hänge ich aber fest. Das Versenden der...
  8. Excel VBA Email schreiben

    in Microsoft Excel Hilfe
    Excel VBA Email schreiben: Guten Morgen, ich bin gerade dabei eine E-Mail über Excel zu generieren. Bin dabei auf ein Problem gestoßen, nämlich: Bei den beiden Punkten "Seller" und "Buyer" soll nur eine Zelle übernommen...
  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