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. Es sollen Spalten als PDF und Mail erstellt werden die ein Bedingung haben

    in Microsoft Excel Hilfe
    Es sollen Spalten als PDF und Mail erstellt werden die ein Bedingung haben: Hallo Ihr Profis, ich komme nicht weiter und brauch mal eure Hilfe Ich habe folgende Tabelle Spalte A (Ja/Nein) Felder, Spalte G bis D sind Adressfelder, J bis M sind Datumfelder. Bei Spalte A...
  3. Anzeigefehler eingehende Mails + Hyperlink gelöscht

    in Microsoft Outlook Hilfe
    Anzeigefehler eingehende Mails + Hyperlink gelöscht: Hallo Forummitglieder, Wir im Büro haben folgendes Problem: Mails die beispielsweise von Websites an uns gesendet werden, werden falsch angezeigt: Die Zeilen sind stark versetzt (möglicherweise...
  4. E-Mail Absender wird in Adressbuch nicht gefunden

    in Microsoft Outlook Hilfe
    E-Mail Absender wird in Adressbuch nicht gefunden: Guten Tag. Dies ist mein erster Forumseintrag hier. Ich habe folgende Problemstellung: Ich arbeite mit Outlook 365 lokal und habe 4 Microsoft 365 Konten eingerichtet. Wenn ich ich in den Konten...
  5. Empfangen von Mails

    in Microsoft Outlook Hilfe
    Empfangen von Mails: Guten Tag, Ich bin neu was Outlook betrifft. Wo kann ich einstellen damit Outlook aller 5 Minuten oder 20 Minuten meine Mails von meinen Konten abruft. Die andere Frage wäre noch, wie kann ich...
  6. Outlook 2013 Problem mit Mails

    in Microsoft Outlook Hilfe
    Outlook 2013 Problem mit Mails: Hallo durch ein bisschen herumlöschen war eine Datei weg jetzt ist das Problem folgendes ich habe zwar ein Backup wiederhergestellt aber habe dann beim Posteingang die Mails nicht mehr ich habe 1...
  7. Aktuellen Datensatz als E-Mail-Text verschicken

    in Microsoft Access Hilfe
    Aktuellen Datensatz als E-Mail-Text verschicken: Hallo beisammen, ich bin grad am verzweifeln: ich hab zwar Access seit Jahren auf dem Rechner (durch Office365/M365) aber habe mich noch nie damit befasst - "Excel kann ja alles". Nun ja Access...
  8. E-Mail Konto grundlos gesperrt

    in Microsoft Outlook Hilfe
    E-Mail Konto grundlos gesperrt: Grüß Gott, Mitstreiter, Ich glaube zwar nicht dass das hier relevant ist, aber trotzdem: Ich benutze Lenovo ideapad 330S, 8 GB RAM, WIN 10 automatische updates, Office 365. Office ist ein Family...
  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