problema envio form por email

Hola!

quiero enviar un form a mi correo usando cdo pero por algun motivo
desconocido para mi, no lo puedo hacer.

codigo:
<%

Dim nombre, apellido, consulta, mailobj

nombre=request.Form("nombre")
apellido=request.Form("apellido")
consulta=request.Form("consulta")
destinatario = ""
nombre=nombre & "&nbsp;" & apellido & "<br>"

'response.write nombre

set mailobj = server.CreateObject("CDONTS.NewMail")

mailobj.mailformat = 0
mailobj.bodyformat = 0
mailobj.from = mail
mailobj.to = destinatario
mailobj.subject = "Consulta web de: "nombre
mailobj.body = consulta
mailobj.send

set mailobj = nothing


response.write ("ok")


%>


si comento todo el cdo, anda, sino me tira error 500 del server.

Me fije en el administrador IIS y esta el sitio virtual smtp.

Le tengo que configurar algo en especial a esto?

Me falta algo?

desde ya, muchas gracias.

Fijate si asi sirve:

emailHere = ""
Set objSendMail = CreateObject("CDO.Message")
objSendMail.Subject = "Your Certificate"
objSendMail.MailFormat = 0
objSendMail.BodyFormat = 0
objSendMail.From = "iola"
objSendMail.To = emailHere
objSendMail.TextBody = bodyTxt
objSendMail.send

Y no pongas response.write ("ok"), sino response.write "ok"

Saludos


"Brenda" escribió en el mensaje
news:uogNH65$
> Hola!
>
> quiero enviar un form a mi correo usando cdo pero por algun motivo
> desconocido para mi, no lo puedo hacer.
>
> codigo:
> <%
>
> Dim nombre, apellido, consulta, mailobj
>
> nombre=request.Form("nombre")
> apellido=request.Form("apellido")
> consulta=request.Form("consulta")
> destinatario = ""
> nombre=nombre & "&nbsp;" & apellido & "<br>"
>
> 'response.write nombre
>
> set mailobj = server.CreateObject("CDONTS.NewMail")
>
> mailobj.mailformat = 0
> mailobj.bodyformat = 0
> mailobj.from = mail
> mailobj.to = destinatario
> mailobj.subject = "Consulta web de: "nombre
> mailobj.body = consulta
> mailobj.send
>
> set mailobj = nothing
>
>
> response.write ("ok")
>
>
> %>
>
>
> si comento todo el cdo, anda, sino me tira error 500 del server.
>
> Me fije en el administrador IIS y esta el sitio virtual smtp.
>
> Le tengo que configurar algo en especial a esto?
>
> Me falta algo?
>
> desde ya, muchas gracias.
>
>

