| Usando AspEmail
Como en todos los componentes que forman parte de una página Asp es necesario crear el objeto que se va a utilizar:
<% ... Set Mail = Server.CreateObject("Persits.MailSender") ... %>
Luego se crea la instancia del objeto:
Para enviar emails desde las páginas ASP se debe especificar el servidor SMTP a utilizar:
Mail.Host = "smtp.tuservidor.com" Mail.Port = 25 ' Opcional: El puerto predeterminado es 25
Luego se debe especificar las direcciones de envío y en forma opcional, el nombre:
Mail.AddAddress "webmaster@webexperto.com", "WebExperto" Mail.AddCC "fabian@webexperto.com", "Fabian Muller" ' El campo CC, Bcc, son opcionales
Se usan las propiedades Subject y Body para especificar el Asunto y Cuerpo del mensaje, respectivamente. El cuerpo puede ser en modo texto o modo html, en este caso se declara la propiedad IsHTML con el valor True.
Mail.Subject "Consulta desde la pagina" Mail.Body "Aquí iría el cuerpo del mensaje, el cual llegara a los recipientes antes mencionados"
O en formato Html:
Mail.Subject "Consulta desde la pagina" Mail.Body "<html><body>Se pueden especificar las etiquetas html, como por ejemplo texto en <b>negrita</b> o <i>cursiva</i> y hasta tablas.</body></html>" Mail.IsHTML = True
Para enviar un archivo adjunto se utiliza el método AddAttachement. Se debe especificar la ruta completa del archivo a adjuntar:
Mail.AddAttachement "c:\directorio\archivo.ext"
Y por último hay que enviar el mensaje, con el método Send. Se puede especificar, que en caso de producirse un error, continúe el programa y muestre el error:
On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Ha ocurrido el siguiente error: " &Err.Description End If
Ejemplo de envío de email a partir de un formulario
Un ejemplo del uso que se le puede dar al AspEmail es el de envío de formularios. En el siguiente ejemplo veremos un formulario y en archivo sendmail.asp que procesará el formulario y enviará el email correspondiente:
<form method="POST" action="sendmail.asp"> <p>De:<br> <input type="text" name="de" size="20"></p> <p>Para:<br> <input type="text" name="para" size="20"></p> <p>Asunto:<br> <input type="text" name="asunto" size="20"></p> <p>Mensaje:<br> <textarea rows="2" name="mensaje" cols="20"></textarea></p> <p><input type="submit" value="Enviar" name="enviar"></p> </form>
Sendmail.asp
<% 'Recogemos los datos del formulario de = Request.Form("de") para = Request.Form("para") mensaje = Request.Form("mensaje") asunto = Request.Form("asunto") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.tusitio.com" Mail.From = de Mail.AddAddress para Mail.Subject = asunto 'El mensaje en formato html Mail.IsHTML = True Mail.Body = "<HTML><BODY><p><font face=verdana size=2>De: "&de&"<br>Mensaje: "&mensaje&"<br><br></p><br>Enviado el "& Now() &"</font></BODY></HTML>" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Ha ocurrido el siguiente error: " &Err.Description End If %>
|