codice:
<%

' stringa HTML da inviare
strHTML = "<html><body>"
strHTML = strHTML & "

Questo è un messaggio HTML.</p>"
strHTML = strHTML & "

</p>"
strHTML = strHTML & "</body></html>"

' istanza di CDO.Message
set CDOmail = CreateObject("CDO.Message")

CDOmail.To="destinatario@libero.it"
CDOmail.From ="mittente@dominio.it"
CDOmail.Subject ="Questa è una mail HTML"

' testo da inviare
CDOmail.HTMLBody = strHTML

' invio del messaggio
CDOmail.Send()
set cdomail=nothing

%>
oppure fai una ricerca sul forum per CDO.message per sapere come si usa