Ver Mensaje Individual
  #2 (permalink)  
Antiguo 03/12/2008, 04:45
Avatar de Valery-Net
Valery-Net
 
Fecha de Ingreso: agosto-2008
Mensajes: 694
Antigüedad: 16 años, 8 meses
Puntos: 12
Respuesta: Configuracion CDO

Cambia:

Cita:
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Por el servidor de correo saliente de tu dominio, es el mismo que usas en tu cliente de correo.

Aquí tienes mi código:
Cita:
Set objMail= Server.CreateObject("CDO.Message")
With objMail
.From = "Valery<[email protected]>"
.To = "[email protected]"
.Subject = "Prueba de correo"
.HTMLBody = "PRUEBA <b>fgjdfjgdfjg</b>jfgjfdgdfjg"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "miclave"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Configuration.Fields.Update
.Send
End With
set objMail = nothing