Hallo zusammen,
ich habe ein Problem beim Einbinden einer HTML Textdatei. Es wird mir der Laufzeitfehler 13 "Typen unverträglich" angezeigt.
Hier der Teil des Codes:
Dim sBody As String
Dim FF As Integer
Dim OutApp As Object, Mail As Object
Dim Nachricht
BodyDatei = "...\Anschreiben.htm"
FF = FreeFile
Open BodyDatei For Input As #FF
sBody = Input(LOF(FF), #FF)
Close #FF
"...."
' E-Mail versenden
Windows("Makrodatei.xlsm").Activate
Sheets("Hilfstabelle für Makro").Select
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = emailadresse
.Subject = "Betreff"
.HTMLBody = "<span style=""font-size:11pt; font-family:'Arial'"">" & anrede & sBody
.Attachments.Add "...\Anhang.xls"
.Display
End With
"..."
In der Zeile: .HTMLBODY ist die Fehlermeldung laut Debugger lokalisiert.
Über jegliche Hilfe wäre ich sehr dankbar. Vielen Dank schonmal im Voraus!
MfG
|