Body mit festem Text + Text aus Datei
21.04.2005 19:00:47
Chodek
ich versende aus Excel heraus Mail mittels folgendem Code:
Sub mailen()
Dim olApp As Object
Dim myMail As Object
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(0)
With myMail
.To = "Jemand"
.Subject = "Test"
.Body = get_text("C:\Test.txt")
.diplay
End With
End Sub
Das ist ja nun nicht neues, allerdings gelingt es mir nicht, im Body vor dem Dateitext noch einen festen Text zu integrieren, z.B. "Sehr geehrte..."
Die stundenlange Suche in Hans CD hat mir diesmal ausnahmsweise nicht weitergeholfen.
Bestens Dank bereits im voraus für Eure Hilfe.
Christian
Anzeige