Tengo este codigo, no envia error, pero nunca llega el correo a destino.
Código:
set mail=server.CreateObject("CDO.Message")
urlms = "http://schemas.microsoft.com/cdo/configuration/"
mail.Configuration.Fields.Item(urlms & "sendusing") = 2 'enviar usando port
mail.Configuration.Fields.Item(urlms & "smtpserver") = "smtp.gmail.com"
mail.Configuration.Fields.Item(urlms & "smtpserverport") = 465
mail.Configuration.Fields.Item(urlms & "smtpusessl") = False
mail.Configuration.Fields.Item(urlms & "smtpconnectiontimeout") = 60
mail.Configuration.Fields.Item(urlms + "smtpauthenticate") = true
mail.Configuration.Fields.Item(urlms + "sendusername") = "[email protected]" 'login
mail.Configuration.Fields.Item(urlms + "sendpassword") = "123456" 'password
mail.From= "[email protected]"
mail.To = "[email protected]"
mail.CC = "[email protected]"
mail.Subject = "Prueba"
mail.TextBody = "prueba de correo"
mail.Send
set mail=nothing