enviar emails con CDO

[FABERS]

Por favor estoy desesperada, intento enviar emails con CDO y se supone que los envia porque no me da ningun error, pero el caso es que no los envia por que en el correo no estan. Yo ya nose que hacer tengo configurado el smtp y todo asi que no se que es lo que pasa. Por favor necesito una solucion.
El codigo que utilizo es este:


Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPickup
.Item(cdoSMTPServer) = "localhost"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From =desde
.To =para
.Subject =asunto
.TextBody =cuerpo
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

[MarciQuirida]

Hola Fabers

Yo tambien estuve protestando un poco con esto
En lugar de poner localhost proba de esta manera

<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "aca proba de poner el dominio de tu servidor, por ej mail.dominio.com.ar"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "por ej [email protected]"
.To = "por ej [email protected]"
.Subject = "Ejemplo CDO Message"
.TextBody = "Esta es la prueba con cdosys"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Espero que te funcione

MarciQuirida

[FABERS]

Gracias por intentarlo pero nada no me funciona.
El caso es que en otro servidor que tenemos si que funciona pero en el que lo tengo que usar no y no tengo idea de porque, los dos tienen exactamente lo mismo instalado.

[Shiryu_Libra]

y tienes la misma configuracion???
puertos, usuarios, atributos por cuenta???