ASPemail que no funciona.......Help me Please!

JoeMx · #1 (**permalink**) 05/05/2003, 09:47

Que tal gente de esta comunidad....

Mi consulta es la siguiente:
Realize un formulario en el cual pido varios datos a los usuarios, en una pagina .htm, dicha acciòn de este formulario, lleva a un archivo .asp con el siguiente codigo el cual mi propio proveedor me facilito:

Dim objCDO
Dim strTo
Dim strFrom
Dim strSubject
Dim strBody
Dim strCC
strTo = "[email protected]"
strFrom = "[email protected]"
strCC = ""
strSubject = "Prueba de CDO"
strBody = "" strBody = strBody & "" strBody = strBody & "Cuerpo del mensaje de prueba" strBody = strBody & ""

Set objCDO = Server.CreateObject("CDO.Message")
With objCDO
.To = strTo
.From = strFrom
.Subject = strSubject
.HtmlBody = strBody
.CC = strCC
.Send
End With
Set objCDO = Nothing

Esto sencillamente me da un error interno de servidor al momento de acceder a mi pagina de respuesta que es la que contiene dicho codigo.........

No entiendo porque

Si sirve de algo yo en mi formaulario tengo los campos etiquetados como:
nombre
apellido
empres_compania
telefonos
email
direccion
interesado_en
comentarios

No sé si en algun lado del codigo tendre que colocar estas etiquetas?

Agradezco de antemano toda la colaboraciòn que puedan prestarme.....

Y muchas gracias por leer hasta aqui.

eduvivi · #2 (**permalink**) 05/05/2003, 10:27

Cual es exactamente el errror que te da?
y estas recogienddo los datos en algun lugar?
Ej.
<%Request.form("nombre")%>

JoeMx · #3 (**permalink**) 05/05/2003, 10:28

Error interno del servidor
HTTP 500
Los datos los recogo desde un form hospedado en mi propio Host.

lubetpic · #4 (**permalink**) 05/05/2003, 10:34

es un servidor de verdad o es tu maquina de trabajo???

JoeMx · #5 (**permalink**) 05/05/2003, 10:35

Si, es un Servidor.....(plataforma Windows)
Pueden visitar el proveedor aqui

eduvivi · #6 (**permalink**) 05/05/2003, 10:48

Entonces fijate que tengas instalado lo todo para que te funcione el ASPMAils, me imagino que te dene faltar algun componente del ASPMail en el serividor, para que este te funcione

JoeMx · #7 (**permalink**) 05/05/2003, 11:01

Segun mi proveedor, el codigo que les mostre a ustedes, fue el que ellos mismos me enviaron para que funcionara...
Supongo deberia de funcionar, pero no lo hace

JoeMx · #8 (**permalink**) 05/05/2003, 11:27

Amigos pude conseguir que el error interno ya no me apareciera.....
Use este codigo:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.inergix.com" ' Specify a valid SMTP server
Mail.From = "[email protected]" ' Specify sender's address
Mail.FromName = "Contactos desde el Boletin" ' Specify sender's name

Mail.AddAddress "[email protected]", "Joel Marquez."
Mail.AddAddress "" ' Name is optional
Mail.AddReplyTo "[email protected]"

Mail.Subject = "Solicitud De Servicios"
Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _
"Gracias Por Preferirnos."

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>

Lo tome desde una pagina web, pero ahora como recogo los datos de mi form:
En este ejemplo en particular el cuerpo del mensaje viene dado por:
Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _
Pero

Agradesco su ayuda, cualquieraque sea.

las etiquetas de mis campos de form las cuales tengo que recoger los dato son:
nombre
apellido
empres_compania
telefonos
email
direccion
interesado_en
comentarios

Muchas Gracias Amigos!!!

eduvivi · #9 (**permalink**) 05/05/2003, 12:38

JoeMx · #10 (**permalink**) 05/05/2003, 12:59

Mi pregunta ahora como puedo recoger los datos de mi formulario?

Es decir configurar el cuerpo del mensaje para que envie los datos de mi formulario original.

Actualmente tiene esta configuaciòn:
Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _

Pero si yo use campos de formulario etiquetados...como le hago para realizar la confg del mensaje?

Una vez mas Muchas Gracias!

g_susdaniel · #11 (**permalink**) 14/05/2003, 13:34

