email - conexión - No se pudo enviar un mensaje al servidor SMTP. Error de transporte 0x80040217

error de transporte en la conexión al servidor smtp

Question

Recibo este error al enviar un correo a través de asp utilizando gmail, ya utilicé los puertos 465, 587 y 25 con los mismos resultados

Correo atenuado dim email2 como string dim urlms como cadena

Dim mail 
dim email2 as string
dim urlms as string
    

mail = 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") = True
mail.Configuration.Fields.Item(urlms  & "smtpconnectiontimeout") = 60
mail.Configuration.Fields.Item(urlms + "smtpauthenticate") = 1
mail.Configuration.Fields.Item(urlms + "sendusername") = "" ''login
mail.Configuration.Fields.Item(urlms + "sendpassword") = "" ''password

mail.Configuration.Fields.Update

mail.Send

Answer 1

Funcionó como un encanto para mi propio servidor de correo, pero falla con Gmail. No sé por qué ...

De todos modos, también intenté sin el más para concatinate y tampoco funcionó, finalmente utilicé esto:

Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message") 
     
''This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ''Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yoursite.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '' or 587
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     
'' Google apps mail servers require outgoing authentication. Use a valid email address and password registered with Google Apps.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ''basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]" ''your Google apps mailbox address
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" ''Google apps password for that mailbox
     
ObjSendMail.Configuration.Fields.Update
     
ObjSendMail.To = "[email protected]"
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "[email protected]"
     
'' we are sending a text email.. simply switch the comments around to send an html email instead
''ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
     
ObjSendMail.Send
     
Set ObjSendMail = Nothing 

http://somee.com/DOKA/DoHelpTopics.aspx?docode=false&thnid=102

Y funcionó como un encanto para mi servidor, pero no funcionó para gmail.

Answer 2

Nota: El mensaje dice LOGON ERROR. Asegúrate de que el nombre y la contraseña sean correctos.

Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = "[email protected]"

emailObj.To       = "[email protected]"

emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

Set emailConfig = emailObj.Configuration
msgbox emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "YourUserName"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Password1"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"

Answer 3

Si está utilizando la autenticación en dos pasos en la cuenta de Google, debe cambiar la configuración, optar por "Habilitar aplicaciones menos seguras" o generar contraseñas de aplicaciones que serán 16 caracteres y debe usar esto en su código en lugar de su contraseña de Gmail real . https://www.google.com/settings/security/lesssecureapps

Answer 4

//
// MessageId: CDO_E_LOGON_FAILURE
//
// MessageText:
//
// The transport was unable to log on to the server.
//
#define CDO_E_LOGON_FAILURE              0x80040217L

Además, ¿por qué está utilizando más para concatenar los tres elementos de configuración.

Tu código Dims todo dos veces. Y atenúa las cosas como cadenas.

Está creando objetos sin usar Set.

Dudo que tu código se ejecute para generar un error.