Hallo,
anbei ein Vorschlag zun einfügen des Textes. – Vielleicht gibts bessere Lösungen , irgenwie funktionierts aber. – Harry der Hirsch 😛 😀 :thumbup:
Sub Kundenkontakt()
\’liest den Test in eine Variable ein
\‘ fügt den Text in OL-Mail ein
Dim strLine As String
Dim strBody As String
Dim FF
Dim objOL As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
FF = FreeFile
Open \“H:\\EinladungOL.txt\“ For Input As #FF
Do Until EOF(FF)
Line Input #FF, strLine
strBody = strBody & Chr(13) & strLine
Loop
Close #FF
With objMail
.To = SendTo
.CC = SendCC
.Subject = Titel
.HTMLBody = strBody
.Display
End With
End Sub