<% ' Primero definimos algunas variables Dim MyBody,sFrom, x , NewLine , urlmicrosoft NewLine = chr(13) & chr(10) MyBody = "" ' en las siguientes tres lineas reemplace lo que esta en mayúsculas y color marrón por su informacion particular ' adicionalmente no olvide cambiar el URL en la penultima linea de este script. smtpserver = "mail.SU_DOMINIO.COM" youremail = "SU_EMAIL@SU_DOMINIO.COM" yourpassword = "SU_PASSWORD" for x = 1 to (Request.Form.Count()) if not Request.Form(x) = "" then MyBody = MyBody & NewLine & Request.Form.Key(x) & " = " & Trim(Request.Form(x)) end if next ' configuracion del From if Request.Form("email") = "" then sFrom = "Anonimo" else sFrom = Request.Form("email") end if 'Ahora colocamos la informacion adicional Dim iMsg Set iMsg = CreateObject("CDO.Message") 'Configuracion del servidor SMTP. urlmicrosoft = "http://schemas.microsoft.com/cdo/configuration/" iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusing") = 2 iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserver") = smtpserver iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserverport") = 25 iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpusessl") = False iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpconnectiontimeout") = 60 'basic (clear-text) authentication iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpauthenticate") = 1 iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusername") = youremail iMsg.Configuration.Fields.Item (urlmicrosoft & "sendpassword") = yourpassword iMsg.Configuration.Fields.Update 'End remote SMTP server configuration section== iMsg.To = youremail iMsg.Subject = "Datos del Formulario" iMsg.From = email iMsg.Sender = youremail iMsg.TextBody = MyBody 'iMsg.HTMLBody = MyBody si se tratara de contenido HTML iMsg.Send Set iMsg = Nothing %>