nu anda :(
ahora arregle el error, no me lo tira, pero no me llegan los mails.


"Microsofties.com.ar" escribió en el mensaje
news:OhkwpH6$
> Fijate si asi sirve:
>
> emailHere = ""
> Set objSendMail = CreateObject("CDO.Message")
> objSendMail.Subject = "Your Certificate"
> objSendMail.MailFormat = 0
> objSendMail.BodyFormat = 0
> objSendMail.From = "iola"
> objSendMail.To = emailHere
> objSendMail.TextBody = bodyTxt
> objSendMail.send
>
> Y no pongas response.write ("ok"), sino response.write "ok"
>
> Saludos
>
>
> "Brenda" escribió en el mensaje
> news:uogNH65$
> > Hola!
> >
> > quiero enviar un form a mi correo usando cdo pero por algun motivo
> > desconocido para mi, no lo puedo hacer.
> >
> > codigo:
> > <%
> >
> > Dim nombre, apellido, consulta, mailobj
> >
> > nombre=request.Form("nombre")
> > apellido=request.Form("apellido")
> > consulta=request.Form("consulta")
> > destinatario = ""
> > nombre=nombre & "&nbsp;" & apellido & "<br>"
> >
> > 'response.write nombre
> >
> > set mailobj = server.CreateObject("CDONTS.NewMail")
> >
> > mailobj.mailformat = 0
> > mailobj.bodyformat = 0
> > mailobj.from = mail
> > mailobj.to = destinatario
> > mailobj.subject = "Consulta web de: "nombre
> > mailobj.body = consulta
> > mailobj.send
> >
> > set mailobj = nothing
> >
> >
> > response.write ("ok")
> >
> >
> > %>
> >
> >
> > si comento todo el cdo, anda, sino me tira error 500 del server.
> >
> > Me fije en el administrador IIS y esta el sitio virtual smtp.
> >
> > Le tengo que configurar algo en especial a esto?
> >
> > Me falta algo?
> >
> > desde ya, muchas gracias.
> >
> >
>
>

Para usar CDO debes configurarlo primero...

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/co...rver") > "mail.domain.com"
'que servidor SMTP usarás este field se usa cuando en sendusing (más
abajo) usar cdoSendUsingPort (2)
' si usas cdoSendUsingPickup (1) usaràs el SMTP de la màquina host...
Flds("http://schemas.microsoft.com/cdo/co...port") 25
Flds("http://schemas.microsoft.com/cdo/co...sing") = 1
Flds("http://schemas.microsoft.com/cdo/co...name") > request("apellidos")
Flds("http://schemas.microsoft.com/cdo/co...ress") > request("correo")
Flds("http://schemas.microsoft.com/cdo/co...cate") 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = ""
.Subject = "lo que sea"
.HTMLBody = strBody ' tambien puedes enviarlo como texto con
.textBody
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
response.write "ok"

Sashka
MS MVP Access

