Envio de Email outlook

[Joffas]

Em 04/10/2024 at 16:46, Patrick Alves disse:

@valterpatrick Verifica se suas configurações estão parecidas com essa:

[Email]
[email protected]
FromName=Patrick
Host=smtp.gmail.com
Port=587
[email protected]
Pass=strongpassword
TLS=Sim

[OAuth2]
AccessTokenUrl=https://oauth2.googleapis.com/token
AuthorizationTokenUrl=https://accounts.google.com/o/oauth2/v2/auth
ClientId=seuclientid
ClientSecret=seuclientsecret
RedirectURI=http://127.0.0.1:1500
Scope=https://mail.google.com/
 

* Lembrando que o scope deve estar definido também na configuração do aplicativo lá no Cloud Api Console do google

 

Perfeito, só não estou conseguindo definir o Proxy já que o token é pego através da função HttpPostURL() onde a mesma cria o objeto THTTPSend sem a possibilidade de configurar o proxy.

Alguém sabe se existe outra forma de configurar o mesmo ?

[Patrick Alves]

Alterações realizadas:

* Adicionar propriedade UseAuthenticator para habilitar OAuth2;
* Adicionar configuração para Proxy no OAuth2;

@Joffas Adicionei a configuração do Proxy, só não consigo testar aqui...

@EMBarbosa  Só adicionei essas alterações por causa do amigo acima que precisou do proxy, a opção de ativar o OAuth já tinha um tempo que estava feita. Parece que ainda estão decidindo se vão adicionar a funcionalidade, vi em outro tópico que pode ter problemas com lgpd mas não entendi muito bem.

Só pra informar:
É possível usar o ACBrMail sem essas alterações para enviar o email com o OAuth2. O processo de autenticar e gerar o token de acesso pode ser feito usando componentes como TOAuth2Authenticator da paleta RestClient do Delphi, TIdHTTP da Indy ou THTTPSend da synapse (é o usado na implementação). Com o token de acesso gerado é só informar ele na propriedade Password do ACBrMail que vc vai conseguir fazer o login e enviar o email normalmente.

ACBrMail.pas

[Joffas]

40 minutos atrás, Patrick Alves disse:

Alterações realizadas:

* Adicionar propriedade UseAuthenticator para habilitar OAuth2;
* Adicionar configuração para Proxy no OAuth2;

@Joffas Adicionei a configuração do Proxy, só não consigo testar aqui...

@EMBarbosa  Só adicionei essas alterações por causa do amigo acima que precisou do proxy, a opção de ativar o OAuth já tinha um tempo que estava feita. Parece que ainda estão decidindo se vão adicionar a funcionalidade, vi em outro tópico que pode ter problemas com lgpd mas não entendi muito bem.

Só pra informar:
É possível usar o ACBrMail sem essas alterações para enviar o email com o OAuth2. O processo de autenticar e gerar o token de acesso pode ser feito usando componentes como TOAuth2Authenticator da paleta RestClient do Delphi, TIdHTTP da Indy ou THTTPSend da synapse (é o usado na implementação). Com o token de acesso gerado é só informar ele na propriedade Password do ACBrMail que vc vai conseguir fazer o login e enviar o email normalmente.

ACBrMail.pas 46.71 kB · 0 downloads

Obrigado, vou testar e reporto:

Outro ponto se puderem me ajudar, não estou conseguindo configurar o envio pelo outlook segue minhas configs:

 

1 - Ao tentar recuperar o código de autorização recebo o erro: 

Não foi possível atender à sua solicitação

unauthorized_client: The client does not exist or is not enabled for consumers. If you are the application developer, configure a new application through the App Registrations in the Azure Portal at https://go.microsoft.com/fwlink/?linkid=2083908.

 

 

Erro 

 

 

 

 

[Patrick Alves]

@Joffas Tenta essas configurações no ACBrMail:

[Email]
[email protected]
Host=smtp-mail.outlook.com
Port=587
[email protected]
Pass=senha
TLS=Sim
SSL=Não

[OAuth2]
AccessTokenUrl=https://login.microsoftonline.com/common/oauth2/v2.0/token
AuthorizationTokenUrl=https://login.microsoftonline.com/common/oauth2/v2.0/authorize
ClientId=seu-client-id
ClientSecret=(não informa)
RedirectURI=http://127.0.0.1:1500
Scope=https://outlook.office.com/SMTP.Send offline_access
TimeOut=120000
 

Verifica a configuração do app na microsoft. 
Supported account types = Accounts in any organizational directory and personal Microsoft accounts;
Configure platforms = Mobile and desktop applications;