smtpSend

[volmir]

vou postar aqui uma contribuicao.

Viz um pequeno ajuste para conseguir enviar email com autenticação OAuth2 do gmail. Para enviar basta informar o acess_token no lugar do password.

em anexo a unit modificada. smtpsend.pas

smtpsend.pas

[Juliana Tamizou]

Bom dia,

Obrigada pela contribuição, adicionada para análise.

Att.

[Daniel Simoes]

Parece muito bacana, e muito útil... achei informações em

https://developers.google.com/gmail/imap/xoauth2-protocol

Para chegar no Token,  não é necessário algum procedimento de conexão antes ?

Pode dar um exemplo de como ficaria o código de envio do e-mail ?

[volmir]

Bom dia Daniel,

Sim, é preciso requizitar um acess_token antes.

Primeiramente deve-se acessar https://console.developers.google.com/

Criar as credencias para a conta de email especifica. Vai ser gerada uma Cliente_id e uma Secret_id, com estas informacoes é possivel requisitar um acess_token via post.

Para isso usei os componentes RestClient do delphi.

Este acess_token tem valida de de 1 hora, porem é posivel requisitar um novo token usando o refresh_token retornado pela api.

para mais informacoes acessar https://medium.com/@pablo127/google-api-authentication-with-oauth-2-on-the-example-of-gmail-a103c897fd98

tem varios tutoriais explicando como requizitar inclusive com exemplos em delphi.

foi com base nestes tutoriais que consegui desenvolver esta funcionalidade.

[volmir]

Em anexo estou disponibilizando todos os metodos que estou utilizando para obter um refresh_token e o acess_token, bem como a rotina de envio do email em si usando o acess_token, é claro que esta é a forma que eu trabalho adequem as suas realidades. Somente como auxilio para quem deseja implentar.

GetAcessToken.txt

[Daniel Simoes]

Obrigado @volmir, interessante essa abordagem...

Envie para o SVN... rev, 17034