<%@LANGUAGE="VBSCRIPT" %>
Usuario smtp:
(El usuario puede encontrarlo en el panel de control, E-mail, Administrar cuentas)
Contraseña smtp:
(La contraseña de su correo electrónico) E-mail destinatario:
<% ' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP If Request("enviar") = 1 Then If Not Request("usuario") = "" And Not Request("passwd") = "" And Not Request("destinatario") = "" Then ' Se crean los objetos necesarios para el envío del correo Set oMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Se configuran los parametros necesarios para el envío iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Se completan los datos del usuario y la contraseña necesarios para el envio iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Request("usuario") 'usuario smtp iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Request("passwd") 'password para STMP iConf.Fields.Update ' Se asignan las propiedades de configuración al objeto Set oMail.Configuration = iConf ' Destinatario del correo oMail.To = Request("destinatario") ' Remitente del correo oMail.From = "noreply@ferozowindows.com.ar" ' Subject o asunto oMail.Subject = "E-mail de prueba" ' Cuerpo del mensaje oMail.TextBody = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition" ' Se envía el correo oMail.Send ' Se destruyen los objetos Set iConf = Nothing Set Flds = Nothing Else ' Respuesta en caso de que no se completen todos los datos Response.Write("Complete todos los campos para ejecutar el ejemplo") End If End If %>