Office: 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:





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

 

Hier geht es weiter:
E-Mail Automatisierung Funktioniert nur bis zur zweiten E-Mail.