Hilfe! Wie kann ich einer Textdatei lesen und den Inhalt an der Outlook-Cursorposition einfügen

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