Es necesario realizar alguna configuración en el IIS para utilizar el componente CDONTS.
Ya lo probe y no me funciona.
Alguna pista?
Saludos.
12/07/2004, 12:25
| ||||
| ||||
| Creo q a partir de Win2000 o IIS 5 se dejan de utilizar los componentes CDONTS y se reemplazan por CDOSYS. Yo estuve pidiendo informacion sobre estos ultimos pero nadie me respondio. De todas formas de dejo algo te va a ser util:
Código:
Un saludo; por cualkier consulta, a las ordenes <!--
VBScript
-->
<!--
'Sending SMTP mail via port 25 using CDOSYS
'This ASP page uses CDOSYS to send SMTP mail using port 25 of the SMTP server that is set. The e-mail delivery is handled by the SMTP server that is set in the configuration object.
-->
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
' send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Const cdoSendUsingPort = 2
StrSmartHost = "smarthost"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "[email protected]"
.From = "[email protected]"
.Subject = "This is a test CDOSYS message (Sent via Port 25)"
.HTMLBody = strHTML
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
<P> </P>
</BODY>
</HTML>
 AlvAro
__________________ - Sk8 FoR LiFe - Stay away from my Black Book |
|
12/07/2004, 14:09
| ||||
| ||||
| Oye yo acabo de instalar el componente SMTP de windows 2000 server y me funcionó prueba a ver aqui te mando un ejemplo ASP para que pruebes: cBody = Request.Form("Body") cPara = = Request.Form("Amiguete") Y ahora el ejemplo, en el que se muestra como enviar a un amigo, una copia y una copia oculta, lo común. <%@ Language=VBScript%> <html> <head> <title>Enviar a un amigo</title> </head> <body><% Dim cBody, n 'For Each n In Request.Form ' cBody = "enviado desde asp" 'cBody & n & ": " & Request.Form(n) & chr(13) 'Next cBody = "enviado desde asp 123" Set oCDO = Server.CreateObject("CDONTS.NewMail") 'Asignamos las propiedades al objeto oCDO.From = "[email protected]" oCDO.To = "[email protected]" oCDO.Subject = "Asunto del mensaje" oCDO.Body = cBody 'oCDO.Cc = "[email protected];[email protected]" 'oCDO.Bcc = "[email protected]" 'oCDO.MailFormat = 0 oCDO.Send Set oCDO = Nothing 'Liberar... 'Mostramos mensaje de que seenvió con éxito. Response.Write "¡Se envió Ok, qué fácil!!" %> </body> </html> espero te funcione
__________________ ValerioJ |
|
12/07/2004, 14:29
| ||||
| ||||
| Por la informacion q encontre, tengo entendido q Win2000 comparte ambos componentes, mientras q a partir de WinXP (e IIS 5.1) los CDONTS ya no son soportados, pasando a ser CDOSYS el unico componente SMTP. AlvAro
__________________ - Sk8 FoR LiFe - Stay away from my Black Book |
|
11/02/2005, 01:45
| ||||
| ||||
| he probado miles de formas de mandar un mail con CDOSYS, pero nunca puedo, me sale el error en la línea donde está el Send... el error dice: Error de transporte en la conexión al servidor. q hago? debo configurar? o q?
__________________ Yo si sé lo que es trabajar duro, porque lo he visto. |
|
11/02/2005, 02:06
| ||||
| ||||
| Puede ser que no tengas un servidor smtp para enviar correos. Creo que ese error lo da cuando no encuentra ningun servidor de correo con el que mandar correos. Cuando el servidor de correo es distinto al servidor web, en el iis del servidor web tienes que configurar la dirección del servidor de correo, aunque supongo que en tu caso lo estas probando todo sobre una misma máquina no??? Como dicen en otro post, tienes que tener instalado el componente smtp de W2k (Agregar o Quitar Programas--> Agregar componentes de windos) o cualquier otro servidor de correo. Lo que ya no estoy muy seguro es como lo tendrás que configurar, a ver si alguien te puede echar una manita con eso.
__________________ Vayamos por Partes :: Jack el Destripador |
|
19/10/2008, 18:30
| |||
| |||
| Respuesta: CDONTS.NewMail y IIS Hay 2 formas de usar ese componente ; la primera es usarlo teniendo configurado en modalidad local el Servicio SMTP (correo) y la segunda es usar un Servidor de Correo remoto; y esta ultima es la que yo uso ya que utilizo cualquiera de los ISP que tengo contratados; en donde me ofrecen Servicio SMPT... aca les mando un ejemplo de como usar y configurar la pagina ASP para que tome Server remoto de correo.. con esto se evitan de estar instalando servidor de correo en su màquina... aca va ESTOS METADATAS SON MUY PERO MUY IMPORTANTES Y DEBEN IR EN LA PAGINA <!-- METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" --> <% dim cdoMessage, cdoConfig Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 -----> con esto indican que usaran Server Remoto .Item(cdoSMTPServer) = "xxxx.cl" -----> aca deben de poner el Servidor de SMTP contratado .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "[email protected]" .To = "[email protected]" .Subject = "Prueba" .TextBody = "Este es un mensaje de prueba" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %> Espero les sirva ya que a mi me funciona perfecto |
