MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 29
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3377
    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 : 29
    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.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3377
    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 : 29
    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: Ter 28 Fev 2017, 06:25