Envio de mail con ASP
Mi problema es el siguiente:
Quiero enviar mail desde una pagina web. Los distintos campos, vienen dados por un formulario q te deja seleccionar un destinatario en concreto o todos de una base de data, al igual q puedes mandar una noticia o todas.Hasta ahi ningun problema.
Pos supuesto no puedo mandarlo directamente desde el formulario, pues con el metodo "GET" me limitaria y el metodo "POST", en lugar de insertarme las variables en los campos del mensaje(asunto,destinatarios y cuerpo del mensaje), me pone las variables en un archivo adjunto.
Asi pues lo hice de la siguiente manera:
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = Request.Form("para")
strSubject = Request.Form("asunto")
strBody = Request.Form("contenido")
strBody = strBody & vbCrLf
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "MAVI.COM <[email protected]>"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing
El problema es q al llegar a la instruccion q crearia el objeto CDO, no me lo reconoce. Dice:
Objeto Server, ASP 0177 (0x800401F3)
Cadena de clase no valida
Alguien sabe por q me da ese error y como solucionarlo?
Muchas Gracias
Quiero enviar mail desde una pagina web. Los distintos campos, vienen dados por un formulario q te deja seleccionar un destinatario en concreto o todos de una base de data, al igual q puedes mandar una noticia o todas.Hasta ahi ningun problema.
Pos supuesto no puedo mandarlo directamente desde el formulario, pues con el metodo "GET" me limitaria y el metodo "POST", en lugar de insertarme las variables en los campos del mensaje(asunto,destinatarios y cuerpo del mensaje), me pone las variables en un archivo adjunto.
Asi pues lo hice de la siguiente manera:
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = Request.Form("para")
strSubject = Request.Form("asunto")
strBody = Request.Form("contenido")
strBody = strBody & vbCrLf
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "MAVI.COM <[email protected]>"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing
El problema es q al llegar a la instruccion q crearia el objeto CDO, no me lo reconoce. Dice:
Objeto Server, ASP 0177 (0x800401F3)
Cadena de clase no valida
Alguien sabe por q me da ese error y como solucionarlo?
Muchas Gracias
Hola Amigos:
Ya se aseguraron de que en su servidor WEB tengan registrada el cdonts.dll. ¿Que servidor tienen? NT4, NT 2000 Server
Si el problema fuera este la solución es:
desde "INICIO", "EJECUTAR" teclear
regsvr32 "Ruta completa de la DLL"
ejemplo:
regsvr32 C:winntsystem32cdonts.dll
Ojalá les sea útil
Saludos desde México
César
Ya se aseguraron de que en su servidor WEB tengan registrada el cdonts.dll. ¿Que servidor tienen? NT4, NT 2000 Server
Si el problema fuera este la solución es:
desde "INICIO", "EJECUTAR" teclear
regsvr32 "Ruta completa de la DLL"
ejemplo:
regsvr32 C:winntsystem32cdonts.dll
Ojalá les sea útil
Saludos desde México
César
