Email bodytext aus Datei
06.10.2003 23:20:52
Sascha
Ich möchte eine Email mit Anhang versenden, diese soll im Body-Teil den Inhalt der Datei body.txt stehen haben.
Folgendes verwende ich:
Sub Mailversand()
Dim object
Dim mail
Set object = CreateObject("Outlook.Application")
Set mail = object.CreateItem(0)
mail.To = "'Empfänger'"
mail.Subject = "'Betreff'"
mail.Body = "?????" 'genau hier liegt das Problem
mail.Attachments.Add "c:\test.pdf"
mail.Display
mail.Send
End Sub
bei m.body = ... soll dann der Inhalt der Datei Body.txt stehen
Im Voraus besten Dank
Anzeige