CDONTS para win 2000

zink · #1 (**permalink**) 22/02/2003, 11:59

Ya se que me van a decir que ya lo han posteado, pero no he encontrado aun la respuesta, ya lo busqué y probé las soluciones que dan y no me funciona.

Trato de mandar un mail con el siguiente codigo:

<%
Dim objCDO
Set objCDO = Server.CreateObject("cdonts.NewMail")
objCDO.From = "[email protected]"
objCDO.To = "[email protected]"
objCDO.Subject = "mandar mail"

strBody = "si funciona el codigo"

objCDO.Body = strBody
objCDO.Send
Set objCDO = Nothing
%>

pero me marca error en la línea objCDO.Send me dice permiso denegado.

Me puse en contacto con mi proveedor de hosting y me dice que si soporta CDONTS y que el server es Windows 2000.

alguien sabes por que me pasa esto? :cantar:

Gracias de antemano

Gurrutello · #2 (**permalink**) 22/02/2003, 19:54

hola
prueba esto
esto estaba por ahí
<html>
<head>
<title>CDONTS Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#ffffff" text="#000000">
<center>
<table width="500">
<%
If request.form("action")="Test" then
on error resume next
Set Mail = CreateObject("CDONTS.Newmail")
if err.number = 0 then
Mail.From = request.form("UserEmail")
Mail.To = request.form("UserEmail")
Mail.Subject = "Your mail works!"
Mail.Body = "EL CDONTS FUNCIONA DEL CARAJO 27-6-2002"
Mail.Send
Set Mail = Nothing
%>
<tr>
<td align="center"> <b>Test Completado</b>
<p>Recibiras el email pronto
<% else %>
<td align="center"> <font face="arial">
<h3><b>Test Completado</b></h3>
<p>Tu webserver NO  soporta CDONTS.
<% end if %>
</font> </td>
</tr>
<% Else %>
<tr>
<td align="center"> <font face="times new roman">
<h2><i>CDO for NT Test</i></h2>
</font> <font face="Arial">
<form action="cdonts.asp" method="POST">
<p>Si tu servidor soporta CDO for NTS recibiras un email<br>
de confirmación minutos después de enviar el email
<pre>
Tu E-Mail: <input type="TEXT" name="UserEmail" size="25">
</pre>
<p>
<center>
<input type="SUBMIT" name="action" value="Test">
<input type="RESET" value="limpiar" name="RESET">
</center>
</form>
</font> </td>
</tr>
<% End If %>
</table>
</center>
</body>
</html>

Esto comprueba si tienes instalado cdonts.
saludos

TeleHost · #3 (**permalink**) 25/03/2003, 19:34

Yo tengo el mismo problema, en el servidor tengo Windows 2000 Advanced Server con IIS 5, estube analizando si el problema estaba en el código ASP o en la configuracion de IIS, y llegue a la conclusion que el problema esta en los privilegios del Servidor, todavia no lo solucione pero estoy seguro que esta ahi.

Yo diria que le exijas a tu proveedor que te solucione el problema.

Saludos

zink · #4 (**permalink**) 26/03/2003, 10:21

Gracias por responder TeleHost, voy a seguir tu consejo, voy a preguntarle a mi prveedor que me de esa autorización o privilegio.

Gracias por la ayuda

demente · #5 (**permalink**) 28/04/2003, 11:15

Que tal amigos, sufro del mismo problema, el script se ejecuta correctamente pero nunca recibo email alguno.

Espero que si alguien sabe como solucionarlo por favor nos colabore!!!

Gracias a todos por sus respuestas.

demente · #6 (**permalink**) 28/04/2003, 11:19

Acabo de ver en C:\Inetpub\mailroot\Drop y efectivamente encontre los mensajes que he intentado enviar.

Dentro del mensaje dice que no pudo enviar los mensajes porque no se pudo conectar correctamente con el servidor de correo de destino.

La verdad, no se que es lo que pasa.

zink · #7 (**permalink**) 28/04/2003, 11:57

hola Demente:
Te comento que yo ya lo solucioné....
le pregunté a mi proveedor de hosting y el me solucionó las dudas para poder configurar el asp.

te paso el código a ver si te sirve:

Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Update
End With

Dim iBP
With iMsg
Set .Configuration = iConf
.To = "[email protected]"
.From = Request.Form("mail")
.Subject = "cdonts con win 2000"
.HTMLBody = "cuerpo del msg"
.Send
End With

Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

me comentas si te sirvió

zink · #8 (**permalink**) 28/04/2003, 12:20

si no te funciona, lo puedes buscar en http://www.msdn.com

de ahi se basó mi proveedor para configurar el código.

bytes