mandar a un email por asp

gica · #1 (**permalink**) 19/05/2005, 02:24

Hola buenos dias!
Tengo un problema que tengo un error en la linea 27 en asp.La linea 27 es cuando estoy creando el objeto.
El código es:
<%
'Creación de variables para almacenar los campos del formulario

Nombre= Request.Form("nom")
Direccion= Request.Form("dir")
Problacion= Request.Form("pobla")
Provincia= Request.Form("prov")
Telefono= Request.Form("telef")
Fax= Request.Form("fax")
Email= Request.Form("ema")
Comentario= Request.Form("comen")

strTo = "[email protected]"
strSubject = "Envio de comentario de: " & Nombre
strBody = "<html><body>"
strBody = strBody & "Este es un mensaje generado por el formulario:" & " "
strBody = strBody & "Nombre: "& Nombre &" "
strBody = strBody & "Direccion: "& Direccion &" "
strBody = strBody & "Poblacion: "& Poblacion &" "
strBody = strBody & "Provincia: "& Provincia &" "
strBody = strBody & "Telefono: "& Telefono &" "
strBody = strBody & "Fax: "& Fax &" "
strBody = strBody & "Email: "& Email &" "
strBody = strBody & "Comentario: "& Comentario &" "
strBody = strBody & "</body></html>"

Set objMail= Server.CreateObject("CDONTS.NewMail")
objMail.From = "[email protected]" 'No hay problema en que sea la misma que la anterior.
objMail.To = strTo
objMail.Subject = strSubject
objMail.Body = "Este email es mandado como prueba para provar el envio de emails desde ASP con CDONTS"

objMail.Send
Set objMail = Nothing
%>
Aber si alguien me puede ayudar.Gracias por adelantado.

trasgukabi · #2 (**permalink**) 19/05/2005, 03:59

aqui?
Set objMail= Server.CreateObject("CDONTS.NewMail")

supongo que trabajarás en winXP o 2003. eso es que no tienes cdonts instalado.
tienes dos opciones:
1ª.- bajarte la librería cdonts de Aquí e instalarla así:
copia cdonts.dll a c:\windows\system
en inicio->ejecutar, pon:regsvr32 cdontsl.dll
reinicia IIS
y ya está.

2ª.- (Y mucho mejor)-enviar el mail con cdosys. aquí te dejo un ejemplo:

Código:

strbody="<html>......"
strsubject="Título del mail"
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = emailremitente
objMessage.To = emaildestino
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'también puedes borrar la línea de SMTP si pones sendusing=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing

Hay otras opciones con componentes, pero para qué pagar cuando puedes tener lo mismo (o casi) gratis???

gica · #3 (**permalink**) 19/05/2005, 04:29

Hola de nuevo!
Esto tampoco me funciona no se si hago algo mal o no se. Me puedes poner el ejemplo de CDONTS que tenia hecho yo, pues, con el cdosys? Me harias un gran favor.Esque ya no se que hacer.
Muchas gracias

trasgukabi · #4 (**permalink**) 19/05/2005, 04:38

tu ejemplo de cdonts está bien. lo que te falta para mandarlo es registrar la DLL.

y el ejemplo de cdosys ya lo he dejado antes

gica · #5 (**permalink**) 19/05/2005, 05:15

Hola!
Al final he hecho con CDONTS y manda el email pero cuando pongo http://localhost/myweb/amaia.asp no me sale ningun error ni nada pero manda asi el email. A mi me deberia de salir la pagina de HTML.
Sabes porque es?

trasgukabi · #6 (**permalink**) 19/05/2005, 05:22

a no ser que pongas despues de mandar el mail
response.write strbody

no creo que te salga nada.