Configurar CDO en WinXP

Bueno, bueno, nadie me dio respuesta, en todo caso encontre la solución, así
que la voy a compartir.

Bien...

1º Para win 2000, XP y 2003 existe la libreria CDOSYS.DLL que se instala
cuando se configura IIS
2º Para Win NT era la famosa CDONTS.DLL (asi es conocido el componente
CDONTS)

Configuración solo para el 1º caso:
Debemos ir al mmc (clic btn der sobre MiPC y clic btn izq en Administrar)
alli en Servicios y Aplicaciones extendemos Servicios de Internet
Information Server (IIS) y damos clic btn der en Servidor Virtual SMTP y
ahora en Propiedades
En la ventana que aparece seleccionamos la pestaña Acceso y clic al btn
Retransmisión. Dentro de esa ventana vamos a agregar un equipo (dir IP) para
darle permiso de acceso a SMTP virtual (La dir por defecto sera 127.0.0.1,
pero si tú equipo tiene asignada otra esa es la que debe ir). Bien... ya
concedido el permiso se puede hacer el ensayo.

Como enviar con CDOSYS desde ASP:

en el codigo que envie, (y que esta abajo de este post) he utilizado una
función que recibe los textos o datos a enviar en el correo y lo hice así
por que compruebo que objeto tiene el equipo CDOSYS ó CDONTS. Pero aquí voy
a incluir el codigo en términos generales para que lo puedan manipular como
quieran:

Dim objCDO
Dim Conf
Dim Flds

' crear objetos
Set objCDO = CreateObject("CDO.Message")
Set Conf = CreateObject("CDO.Configuration")
Set Flds = Conf.Fields

' esto se utiliza para configurar un esquema actualizado del objeto
' en "nombreDeMiServidor" ira el nombre del servidor que ejecuta la accion
de envio.
' puede funcionar localhost, pero a mi no me funcionó
Flds.Item("http://schemas.microsoft.com/cdo/co...sing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/co...rver") "nombreDeMiServidor"
Flds.Update

' adaptamos la configuración al objeto CDO
Set objCDO.Configuration = Conf
objCDO.To = ""
objCDO.From = ""
objCDO.Subject = "El Asunto"
objCDO.TextBody = "Cuerpo del mensaje en formato texto"
'objCDO.HTMLBody = "<b>ó cuerpo del mensaje en formato html</b>"
objCDO.Send

' esto ya lo saben
Set Flds = Nothing
Set objCDO = Nothing
Set iConf = Nothing

Tiene para adjuntar archivos también pero investiguen!!!!

artjc :-)

"Juan C. Pulido S." escribió en el mensaje
news:

Hola a todos:
Necesito configurar el SMTP para enviar correos desde mi PC con el CDO, la
verdad creo que lo tengo configurado pero no me envia mensajes cuando los
pruebo con el .asp.
tengo Windows XP pro, IIS 5.1
Tengo la siguiente función que realiza el envio de mail:

Function correo (DE, PARA, ASUNTO, CUERPO)
' = Enviar e-mail => Dim objCDO
Dim strTo
Dim strFrom
Dim strSubject
Dim strBody
Dim cdoConfig
strTo = PARA
strFrom = DE
strSubject = ASUNTO
strBody = CUERPO

Set objCDO = Server.CreateObject("CDO.Message")
' valores de configuración por si no acepta la config por defecto
'set cdoConfig = Server.CreateObject("CDO.Configuration")

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/co...sing"

) = 2

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/co...smtpserver

") = smtpServer
'cdoConfig.Fields.Update
'set objCDO.Configuration = cdoConfig
With objCDO
.To = strTo
.From = strFrom
.Subject = strSubject
.HtmlBody = strBody
.Send
End With
Set objCDO = Nothing
'== Fin Envío ==> End Function

No utilizo el CDONTS ya que este es para winNT
Hay unos valores de configuración que en este ejemplo no actúan, pero las

he

probado también con ellos y nada.

Como debo configurar SMTP bien en windows XP y/o que estoy haciendo mal!

Gracias!
artjc :-)