Ver Mensaje Individual
  #2 (permalink)  
Antiguo 26/04/2007, 12:10
MarciQuirida
 
Fecha de Ingreso: abril-2007
Mensajes: 29
Antigüedad: 18 años
Puntos: 0
Re: enviar emails con CDO

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