Ver Mensaje Individual
  #3 (permalink)  
Antiguo 03/10/2012, 09:24
gdasoft
 
Fecha de Ingreso: septiembre-2011
Mensajes: 116
Antigüedad: 9 años, 9 meses
Puntos: 8
Respuesta: Problemas al enviar emials con CDO !

Buenas @[email protected]

Cita:
set mail=server.CreateObject("CDO.Message")
mail.From= Request("sender")
mail.To = "[email protected]"
mail.Subject = Request("subject")
mail.TextBody = "Mensaje: " & body
'mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
'mail.MailFormat = 1 ' 0 = MIME, 1 = Text
'mail.Importance = 1 ' 0 = High, 1 = Medium, 2 = Low
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXX.XXXXX.com"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
mail.Configuration.Fields.Update
mail.Send
set mail=nothing
Con ese codigo envio emails desde mi servidor sin problemas