CDO.message

[fildey]

tengo un formulario q se completa y luego se manda un mail con lo se haya ingresado...

el asp es el siguiente... pero no funciona... alguien me podria decir porque??
estoy peleando hace un rato y no me anda...

creo q es el CDO.message pero no estoy seguro...


<%
Dim mail
Set mail = Server.CreateObject("CDO.Message")
mail.To = Request.Form("destino")
mail.From = Request.Form("email")
mail.Subject = Request.Form("asunto")
mail.TextBody = Request.Form("comentario")
mail.Send()
Response.Write("Mail Sent!")
Set mail = nothing
%>

gracias...

[JuanRAPerez]

un poco de lectura te servirá

http://www.asp101.com/articles/john/...ay/default.asp

suerte

[fildey]

mejore el codigo pero me sigue tirando error...

dice q es la linea coloreada


<%
Set mailobj = Server.CreateObject("CDO.Message")
mailobj.from = request.form("email")
mailobj.to = "[email protected]"
mailobj.subject = request.form("nombre")
mailobj.textbody = request.form("nombre")&response.Write("<br>")&requ est.Form("sexo")&response.Write("<br>")&request.Fo rm("edad")&response.Write("<br>")&request.Form("co mentarios")
mailobj.Send()
Response.Write("Se envio el mail")
Set mailobj = nothing
%>

que puede ser lo q no estoy viendo??

gracias

[Shiryu_Libra]

que error te marco fildey¡? necesitas un componente o algo asi???

[fildey]

el error q me tira es este


CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/contacto.asp, line 16

[Shiryu_Libra]

esto esta mal redactado compañero

request.form("nombre")&response.Write("<br>")&requ est.Form("sexo")&response.Write("<br>")&request.Fo rm("edad")&response.Write("<br>")&request.Form("co mentarios")

intenta lo siguiente

request.form("nombre") & "<br>" & request.Form("sexo") & "<br>" & request.Fo rm("edad") & "<br>" & request.Form("comentarios")

creo que sera el problema en esa linea

[fildey]

habia un error en eso... gracias... pero ahora me tira lo siguiente:

CDO.Message.1 (0x8004020D)
At least one of the From or Sender fields is required, and neither was found.


en la misma linea... la del mailobj.send

[Shiryu_Libra]

en este caso te dice que no llegan datos para enviar

o mejor dicho, no esta tomando los valores del FORM, para el correo (FROM), ahora habra que verificar que no falten algunos datos, para esto comparemos contra otros correos que se ha elaborado aki en el foro

Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '2 originalmente con 1 no secesitas smtpserver
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From = "[email protected]"
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()

si te fijas, agregan campos como el nombre del equipo, puerto de envio etc

anexalas en fase de prueba, y verifiquemos sobre la marcha

[fildey]

me sigue tirando el mismo error en el mail.send()

CDO.Message.1 (0x8004020D)
At least one of the From or Sender fields is required, and neither was found.

[Shiryu_Libra]

pero si has verificado que te llegan los datos del formulario? los nombres de correos y todo eso???

es que te dice que no tienes a nadie a quien mandarle el correo

[JuanRAPerez]

Iniciado por JuanRAPerez

un poco de lectura te servirá

http://www.asp101.com/articles/john/...ay/default.asp

suerte

lee ese enlace
y mejora mas tu codigo
adiciona lo que tiene que ver con el smtpserver

[jllopezgalvez]

Yo en VBScript no pongo send() como funcion...
Pongo: objmail.send

No se como será en ASP, pero crear una funcion con 0 parametros de entrada es un poco raro.