日期:2008-12-23  浏览次数:20858 次

<%
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")

objMail.TO = "bhumphre@confederationc.on.ca"
objMail.From = "Whoeveryouwant@whereever.com" '在这里可以选择你要发送去那里的地址
objmail.Subject = "HTML EMAIL!"
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = "<HTML><body><p align='center'><b>Hey there!</b></p><p align='center'><b>This is a HTML doc
in your Email!!!!</b></p><p align='center'> </p><p align='center'> </p><p
align='center'><i><u>We kick the Llamas Ass!!!!</u></i></p></body></HTML>"
objMail.send
set objMail = Nothing
%>