<%
on error resume next
dirFrom="Favio@TuDominio.com"
dirTo="Favio.Maffeis@Gmail.com"
asunto="Prueba de CDONTS"
cuerpo="Me gusta mucho programar"
Set Mail=CreateObject("CDONTS.NewMail")
Mail.From=dirFrom
Mail.To =dirTo
'Mail.BCc="dir3@Serv3.xxx, dir6@Serv6.xxx,..."
Mail.Subject=asunto
Mail.Body=cuerpo
'Mail.BodyFormat=1 'Texto(0) o HTML(1)
'Mail.ContentBase=URL 'URL de donde se tomarán recursos
'Mail.ContentLocation=URL 'Nombre del recurso
'Mail.Importance=3 'Prioridad del Mensaje
'Mail.MailFormat=1 'Codificación: MIME(0) o Texto simple(1)
'Mail.Value=CadenaEncabezado 'Agrega encabezados al mensaje
'Version=Mail.Version 'Versión del objeto CDOMTS
'Mail.AttachFile(Origen,NombArch,Codificacion) 'Adjunta un Archivo
'Mail.AttachURL(Origen,Location,Base,Codificacion) 'Adjunta un recurso
Mail.Send 'Envía un E-Mail
'Mail.Send(From,To,Subject,Body,Importance) 'Envía un E-Mail
Set Mail=Nothing 'Siempre liberar el Objeto
%>