Enviar email via Gmail

Boa tarde, já estou à alguns dias tentando fazer um código que funcione para mandar e-mail via gmail, mas sempre está dando o erro "Falha na conexão do transporte com o servidor."

Alguém poderia me ajudar?

Segue meu código:

Código:


    Dim CDOmsg As CDO.Message
    Set CDOmsg = New CDO.Message
    With CDOmsg.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuemail@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"
        .Update
    End With
    
    With CDOmsg
        .Subject = "Assunto"
        .From = "meuemail@gmail.com"
        .To = "destinatario@gmail.com"
        .TextBody = "Corpo do email"
    End With
    CDOmsg.Send
    Set CDOmsg = Nothing


Verifique no Gmail as permissões de uso de softwares de terceiros para o envio de e-mail.

Caso não saiba, eis os links para fazer as mudanças; Tem que estar conectado a tua conta ou do teu cliente.

No GMail tem que...
Alterar o acesso à conta para aplicativos menos seguros
https://support.google.com/accounts/answer/6010255?hl=pt-BR

Aplicativos menos seguros
https://www.google.com/settings/security/lesssecureapps

Gerenciar as configurações de acesso à conta e de segurança
https://myaccount.google.com/security

Boa tarde Silvio, obrigado pela rápida resposta!

Porém liberei minha conta para aplicativos menos seguros e continua dando o mesmo erro :/

Olá, mande depurar para ver em qual linha está ocorrendo o erro.
De um print na tela, para vermos.

O erro acontece no .Send

Obs. Censurei onde tem meus dados