Set objMail = CreateObject("CDONTS.Newmail")
sHTML = ""
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & "

"
sHTML = sHTML & "

I owe you "
sHTML = sHTML & "£50!

"
sHTML = sHTML & ""
objMail.From = "rob@here.com"
objMail.To = "margaret@here.com"
objMail.BodyFormat = cdoBodyFormatHTML
objMail.ContentBase = "http://www.here.com/"
objMail.ContentLocation = "miscellaneous/"
objMail.Body = sHTML
objMail.AttachFile ("c:\images\logo.bmp", "Our logo")
objMail.Send
Set objMail = Nothing