<%@LANGUAGE="VBSCRIPT" %> <!--METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" --> <!-- Formulario para completar con los datos --> <form action="test_aspmail.asp" method="POST"> Usuario smtp: <input type="text" value="" name="usuario"></input> <br /> (El usuario puede encontrarlo en el panel de control, E-mail, Administrar cuentas)<br/> Contraseña smtp: <input type="password" value="" name="passwd"></input><br/> (La contraseña de su correo electrónico)<br/> E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/> <input type="submit" value="Enviar e-mail" /><input type="hidden" name="enviar" value="1"/> </form> <!-- Fin Formulario para completar con los datos --> <% ' 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 Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.Username = Request("usuario") Mail.Password = Request("passwd") Mail.AddAddress Request("destinatario") Mail.From = "noreply@ferozowindows.com.ar" Mail.FromName = "Ferozo Windows Edition" Mail.Subject = "E-mail de prueba" Mail.Body = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition" Mail.Send If Err <> 0 Then Response.Write "Ha ocurrido un error: " & Err.Description End If Set Mail = 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 %> </body> </html>