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


    Formulário de email - Recusa conta Gmail

    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 92
    Registrado : 12/04/2011

    Formulário de email - Recusa conta Gmail Empty Formulário de email - Recusa conta Gmail

    Mensagem  MMS em 2/4/2019, 21:01

    Prezados, Tenho um formulário de envio de email que funcionava perfeitamente para envios de emails do access (via CDO).
    De uns tempos para cá, emails enviados para contas "gmail.com" não recebem os emails, alguém sabe me dizer o que acontece?
    Alguém já passou por isso? Minha conta de envio é do hostgator e quando envio do outlook ou mesmo do webEmail para contas "gmail.com" funciona.

    Abrs.

    Marcelo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3852
    Registrado : 06/11/2009

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Assis em 2/4/2019, 23:07

    Boa noite

    Tenho o mesmo problema ???

    Aguardamos a ver e tem mais casos ...


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Silvio em 3/4/2019, 12:52

    bom dia....

    Verifiquem os links abaixo.  Tem que estarem logados no Gmail.

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

    Aplicativos menos seguros
    google.com/settings/security/lesssecureapps

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

    Caso esteja tudo certo, alterem as portas do SMTP em teus sistemas.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3852
    Registrado : 06/11/2009

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Assis em 3/4/2019, 13:12

    Silvio

    Ativei para aplicativos menos seguros.
    Mas continua igual. Não consigo mandar mails para contas Gmail.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Silvio em 3/4/2019, 20:26

    Assis testou outras portas SMTP no teu sistema ?

    Portas....25, 587, 465 por exemplo !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3852
    Registrado : 06/11/2009

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Assis em 3/4/2019, 21:51

    Silvio

    Com a porta 25 envio para todos, Hotmail.com, sapo.pt etc.

    Mas para exemplo teste@gmail.com não envia.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6066
    Registrado : 15/03/2013

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  ahteixeira em 4/4/2019, 22:54

    Olá a todos,

    Assis,

    1) Baixe o exemplo da mensagem n. 32 do topico abaixo:
    http://www.maximoaccess.com/t21533-resolvidoconfiguracoes-do-smtp-mail-outlook-com-nao-aceitando-portas-25-465-ou-587

    2) Altere no código para os servidores do gmail e portas, resumindo altere o código por este:
    Código:
    Option Compare Database

    Private Sub cmdEnviar_Click()
        
        Me.txtEstado = "Aguarde a enviar..."
        
        Set emailobj = CreateObject("CDO.Message")
        
        emailobj.From = Me.txtEmailOrigem
        emailobj.To = Me.txtEmailDestino
        emailobj.Subject = "Teste envio CDO em " & Now()
        emailobj.TextBody = "Se está a ver esta mensagem é porque foi enviada via CDO pelo Access."
        
        
        Set emailConfig = emailobj.Configuration
        
        
        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/smtpconnectiontimeout") = 30
        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/smtpusessl") = True
        emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = Me.txtEmailOrigem
        emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Me.txtPassword
        emailConfig.Fields.Update
        
        emailobj.Send
        
        Me.txtEstado = ""
        
        If Err.Number = 0 Then MsgBox "Enviado", vbInformation, ""
        
        Set emailobj = Nothing
        Set emailConfig = Nothing
    End Sub

    3) Como já foi dito, altere nas definições da Google para "Acesso alterações menos seguras" em
    myaccount.google.com/security

    Deve ficar assim:
    Formulário de email - Recusa conta Gmail 055

    E depois teste, se fizer tudo direitinho, voilá !
    Formulário de email - Recusa conta Gmail 0envia10

    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3852
    Registrado : 06/11/2009

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Assis em 5/4/2019, 00:25

    Boa noite Teixeira

    Com estes dados envio mails para todos os meus contactos, mas para xxxx@Gmail.com , não envia

    As minhas configurações do Sapo

    Formulário de email - Recusa conta Gmail Sapo10


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Silvio em 5/4/2019, 11:59

    Bom dia / boa tarde....

    Apenas repetindo, depois das alterações sugeridas pelo Alvaro:

    "Assis testou outras portas SMTP no teu sistema ? Portas....25, 587, 465 por exemplo !"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3852
    Registrado : 06/11/2009

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Assis em 5/4/2019, 12:15

    Teixeira

    Pena não enviar "Anexos" pode ajudar ?

    Com o meu que não envia para gmail, enviava até 3 anexos.

    Assim

    If Not IsNull(Me.txtAnexo) Then
    .AddAttachment = Me.txtAnexo
    End If

    If Not IsNull(Me.txtAnexo1) Then
    .AddAttachment = Me.txtAnexo1
    End If

    If Not IsNull(Me.txtAnexo2) Then
    .AddAttachment = Me.txtAnexo2
    End If



    Aguardo

    Silvio
    Sim testei nas Portas  25, 587, 465

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3852
    Registrado : 06/11/2009

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Assis em 5/4/2019, 13:26

    Boa tarde Amigos

    Resolvido para todos os tipos mesmo gmail.com

    Anexos

    If Not IsNull(Me.txtAnexo) Then
    emailobj.AddAttachment (Me.txtAnexo)
    End If
    If Not IsNull(Me.txtAnexo1) Then
    emailobj.AddAttachment (Me.txtAnexo1)
    End If
    If Not IsNull(Me.txtAnexo2) Then
    emailobj.AddAttachment (Me.txtAnexo2)
    End If

    Obrigado Teixeira pela cana de pesca cheers cheers


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6066
    Registrado : 15/03/2013

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  ahteixeira em 5/4/2019, 16:12

    Olá a todos,

    Assis, obrigado pelo retorno.

    Marcelo, ficamos aguardar se já esclsreceu a dúvida, uma vez que foi quem abriu o tópico.

    Abraço

    Conteúdo patrocinado

    Formulário de email - Recusa conta Gmail Empty Re: Formulário de email - Recusa conta Gmail

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/6/2019, 09:50