Bryan
06 de Junio del 2003

Tengo un Sitio en ASP VBScript, y necesito enviar correos electrónicos a una lista de correos, es decir un FW, y no se que función me envía los correos ojalá alguien me pueda ayudar, se que en PHP la funcion es Email() pero en asp nose. Gracias....

Karlos
06 de Junio del 2003

Solo soy un estudiante y todavía no tengo muxa soltura en estas cosas, aunque creo que te podré exar un cable.

Primero debes tener instalado en tu servidor un componente que soporte la función de envío de mails (por ej. AspEmail de Persits). Una vez tengas esto, debes crear un objeto del tipo mail (oMail).
y luego, pos solo tienes que modificar las propiedades del objeto (Body, Subject, AddAddress, etc) y enviarlo con oMail.Send

<% Dim oMail

Set oMail=Server.CreateObject("Persits.MailSender")
oMail.Host="100.100.100.1" \'este es el servidor d correo que utilizas
oMail.From="[email protected]"
oMail.AddAddress "[email protected]"
\'oMail.FromName="tu_nombre" \'esta propiedad no estoy muy seguro de lo que es
oMail.Subject="Asunto"

oMail.Body="Cuerpo del mensaje"

on error resume next

oMail.Send \'Con esta función se envía el mensaje

if err.number>0 then
response.write("Mensaje no enviado<br>")
response.write("<b>Nº de error: </b>"&err.number&"<br>")
response.write("<b>Descripción: </b>"&err.description)
else
response.write("Mensaje enviado")
end if %>

No se si te servirá, aunque si quieres más información en la red hay infinidad de manuales que tratan este tema.

Karlos
06 de Junio del 2003

Soy el de antes. Solo decir que las barras '\' no se porque han aparecido en mi mensaje. Si las quitas todas te aparecerá el mensaje correctamente.

_ssX
06 de Junio del 2003

Por lo regular en todos los servidores utilizan el objeto CDONTS ya que es el mas universal para esto no se si ya tengas idea de como enviar los correos a toda tu lista osea manejar blucles y cosas asi, de todos modos te pongo el codigo de ejemplo de un envio de correo en CDONTS. Si necesitas mas ayuda yo fabrique una aplicacion de listas de correo en ASP.

<%
'Modificar este valor con su direccion de correo a la que se enviara el formulario
var_destinatario = Request.Form ("destino")
'No es necesario modificar el codigo restante

'Creacion de variables para almacenar los campos del formulario
var_nombre = Request.Form("nombre")
var_correo = Request.Form("mail")
var_asunto = Request.Form("asunto")
var_comentario = Request.Form("comentario")

'Creacion del cuerpo del mensaje
var_mensaje = "Mensaje enviado desde el formulario web: " & nombre & chr(10) & chr(10)_
& "Nombre: " & var_nombre & chr(10)_
& "Correo Electronico: " & var_correo & chr(10) & chr(10)_
& "Asunto: " & var_asunto & chr(10)_
& "comentario: " & var_comentario & chr(10)_

'Procesamiento del envio de correo
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = var_nombre & "<" & var_correo & ">"
Mailer.To = var_destinatario
Mailer.Subject = var_asunto
Mailer.Body = var_mensaje
Mailer.BodyFormat = 1
Mailer.MailFormat = 0
Mailer.Importance = 2
Mailer.Send
set Mailer = nothing
Response.Write "Mensaje enviado"
%>
%>