Office: E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail.

Helfe beim Thema E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail. in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Diese E-Mail Automatisierung hat bereits Funktioniert nur seit heute kann ich maximal zwei E-Mails versenden. VBA Code: Sub Senden() Dim ol As... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Eric__, 12. Oktober 2021.

  1. Eric__ Neuer User

    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

    Dim wd As Word.Application
    Dim doc As Word.Document



    Set ol = New Outlook.Application

    For r = 5 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
    Set olm = ol.CreateItem(olMailItem)



    Set wd = New Word.Application
    wd.Visible = True
    Set doc = wd.Documents.Open(Cells(2, 2).Value)

    With wd.Selection.Find
    .Text = "<<Wort1>>"
    .Replacement.Text = Tabelle1.Cells(r, 1).Value
    .Execute Replace:=wdReplaceAll
    End With

    With wd.Selection.Find
    .Text = "<<Wort2>>"
    .Replacement.Text = Tabelle1.Cells(r, 2).Value
    .Execute Replace:=wdReplaceAll
    End With
    With wd.Selection.Find
    .Text = "<<Wort3>>"
    .Replacement.Text = Tabelle1.Cells(r, 3).Value
    .Execute Replace:=wdReplaceAll
    End With
    doc.Content.Copy

    With olm
    .Display
    .To = Tabelle1.Cells(r, 14).Value
    .Subject = Tabelle1.Cells(r, 15).Value



    Set Editor = .GetInspector.WordEditor
    Editor.Content.Paste
    .Send

    End With

    Set olm = Nothing

    doc.Close SaveChanges:=False
    Set doc = Nothing
    Application.DisplayAlerts = False

    wd.Quit
    Set wd = Nothing
    Application.DisplayAlerts = True

    Next

    End Sub
    Code Ende
    Der Fehler Tritt bei der line: doc.Close SaveChanges:=False auf.
    Fehlermeldung:
    "Laufzeitfehler '462'

    Der remote server computer existiert nicht oder ist nicht verfügbar."

    Meine Vermutung ist das dies entsteht weil Word vor dem Schließen dies abfragt:

    E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail. upload_2021-10-12_14-32-13.png



    In meiner Recherche habe ich keinen weg gefunden dies Entweder in Word abzustellen oder in VBA zu verneinen.
    Weiß irgendjemand wie ich diesen Code wieder zum Laufen bringe?
    Viele Grüße und Dank,
    Eric Husmann
     
  2. Der Steuerfuzzi
    Der Steuerfuzzi Neuer User
Thema:

E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail.

Die Seite wird geladen...
  1. E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail. - Similar Threads - Mail Automatisierung Funktioniert

  2. Zwei Mails gehen raus. Soll nur eine

    in Microsoft Excel Hilfe
    Zwei Mails gehen raus. Soll nur eine: Hallo Zusammen, die Datei im Anhang soll eine Email versenden wenn der Wert in Zelle G2 höher wird als der in Zelle G3. Das funktiooniert aus soweit. Leider sendet Outlook immer zwei mal die Mail...
  3. E-Mail-Vorlage im Menüband/Registerkarte

    in Microsoft Outlook Hilfe
    E-Mail-Vorlage im Menüband/Registerkarte: Hallo zusammen, gibt es eine Möglichkeite eine E-Mail als Vorlage zu speichern und diese dann im Menüband/Registerkarte auf eine Schaltfläche u legen? Wenn die Schalfläce dann geklickt wird, soll...
  4. Outlook beim Hinzufügen falsche Mail

    in Microsoft Outlook Hilfe
    Outlook beim Hinzufügen falsche Mail: Hallo, ich habe vor einiger Zeit eine neue Mail Adresse erstellt, welche ich als meine Haupt Email-Adresse verwende. Sobald ich diese jedoch in Outlook hinzufüge, wird meine alte Email Adresse...
  5. Outlook 2019 - Kalenderproblem mit mehreren Mail-Adressen

    in Microsoft Outlook Hilfe
    Outlook 2019 - Kalenderproblem mit mehreren Mail-Adressen: Hallo, ich benutze Outlook von Office 2019. Dort habe ich eine Gmail-Adresse und eine weitere E-mail-Adresse über Microsoft Exchange angemeldet. Wenn ich Termine an die Gmail-Adresse gesendet...
  6. E-Mail Funktion

    in Microsoft Access Hilfe
    E-Mail Funktion: Hallo zusammen, ich habe ein Hauptformular mit 3 Unterformularen. In zwei Unterformularen (eines ist ein Endlosformular) habe ich jeweils eine Schaltfläche und im Textfeld daneben eine...
  7. Bilder werden in den Mails nicht angezeigt

    in Microsoft Outlook Hilfe
    Bilder werden in den Mails nicht angezeigt: Hallo , Problem: Trotz eeinem Eintragin der Liste der sicheren Adressen zeigt Oulook 2016 bei den Mails keine Bilder mehr an. Die Adresen stehen aber in der Liste der sicheren Absender. Was...
  8. Hyperlink aus Zelle in Mail einfügen

    in Microsoft Excel Hilfe
    Hyperlink aus Zelle in Mail einfügen: Hallo Forum, ich habe eine kurze Frage. Wie ist es möglich eine Pfadangabe aus einer Zelle auszulesen und als Hyperlink in eine Mail einzufügen? Beispiel: In Zelle C4 steht der Pfad, dieser soll...
  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