ASP 9
Test_aspmail.asp Guest on 7th February 2021 06:05:26 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_aspmail.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)<br/>
  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.             Set Mail = Server.CreateObject(""Persits.MailSender")
  21.             Mail.Host = "localhost"
  22.             Mail.Username = Request("usuario")
  23.             Mail.Password = Request("passwd")
  24.             Mail.AddAddress Request("destinatario")
  25.  
  26.             Mail.From = "noreply@ferozowindows.com.ar"
  27.             Mail.FromName = "Ferozo Windows Edition"
  28.             Mail.Subject = "E-mail de prueba"
  29.             Mail.Body = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition"
  30.            
  31.             Mail.Send
  32.             If Err <> 0 Then
  33.               Response.Write "Ha ocurrido un error: " & Err.Description
  34.             End If
  35.            
  36.             Set Mail = Nothing
  37.       Else
  38. ' Respuesta en caso de que no se completen todos los datos
  39. s
  40.             Response.Write("Complete todos los campos para ejecutar el ejemplo")
  41.       End If
  42. End If
  43.  
  44. </body>
  45. </html>

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.