Foros del web, para los que viven de bits

fildey · 06/05/08, 12:49:33

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 · 06/05/08, 13:30:57

un poco de lectura te servirá

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

suerte

fildey · 07/05/08, 17:33:52

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 = "sguinazu@live.com.ar"
mailobj.subject = request.form("nombre")
mailobj.textbody = request.form("nombre")&response.Write(" ")&requ est.Form("sexo")&response.Write(" ")&request.Fo rm("edad")&response.Write(" ")&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 · 07/05/08, 20:33:33

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

fildey · 08/05/08, 12:18:18

el error q me tira es este

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/contacto.asp, line 16

Shiryu_Libra · 08/05/08, 12:28:22

esto esta mal redactado compañero

Cita:

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

intenta lo siguiente

Cita:

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

creo que sera el problema en esa linea

fildey · 08/05/08, 12:47:46

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 · 08/05/08, 12:55:37

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

Cita:

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 = "josue.sanchez@sanmina-sci.com"
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 · 08/05/08, 13:05:20

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 · 08/05/08, 13:12:09

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 · 08/05/08, 13:26:24

Cita:

Originalmente publicado 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