en HTML ?

para = Request.Form("txtpara")
de = Request.Form("txtde")
asunto = Request.Form("txtasunto")
cuerpo = Request.Form("txtbody")

y eso ?

cuerpo = Replace(cuerpo, chr(13), " ")

cuerpomen = "<html><body>"
cuerpomen = cuerpomen & " "& cuerpo &" "
cuerpomen = cuerpomen & "</body></html>"

----- Si no te podria servir algo asi...

cuerpomen = Replace(str_men, chr(13), vbCrLf)

-----

La vaina es el replace del Chr(13) q es el enter...

Si es q a eso te refieres....

JoeMx · #12 (**permalink**) 14/05/2003, 20:12

Gracias Compatriota!

Ya pude resolver el problema.........Muchos saludos y de verdad, muy agradecido por toda su ayuda

Hasta Pronto!!!!!

cocytech · #13 (**permalink**) 14/08/2003, 08:35

Yo tengo un problema muy parecido al que tu tenias con el envio de aspmail, tengo un formulario con varios campos que requiero que me los envie a mi direccion de correo para procesar esos datos, pero no se como hacerlo , si me pudieras facilitar el codigo que a ti te funciono y como poner los campos de mi formalario para que se envien, please

JoeMx · #14 (**permalink**) 14/08/2003, 12:14

Este fue el codigo que me funciono en mi servidor......

<%@ Language=VBScript %>
<%

' CONFIGURATION
' set defaults if not specified

SubjectTemp = "Email desde el Boletin de Novedades " & Date() ' If the user leaves the subject blank then
' you can specify a default subject

FromTemp = "Formulario" ' If the user leaves the email address field
' blank then you can specify a default address

NameTemp = "Desde Boletin de Novedades" ' If the user leaves the name field blank then
' you can specify a default name

RedirectTemp = "emailconf.html" ' The URL or FILE to show after the form sends

' DO NOT MODIFY ANYTHING UNDER THIS LINE

recipient = Request("recipient") ' [email protected]

redirect = Request("redirect")

method = Request.ServerVariables("HTTP_METHOD")
Subject = Request("Subject")
fromemail = Request("email")
fromname = Request("username")
excludeflds = split(Request("exclude"),",")

if subject = "" then
Subject = SubjectTemp
end if

if fromemail = "" then
fromemail = FromTemp
end if

if fromname = "" then
fromname = NameTemp
end if

if redirect = "" then
redirect = RedirectTemp
end if

If Request.Form.Count > 0 Then

Body = Date() & " " & Time() & vbCRLF & vbCRLF
For I = 1 to Request.Form.Count
If Request.Form.Key(I) = "exclude" OR Request.Form.Key(I) = "email" OR Request.Form.Key(I) = "subject" OR Request.Form.Key(I) = "recipient" OR Request.Form.Key(I) = "redirect" OR Request.Form.Key(I) = "mailserver" OR Request.Form.Key(I) = "username" then
Else
Body = Body & Request.Form.Key(I) & " : " _
& Request.Form.Item(I) & vbCRLF
End If
Next
End If

sentbin = sendmail(mailserver,fromname,fromemail,recipient,s ubject,bodytext)
select case sentbin
case true ' If no problems then the redirect page is loaded
Response.Redirect(redirect)
case false ' Otherwise an error is raised and the message is displayed
Response.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'><html><head><title>Error sending email...</title></head><body>")
Response.write("") ' Use this line to display a header
Response.write("There was a problem sending the email... Please hit the back button in your browser and try again.")
Response.write("") ' Use this line to display a footer
Response.write("</body></html>")
end select

Function sendmail(strservername,strfromname,strfromaddress, strRecip,strSub,strBodyText)
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To= recipient
Mailer.From= strfromaddress
Mailer.Subject = strSub
Mailer.Body = Body
Mailer.Send
Set Mailer = Nothing
sendmail = true
end function
%>

lalogrosz · #15 (**permalink**) 28/03/2005, 11:05

tengo un problema que me da ahora justo cuando puse el metodo reset()

501 5.1.3 Path data: Extra garbage before terminating ">"

no tengo la menor idea por que aparece eso ni tampoco lo que significa, estoy casi seguro que el reset tiene algo que ver...
alguna ayuda?