Script para envio de email através de seu site (ASP)

Script em ASP para enviar email através do componente CDONTS:

<%
‘Criando a chamada para o objeto CDONTS
Set cdoMail = Server.CreateObject(“CDONTS.NewMail”)
cdoMail.From = “remetente@dominio.com.br”
cdoMail.To = “destinatario@dominio.com.br”
cdoMail.Subject = “Assunto do email”
‘Tipo de formatacao
cdoMail.BodyFormat = 0
cdoMail.MailFormat = 0
‘Corpo do email formatado em HTML
cdoMail.Body = “<html><body bgcolor=’#FFFFFF’>”& _
“<table border=’0′ cellpadding=’0′ cellspacing=’0′>”& _
“<tr><td>Exemplo de email</td></tr>”& _
“</table></body></html>”
‘Envia o email
cdoMail.Send
Set cdoMail = Nothing
response.write “Email enviador com sucesso!”
%>