Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   ASP Clásico (http://www.forosdelweb.com/f15/)
-   -   como mando mail en asp? (http://www.forosdelweb.com/f15/como-mando-mail-asp-90572/)

hat 17/07/2002 16:55

como mando mail en asp?
 

hola

necesito saber como mando un mail en asp, en que el usuario ingrese su nombre direccion, telefono, etc.

y que le llege el mail a la persona que uno destine

necesito algunos ejemplos
(a y si pude utilizar cualquier CGI par mandar mail )

bakanzipp 17/07/2002 17:36

Re: como mando mail en asp?
 
amigo este foro es de ASP no de CGI..si quieres enviar email via CGI podrias preguntar en ese foro..

de todas formas te mando dos links de envio email via asp

<a href='ir.asp?http://www.webexperto.com/articulos/articulo.asp?cod=64' target='_blank'>http://www.webexperto.com/articulos/arti...</a>
<a href='ir.asp?http://www.webexperto.com/articulos/articulo.asp?cod=40' target='_blank'>http://www.webexperto.com/articulos/arti...</a>


hat 18/07/2002 10:16

Re: como mando mail en asp?
 
si pero podria utilizar algun comando propio de ASP

dagui 18/07/2002 10:39

Re: como mando mail en asp?
 
Aquí te anexo el código para enviar un correo en ASP

'Declaración de variables a usar
Dim OBJ_EMAIL

'Creación del objeto para enviar el correo
Set OBJ_EMAIL = Server.CreateObject(&quot;CDONTS.NewMail&quot;)

'OJO: También puedes colocar variables en correoDestino, correoOrigen, titulo y cuerpo.
OBJ_EMAIL.From = &quot;correoOrigen&quot; 'No hace falta especificar un email valido
OBJ_EMAIL.To = &quot;correoDestino&quot;
OBJ_EMAIL.Subject = &quot;titulo&quot;
OBJ_EMAIL.Body =&quot;cuerpo&quot; ' Cuerpo del mensaje
OBJ_EMAIL.Send 'Envia el mail

'Cierra el Objeto
Set OBJ_EMAIL = Nothing

Nota: El cuerpo lo puedes crear usando variables, por ejemplo que cargues de un formulario, de la siguiente manera:

Dim strCuerpo
strCuerpo =&quot;Hola &quot; &amp; suNombre &amp; &quot;&lt;BR&gt;&quot; &amp; &quot;Bla bla bla...&quot; &amp; &quot;&lt;BR&gt;&quot; &amp; &quot;Te saluda &quot; &amp; miNombre

Donde:
&quot;&lt;BR&gt;&quot; es para saltar de parrrafo o línea con &quot;&lt;P&gt;&quot;.
&quot;suNombre&quot; y &quot;miNombre&quot; son variables.

Y se vería así:

Hola José
Bla Bla Bla...
Te saluda Luis

Espero te ayude.

bakanzipp 18/07/2002 12:13

Re: como mando mail en asp?
 
Cita:

si pero podria utilizar algun comando propio de ASP
:ojotes:

hat 18/07/2002 14:42

Re: como mando mail en asp?
 
gracias

urjose 18/07/2002 14:49

Re: como mando mail en asp?
 
ASP no es PHP, aquí tenemos que trabajar más. Por ello no tenemos un comando (instrucción) para ello.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

bugno30 15/07/2005 07:13

Y para enviar mails desde un servidor? p.ej. www.domainlx.com
Habrá q añadir algunas lineas,no?
LEs pongo codigo:
ej1)
<%
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.RemoteHost = "mail.toniarnau.com"

mailobj.from = request.form("remitente")
mailobj.to = request.form("destinatario")
mailobj.subject = request.form("asunto")
mailobj.body = request.form("cuerpo")
mailobj.send
%>
ej2)
<%

'Creamos el objeto
Set Mail = Server.CreateObject("Persits.MailSender")

'Servidor SMTP
Mail.Host = "mail.melange.net"

'Cabecera del mensaje
'Mail.From = Request("From")
'Mail.FromName = "Victor Cuervo"
'Mail.AddAddress Request("to")

'Tema del mensaje
'Mail.Subject = "Email de aulambra.com"

'Cuerpo del mensaje
'Mail.Body = "Mensaje enviado desde aulambra.com"

'Capturamos el posible error
'On Error Resume Next

'Mandamos el mensaje
'Mail.Send

Response.Write (Mail.AddAddress Request("to"))
'If Err <> 0 Then
' Response.Write(Err.Description)
'else
' Response.Write ("El mensaje ha sido enviado satisfactoriamente")
'End If

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

'Creacion de variables para almacenar los campos del formulario
'---Campo nombre de el formulario
'var_nombre = Request.Form("nombre")
var_nombre = "Toni"
'---Campo mail de el formulario
'var_correo = Request.Form("mail")
var_correo= "avin04.melange.net"
'---Campo asunto de el formulario
'var_asunto = Request.Form("asunto")
var_asunto = "Saludos"
'---Campo comentario de el formulario
'var_comentario = Request.Form("comentario")
var_comentario = "Desde ASP"

'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.redirect ("www.toniarnau.com/forca/index.htm")
%>
Alguien me puede decir q hago mal y/o como lo puedo solucionar?
Gracias.
P.D. Creo entender en un correo de domainlx q ellos no dan soporta a enviar correo. aunq he leido en algun post q si q tiene soporte a aspmail.

bugno30 15/07/2005 07:15

En los 3 ejemplos, me da el error:
HTTP 500 Error interno del servidor


La zona horaria es GMT -6. Ahora son las 21:03.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.