Função para enviar e-mail

<%
'---------------------------------
' Função: Enviar E-mail (CDONTS)
' Autor: Régis Soares
' E-mail:regis_soares@hotmail.com
'---------------------------------
Function Email(de, para, assunto, mensagem)
 Set mail = Server.CreateObject("CDONTS.NewMail")
 mail.From = de
 mail.To = para
 mail.Subject = assunto
 mail.Body = mensagem
 mail.BodyFormat = 0
 mail.MailFormat = 0
 mail.Send
 Set mail = Nothing
End Function
%>
<%Email "de@email.com.br", "para@email.com.br", "Assunto", "Mensagem"%>

Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...