"Brenda" escribió en el mensaje
news:OYHPQf7$
> nu anda :(
> ahora arregle el error, no me lo tira, pero no me llegan los mails.
>
>
> "Microsofties.com.ar" escribió en el

> news:OhkwpH6$
> > Fijate si asi sirve:
> >
> > emailHere = ""
> > Set objSendMail = CreateObject("CDO.Message")
> > objSendMail.Subject = "Your Certificate"
> > objSendMail.MailFormat = 0
> > objSendMail.BodyFormat = 0
> > objSendMail.From = "iola"
> > objSendMail.To = emailHere
> > objSendMail.TextBody = bodyTxt
> > objSendMail.send
> >
> > Y no pongas response.write ("ok"), sino response.write "ok"
> >
> > Saludos
> >
> >
> > "Brenda" escribió en el mensaje
> > news:uogNH65$
> > > Hola!
> > >
> > > quiero enviar un form a mi correo usando cdo pero por algun motivo
> > > desconocido para mi, no lo puedo hacer.
> > >
> > > codigo:
> > > <%
> > >
> > > Dim nombre, apellido, consulta, mailobj
> > >
> > > nombre=request.Form("nombre")
> > > apellido=request.Form("apellido")
> > > consulta=request.Form("consulta")
> > > destinatario = ""
> > > nombre=nombre & "&nbsp;" & apellido & "<br>"
> > >
> > > 'response.write nombre
> > >
> > > set mailobj = server.CreateObject("CDONTS.NewMail")
> > >
> > > mailobj.mailformat = 0
> > > mailobj.bodyformat = 0
> > > mailobj.from = mail
> > > mailobj.to = destinatario
> > > mailobj.subject = "Consulta web de: "nombre
> > > mailobj.body = consulta
> > > mailobj.send
> > >
> > > set mailobj = nothing
> > >
> > >
> > > response.write ("ok")
> > >
> > >
> > > %>
> > >
> > >
> > > si comento todo el cdo, anda, sino me tira error 500 del server.
> > >
> > > Me fije en el administrador IIS y esta el sitio virtual smtp.
> > >
> > > Le tengo que configurar algo en especial a esto?
> > >
> > > Me falta algo?
> > >
> > > desde ya, muchas gracias.
> > >
> > >
> >
> >
>
>

con ese codigo me vuelve a tirar error 500, lo que me dice que algo de la
sintaxis esta mal.

"Sashka" escribió en el mensaje
news:#q2IKn7$
> Para usar CDO debes configurarlo primero...
>
> Set iMsg = CreateObject("CDO.Message")
> Set iConf = CreateObject("CDO.Configuration")
> Set Flds = iConf.Fields
> Flds("http://schemas.microsoft.com/cdo/co...rver") > > "mail.domain.com"
> 'que servidor SMTP usarás este field se usa cuando en sendusing (más
> abajo) usar cdoSendUsingPort (2)
> ' si usas cdoSendUsingPickup (1) usaràs el SMTP de la màquina host...
> Flds("http://schemas.microsoft.com/cdo/co...port") > 25
> Flds("http://schemas.microsoft.com/cdo/co...sing") = 1
> Flds("http://schemas.microsoft.com/cdo/co...name")
> request("apellidos")
> Flds("http://schemas.microsoft.com/cdo/co...ress")
> request("correo")
> Flds("http://schemas.microsoft.com/cdo/co...cate")
0
> Flds.Update
>
> With iMsg
> Set .Configuration = iConf
> .To = ""
> .Subject = "lo que sea"
> .HTMLBody = strBody ' tambien puedes enviarlo como texto con
> .textBody
> .Send
> End With
> Set iMsg = Nothing
> Set iConf = Nothing
> Set Flds = Nothing
> response.write "ok"
>
> Sashka
> MS MVP Access
>
> "Brenda" escribió en el mensaje
> news:OYHPQf7$
> > nu anda :(
> > ahora arregle el error, no me lo tira, pero no me llegan los mails.
> >
> >
> > "Microsofties.com.ar" escribió en el
mensaje
> > news:OhkwpH6$
> > > Fijate si asi sirve:
> > >
> > > emailHere = ""
> > > Set objSendMail = CreateObject("CDO.Message")
> > > objSendMail.Subject = "Your Certificate"
> > > objSendMail.MailFormat = 0
> > > objSendMail.BodyFormat = 0
> > > objSendMail.From = "iola"
> > > objSendMail.To = emailHere
> > > objSendMail.TextBody = bodyTxt
> > > objSendMail.send
> > >
> > > Y no pongas response.write ("ok"), sino response.write "ok"
> > >
> > > Saludos
> > >
> > >
> > > "Brenda" escribió en el mensaje
> > > news:uogNH65$
> > > > Hola!
> > > >
> > > > quiero enviar un form a mi correo usando cdo pero por algun motivo
> > > > desconocido para mi, no lo puedo hacer.
> > > >
> > > > codigo:
> > > > <%
> > > >
> > > > Dim nombre, apellido, consulta, mailobj
> > > >
> > > > nombre=request.Form("nombre")
> > > > apellido=request.Form("apellido")
> > > > consulta=request.Form("consulta")
> > > > destinatario = ""
> > > > nombre=nombre & "&nbsp;" & apellido & "<br>"
> > > >
> > > > 'response.write nombre
> > > >
> > > > set mailobj = server.CreateObject("CDONTS.NewMail")
> > > >
> > > > mailobj.mailformat = 0
> > > > mailobj.bodyformat = 0
> > > > mailobj.from = mail
> > > > mailobj.to = destinatario
> > > > mailobj.subject = "Consulta web de: "nombre
> > > > mailobj.body = consulta
> > > > mailobj.send
> > > >
> > > > set mailobj = nothing
> > > >
> > > >
> > > > response.write ("ok")
> > > >
> > > >
> > > > %>
> > > >
> > > >
> > > > si comento todo el cdo, anda, sino me tira error 500 del server.
> > > >
> > > > Me fije en el administrador IIS y esta el sitio virtual smtp.
> > > >
> > > > Le tengo que configurar algo en especial a esto?
> > > >
> > > > Me falta algo?
> > > >
> > > > desde ya, muchas gracias.
> > > >
> > > >
> > >
> > >
> >
> >
>
>