email formatierung

[thomas]

hallo!
ich möchte automatisch eine email versenden. das ist allerdings nicht mein eigentliches problem, sondern: ich möchte eine e-mail verschicken, die nicht html ist, aber trotzdem dabei kleine formatierungsangaben wie zum beispiel fettschrift angeben. (in outlook nennt sich das glaube ich rich-text.) wie kann ich das machen? ich habe untenstehend ein kleines e-mail script gefunden, welches textmails versendet. kann mir einer von euch sagen, wie ich es so modifizieren kann, dass ich zum beispiel fettschrift angeben kann?

Const cstCdoMailFormatMime = 1
Const cstCdoMailFormatText = 0

Const cstCdoBodyFormatHTML = 0
Const cstCdoBodyFormatText = 1
strBetreff = "Betreff"
strBody = "text"
strEmpaenger = "[e-mail]"
strAbsender = "[e-mail]"

Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.MailFormat = cstCdoMailFormatText
objNewMail.BodyFormat = cstCdoBodyFormatText
objNewMail.From = strAbsender
objNewMail.To = strEmpaenger
objNewMail.Subject = strBetreff
objNewMail.Body = strBody
objNewMail.Send
Set objNewMail = Nothing
End If

gruß
thomas