ASP 13
Test_mail.asp Guest on 7th February 2021 06:04:07 PM
  1. <%@LANGUAGE="VBSCRIPT" %>
  2. <!--METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" -->
  3.  
  4. <!-- Formulario para completar con los datos -->
  5. <form action="test_mail.asp" method="POST">
  6.       Usuario smtp: <input type="text" value="" name="usuario"></input> <br />
  7.       (El usuario puede encontrarlo en el panel de control, E-mail, Administrar cuentas)<br/>
  8.       Contraseña smtp: <input type="password" value="" name="passwd"></input><br/>
  9.       (La contraseña de su correo electrónico)
  10.       E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>
  11.       <input type="submit" value="Enviar e-mail" /><input type="hidden" name="enviar" value="1"/>
  12. </form>
  13. <!-- Fin Formulario para completar con los datos -->
  14.  
  15. <%
  16. ' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
  17.  
  18. If Request("enviar") = 1 Then
  19.       If Not Request("usuario") = " And Not Request(""passwd") = " And Not Request(""destinatario") = " Then
  20.             ' Se crean los objetos necesarios para el envío del correo
  21.             Set oMail = Server.CreateObject("("CDO.Message")
  22.             Set iConf = Server.CreateObject("CDO.Configuration")
  23.             Set Flds = iConf.Fields
  24.            
  25. ' Se configuran los parametros necesarios para el envío
  26. o
  27.             iConf.Fields.Item("ht//schemas.microsoft.com/cdo/configuration/sendusing") = 1
  28. 1
  29.             iConf.Fields.Item("ht//schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
  30. "
  31.             iConf.Fields.Item("ht//schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  32. 0
  33.             iConf.Fields.Item("ht//schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  34. 25' Se completan los datos del usuario y la contraseña necesarios para el envio
  35. vio
  36.             iConf.Fields.Item("h//schemas.microsoft.com/cdo/configuration/sendusername") = Request("usuario") 'usuario smtp
  37. mtp
  38.             iConf.Fields.Item("h//schemas.microsoft.com/cdo/configuration/sendpassword") = Request("passwd")  'password para STMP
  39. TMP
  40.             iConf.Fields.Updat' Se asignan las propiedades de configuración al objeto
  41. jeto
  42.             Set oMail.Configuration = iConf ' Destinatario del correo
  43. rreo
  44.             oMail.To = Request("destinatario' Remitente del correo
  45. rreo
  46.             oMail.From = "noreply@ferozowindows.com.a' Subject o asunto
  47. unto
  48.             oMail.Subject = "E-mail de prueb' Cuerpo del mensaje
  49. saje
  50.             oMail.TextBody = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Editi' Se envía el correo
  51. correo
  52.             oMail.' Se destruyen los objetos
  53. bjetos
  54.             Set iConf = Nothing
  55.             Set Flds = Nothing
  56.       ' Respuesta en caso de que no se completen todos los datos
  57.  datos
  58.             Response.Write("Complete todos los campos para ejecutar el ejemplo")
  59.       End If
  60. En

Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.