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
     
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. Mail-Adresse aus Outlook Kontakte auslesen

    in Microsoft Excel Hilfe
    Mail-Adresse aus Outlook Kontakte auslesen: Hallo, ich habe folgende Liste, die ich um die Mailadresse erweitern möchte. [ATTACH] Wie ich das mit SVERWEIS mache (in einer Excel-Liste) weiß ich. Ich möchte die Mailadresse aber aus den...
  3. icloud E-Mail-Konto anlegen

    in Microsoft Outlook Hilfe
    icloud E-Mail-Konto anlegen: Hallo zusammen, vorweg, ich habe die Forensuche bemüht, bin aber nicht weiter gekommen. Folgendes vorab zur Ergänzung meiner Frage(n): 1. Ich habe den Wechsel von Windows zu Mac und von Office...
  4. Outlook Mails im Ordner Speichern wenn Name schon vorhanden ist automatisch mit Zahl ergänzen

    in Microsoft Outlook Hilfe
    Outlook Mails im Ordner Speichern wenn Name schon vorhanden ist automatisch mit Zahl ergänzen: Hallo, liebe Profis wir ziehen öfter einmal Emails aus Outlook direkt in einen Kunden Ordner. Manchmal kann es sein das diese Datei schon existiert der Inhalt aber ein anderer ist. Gibt es eine...
  5. 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...
  6. 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...
  7. 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...
  8. 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...
  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