Fehler beim Kopieren von Word zu Outlook
25.04.2025 13:50:27
DSL_Markus
ich verzweifele gerade bei einem Fehler, der auch nur ab und zu auftritt. Ich habe einen Code erstellt, der den Inhalt einer formatierten Word-Datei kopiert und diesen dann in eine Mail einfügt und versendet. In Excel stehen in der Spalte A die Word-Files, in der Spalte B die Mail-Empfänger.
Das funktioniert meistens gut, jedoch bricht das Makro manchmal beim Einfügen ab an folgender Stelle mit einer Word-Fehlermeldung ohne Details:
.GetInspector.WordEditor.Content.Paste
Das Makro läuft jeden Morgen und versendet ca. 20 Mails. Ein bis zwei Mal pro Woche bricht es mit dem beschriebenen Fehler ab. Wenn ich es dann nochmal starte, läuft es problemlos durch. Deswegen frage ich mich, was der Grund sein kann. Geht vielleicht ab und zu die Zwischenablage verloren?
Hoffe, es kann jemand helfen.
Sub makro_onboarding()
'*** Variablen definieren ***
Dim wdApp As Object
Dim wdDoc As Object
Dim olApp As Object
Dim olMail As Object
Dim Word_Dokument As String
Dim LM_Mail_Adresse As String
Dim Act_Row As Integer
'*** Word öffnen und Mails versenden ***
Act_Row = 2
Set olApp = CreateObject("Outlook.Application")
Set wdApp = CreateObject("Word.Application")
Do Until Cells(Act_Row, 1) = ""
Word_Dokument = Cells(Act_Row, 1)
LM_Mail_Adresse = Cells(Act_Row, 2)
Set wdDoc = wdApp.Documents.Open(Word_Dokument)
wdDoc.Content.Copy
Set olMail = olApp.CreateItem(0)
With olMail
.Display
.To = LM_Mail_Adresse
.Subject = "Willkommen an Board"
.BodyFormat = 2
Application.Wait Now + TimeValue("0:00:02")
.GetInspector.WordEditor.Content.Paste
.Send
End With
wdDoc.Close False
Act_Row = Act_Row + 1
Loop
wdApp.Quit
Set wdApp = Nothing
End SubSchon mal danke und liebe Grüße
Markus
Anzeige