MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Enviar email via Gmail

    Compartilhe

    pitfritsch
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 14/07/2015

    Enviar email via Gmail

    Mensagem  pitfritsch em Ter 10 Jan 2017, 17:01

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

    Re: Enviar email via Gmail

    Mensagem  Silvio em Ter 10 Jan 2017, 17:20

    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
    [Você precisa estar registrado e conectado para ver este link.]

    Aplicativos menos seguros
    [Você precisa estar registrado e conectado para ver este link.]

    Gerenciar as configurações de acesso à conta e de segurança
    [Você precisa estar registrado e conectado para ver este link.]

    pitfritsch
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 14/07/2015

    Re: Enviar email via Gmail

    Mensagem  pitfritsch em Ter 10 Jan 2017, 17:38

    Boa tarde Silvio, obrigado pela rápida resposta!

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

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

    Re: Enviar email via Gmail

    Mensagem  Silvio em Ter 10 Jan 2017, 17:49

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    pitfritsch
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 14/07/2015

    Re: Enviar email via Gmail

    Mensagem  pitfritsch em Ter 10 Jan 2017, 17:54

    O erro acontece no .Send

    Obs. Censurei onde tem meus dados
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qui 23 Nov 2017, 01:35