Formulário de email - Recusa conta Gmail

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

Boa noite

Tenho o mesmo problema ???

Aguardamos a ver e tem mais casos ...

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.

Silvio

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

Obrigado

Assis testou outras portas SMTP no teu sistema ?

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

Silvio

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

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

Obrigado

Olá a todos,

Assis,

1) Baixe o exemplo da mensagem n. 32 do topico abaixo:
https://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:


E depois teste, se fizer tudo direitinho, voilá !


Abraço a todos

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

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 !"

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

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

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