Enviar mail

[JavierMMM]

Hola a todos, necesito enviar correos electrónicos desde mi servidor a varias direcciones de correo electrónico. comencé usando CDONTS, pero no funciona, tengo problemas para poder crear ese objeto. Lo hago de la sig manera:

Código:

<%
...

Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = request.form("[email protected]")
mailobj.to = request.form("[email protected]")
mailobj.subject = request.form("Encuesta Foros")
mailobj.body = request.form("cadena")
mailobj.send
%>

y me marca el siguiente error:

Numero=(0x800401F3)
Descripcion=Error en Server.CreateObject
ASP Error (Descripcion)=Error en Server.CreateObject

Trate de configurar en CDONST de la siguiente manera:
Regsvr32 CDONTS.dll
pero no me permite.

He buscado en este mismo foro, pero las soluciones no me han funcionado.

Ideas?

[Adler]

Hola

Comprueba que tu servidor admite ese componente, que al parecer no lo admite

Código ASP:

<&#37;
Dim theComponent(5)
Dim theComponentName(5)
    
theComponent(0) = "ADODB.Connection"
theComponent(1) = "Scripting.FileSystemObject"
theComponent(2) = "CDONTS.NewMail"
theComponent(3) = "Persits.Upload.1"
theComponent(4) = "CDO.Message"
    
theComponentName(0) = "ADODB"
theComponentName(1) = "FileSystemObject"
theComponentName(2) = "CDONTS"
theComponentName(3) = "Persits Upload"
theComponentName(4) = "CDOSYS"
    
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
 
 
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next 
%>
 

Suerte

[JavierMMM]

Hola Adler... pues al parecer si lo admite, ya que me retorna esto el c'odigo que me enviaste:


ADODB
FileSystemObject
CDOSYS


Pero, si trato de ejecutar mi codigo con Set mailobj = Server.CreateObject("CDOSYS.NewMail") me sigue marcando lo mismo


Numero=(0x800401F3)
Descripcion=Error en Server.CreateObject
ASP Error (Descripcion)=Error en Server.CreateObject

[Adler]

Hola

Prueba con

server.CreateObject("CDO.Message")

Suerte

[JavierMMM]

Hola Adler, siempre salvandome .....

fuinciono a la perfeccion....

Muchas gracias

[JavierMMM]

Ya que andamos en esto... una cosa mas....

Resulta que los correos de destino, los obtengo mediante una consulta a una base de datos y cuando quiero enviarlo a un solo correo, funciona a la perfecci'on, pero cuando trato de hacerlo a varios, no puedo... solo toma el primer registro que encuestra y truena el bucle:

Categoria=Error de Microsoft VBScript en tiempo de ejecución
Numero=(0x800A01A8)
Descripcion=Se requiere un objeto: 'myMail'

este es el codigo que uso

Código:

function url_encuesta(usuario,institucion,correo,concat)
	url = "http://miurl/mipagina.asp?"
	cadena = (url) & "usuario=" & usuario & "&institucion=" & institucion & "&correo=" & correo & "&codigomd5=" & concat & "&BtnEntrar=Entrar"
	myMail.Subject="Encuesta"
	myMail.From="[email protected]"
	myMail.To=(mail)
	myMail.TextBody=cadena
	myMail.Send
	set myMail=nothing

end function


Set con=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Set myMail = server.CreateObject("CDO.Message")

Con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("formulario.mdb")
Con.open	

Rs.open "Select usuario,institucion,correo From correos Where institucion ='x'",con
usr = Rs("usuario")
ins = Rs("institucion")
mail = Rs("correo")
concat = usr & ins & mail
concat = MD5(concat)

Do While not Rs.eof
	url_encuesta usr,ins,mail,concat
	...
	Rs.movenext
loop

[JavierMMM]

Lo solucion'e facil :s

Código:

function url_encuesta(usuario,institucion,correo,concat)
        Set myMail = server.CreateObject("CDO.Message")
	url = "http://miurl/mipagina.asp?"
	cadena = (url) & "usuario=" & usuario & "&institucion=" & institucion & "&correo=" & correo & "&codigomd5=" & concat & "&BtnEntrar=Entrar"
	myMail.Subject="Encuesta"
	myMail.From="[email protected]"
	myMail.To=(mail)
	myMail.TextBody=cadena
	myMail.Send
	set myMail=nothing

end function


Set con=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")

Con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("formulario.mdb")
Con.open	

Rs.open "Select usuario,institucion,correo From correos Where institucion ='x'",con
usr = Rs("usuario")
ins = Rs("institucion")
mail = Rs("correo")
concat = usr & ins & mail
concat = MD5(concat)

Do While not Rs.eof
	url_encuesta usr,ins,mail,concat
	...
	Rs.movenext
loop

metiendo la creacion del onjeto a la funcion... que despistado :s

Gracias Adler