Mandar correo con informacion desde asp ???

[Gaby_Corr]

HOla, de nuevo yoo!! jijiji, como puedo mandar un correo electronico , desde una pag asp.

esto es lo que quiero que haga mi pag, tengo un form donde capturan datos, y tengo boton de enviar, al momento q le den enviar quiero q automaticamente esos datos se envien a cierta direccion de correo electronico antes de grabarlos en una BD, se puede hacer eso ?????? y como lo haria

Gracias !!!

[u_goldman]

Busca sobre CDOSYS en este mismo foro.

Salu2,

[Gaby_Corr]

si de hecho ya tengo los scripts, pero eso en donde lo pongo ??? esa es la cuestion
este es el codigo q copie :

<%
Set oMail = Server.CreateObject("CDO.Message")

'reemplazar aqui las variables principales
para = "[email protected]"
de = "[email protected]"
asunto = "El asunto de mi email"
mensaje = "El mensaje del mail..."

oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.TextBody = mensaje

oMail.Send

Set oMail = Nothing
%>

lo pongo en la pag que llama el form ???

[u_goldman]

OK, lo que necesitas entonces es recoger los valores de un formulario

<input type=text name=para value="[email protected]">

este input estara dentro de los tags de un form no?
Ahora lo que tienes que hacer es enviar este formulario a tu pagina que tiene el codigo encargado de enviar el formulario:

recuperando un fragmento de tu codigo:

oMail.To = Request.Form("para")

esto quiere decir que le asignaras a la propiedad "to" el valor obtenido de la forma que mandaste en el campo "para", en este caso el mail sera enviado a AZ!


Salu2,

[Gaby_Corr]

ay, aver, no me quedo completamente claro
mira tengo esto en mi pag principal y ahi tengo este formulario:

<form action="procesepara.asp" method="post" name="frmSepara">
<table> <
<TR>
<TD><B>Nombre:</B></TD> <TD><INPUT TYPE="TEXT" NAME="txtNombre"></TD>
</TR>
<TR>
<TD><B>Correo:</B></TD>
<TD><INPUT TYPE="TEXT" NAME="txtCorreo"></TD>
</TR>
..... y asi varios Inputs oky el boton de enviar y borrar ok.

entonces en la pag, procesasepara.asp tengo esto:
<%
Response.write (" La informacion ha sido enviada. Gracias ...")

Set oMail = Server.CreateObject("CDO.Message")

para = "[email protected]"
de = "[email protected]"
asunto = "prueba"
mensaje = "El mensaje del mail..."

oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.TextBody = mensaje

oMail.Send

Set oMail = Nothing


Response.end()
%>

esto tiene algo mal? tengo q definir algo aparte??
entonces donde debo poner <input type=text name=para value="[email protected]">
si mis INPUTS solo son de tomar datos de los usuarios y la direccion a la que quiero mandar la info es otra aparte.

[u_goldman]

Si, el anterior es solo un ejemplo, lo que te quiero decir es que todos los valores que seran variables dentro de tu script los deberas enviar por medio de tu formulario y recoger con el objeto request, como esta en el ejemplo que te di, en tu codigo lo que tendrias que hacer es algo asi

para = request.form("algun_campo_de_tu_foma")
de = "[email protected]" 'regularmente este valor es constante
asunto = request.form("algun_otro_campo")
mensaje = "El mensaje del mail..."


Etc...

Espero que te haya quedado mas claro!

[Gaby_Corr]

mm no , pero deja intento a ver si me sale como kiero, y luego te digo oks, no te pudiera contactar por mail o msn ???

[Gaby_Corr]

oye intente algo sencillo pero me manda este error

Error Type:
CDO.Message.1 (0x80040220)
The "SendUsing" configuration value is invalid.
/Expos/HTML/procesepara.asp, line 38

[u_goldman]

Estas segura que tienes el SMTP activado?

[Gaby_Corr]

el que ??, donde lo activo ???

[u_goldman]

En el IIS, fijate si tienes el SMTP, si no, desde agregar componentes de Win

[Gaby_Corr]

mm pues mira al abrir el IIS me aparecen estas opciones Default SMTP virtual server, y default web site,

sino es ese q me aparece, como lo agrego ?? en componentes de windows o que ??

[u_goldman]

Fijate en este enlace

http://www.aspfaq.com/show.asp?id=2026

[Gaby_Corr]

Hola, U_goldman, lei la liga q mandaste pero como no se mucho ingles hice lo q pude, copie el codigo que viene ahi para probarlo y nada =(, que es lo que deberia de ir en -> "<enter_mail.server_here>" ??????
La version de IIS que tengo es el 5.1 en windows xp Profesional, y lo tengo local, tendre que agregar o configurar algo ??


<%
sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "<enter_mail.server_here>"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "[email protected]"
.To = "[email protected]"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

[u_goldman]

El nombre de tu servidor de mail, que no debiera ser mas que el nombre de tu maquina.

Salu2,

[Gaby_Corr]

es el nombre fisico que tiene mi makina o que???, deja lo pruebo

thks =D

[Gaby_Corr]

mira solo le puse el nombre de mi maquina y me aparece este error:

Error Type:
CDO.Message.1 (0x80040213)
The transport failed to connect to the server.

[u_goldman]

http://www.forosdelweb.com/f15/error-con-cdo-message-smtp-desactivado-306394/

me parece que ahi tragus da una explicacion a eso.

Salu2,

[Gaby_Corr]

mm pues si u_goldman , pero ya hice lo q tragus comentaba, pero no, aun asi no me funciona =´( como le puedo hacer ??'