michaelJustin/delphi-smtp-with-oauth2

Sending emails through Exchange Online using SMTP with OAuth2 can be a robust, secure alternative to traditional username/password authentication.

Secure Delphi SMTP With OAuth2

Requirements for FPCUnit test project

• Lazarus IDE
• Add required package for FPCUnit to the project
• 64 Bit OpenSSL DLLs from Indy
• Indy Sockets

Configuration

• Add tenant id, client id and client secret in unit oauth2tokenprovider

delphi-smtp-with-oauth2/src/main/oauth2tokenprovider.pas

Lines 29 to 32 in dfa6336

	const
	TokenEndpoint = 'https://login.microsoftonline.com/{tenant}/oauth2/v2.0/token';
	ClientID = '{client-id}';
	ClientSecret = '{client-secret}';

• Set recipient address and name in unit smtpoauth2client

delphi-smtp-with-oauth2/src/main/smtpoauth2client.pas

Lines 46 to 48 in dfa6336

	AddressItem := IdMessage.Recipients.Add;
	AddressItem.Address := 'recipient@example.com';
	AddressItem.Name := 'Recipient';

• Set authorized user and password (the auth token) in smtpoauth2client

delphi-smtp-with-oauth2/src/main/smtpoauth2client.pas

Lines 43 to 45 in 4fc3e2a

	UserPass := TIdUserPassProvider.Create(IdSMTP);
	UserPass.Username := 'user@example.com';
	UserPass.Password := OAuth2Token;