- <% 
-   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 
- %> 
-