Set objMail = CreateObject("CDONTS.Newmail")
sHTML = ""
sHTML = sHTML & ""
sHTML = sHTML & "
Bad News!"
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & "
I owe you "
sHTML = sHTML & "£50!
"
sHTML = sHTML & ""
objMail.From = "rob@here.com"
objMail.To = "jdr@there.com"
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = sHTML
objMail.Send
Set objMail = Nothing
试试看