E-Mail mit Signatur Laufzeitfehler 287
09.09.2020 19:18:30
René
bei folgendem Skript laufe ich auf einen Laufzeitfehler 287 und ich verstehe nicht wieso. Google war leider nicht hilfreich :/ Ich arbeite mit HTMLBody, da ich eine Signatur eingefügt haben möchte. Habe auch "htmlBody = "Test
" & .htmlBody" versucht, also ohne den Umweg über die Variable. Beide Male die selbe Fehlermeldung.
Das Skript habe ich zur Übersicht gekürzt, die Variablen sind alle als String deklariert.
Habt ihr eine Idee? Vielen Dank im Voraus!
Gruß René
Sub emailerstellen()
Dim objOutlook As Object
Dim objMail As Object
file = Dir(pfad & "*.xlsx")
Do While file ""
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.Display
.GetInspector
olOldBody = .htmlBody
.To = an
.cc = cc
.Subject = "Online Survey (Corona)"
.htmlBody = "Test" & olOldBody
.Attachments.Add pfad & file
End With
file = Dir
End If
Loop
End Sub