Delphi-PRAXiS - [HTML + Makro] Datei einbetten

Hi,

ich versuche über Outlook ein Makro zu schreiben, was mir das "Gestalten" einer E-Mail möglich macht.
Das ist soweit kein Problem, weil ich die E-Mail über HTML schreibe, deswegen: HTML Experten an die Front! :-)
Ich benötige immer einen bestimmten Text in der Mail, jedoch gibt es verschiedene Stellen, die verändert werden müssen. Das ist an sich kein Problem.
Das Problem ist bei mir das Einfügen eines Anhanges, der direkt in der E-Mail erscheinen muss und nicht oben unter dem Feld "Betreff".
Kennt sich da zufällig jemand ein bisschen aus?

Hier mein bisheriges Makro:

Code:

			Sub Mailversenden()

Set myOlApp = CreateObject("Outlook.Application")

Set myNameSpace = myOlApp.GetNamespace("MAPI")

Set myitem = myOlApp.CreateItem(0)

myitem.To = "xxx@xxx.xx"

myitem.CC = ""

myitem.BCC = ""

myitem.Subject = "Betreff" & Date

myitem.HTMLBody = "<html><body><font face=""Trebuchet MS""><font size=""2"">Sehr geehrte Damen und Herren, 

" & _

"Anbei folgende Datei" & _

"</font></font>" & _

"</body></html>" & myitem.HTMLBody

myitem.Display

End Sub