Monkeybread Software - MBS FileMaker Plugin: Office 365 oAuth SMTP

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

Office 365 oAuth SMTP

All examples are included with download of MBS FileMaker Plugin.

Office 365 oAuth SMTP.fmp12

Overview
Tables	1
Relationships	0
Layouts	1
Scripts	8
Value Lists	0
Custom Functions	0
Custom Menus	24

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Office 365 oAuth SMTP	21 fields defined, 1 record	Office 365 oAuth SMTP

Fields

Table Name: Office 365 oAuth SMTP - 21 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
PrimaryKey	Normal, Text	Auto-Enter: Context table: Office 365 oAuth SMTP Calculation: Get( UUID ) Validation: Only during data entry Not empty Unique Strict validation Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: Unicode Raw	Unique identifier of each record in this table
CreationTimestamp	Normal, Timestamp	Auto-Enter: Creation timestamp Validation: Only during data entry Strict data type: 4 digit year Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Date and time each record was created
CreatedBy	Normal, Text	Auto-Enter: Creation account name Validation: Only during data entry Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Account name of the user who created each record
ModificationTimestamp	Normal, Timestamp	Auto-Enter: Modification timestamp Validation: Only during data entry Strict data type: 4 digit year Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Date and time each record was last modified
ModifiedBy	Normal, Text	Auto-Enter: Modification account name Validation: Only during data entry Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Account name of the user who last modified each record
Debug	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		WebHookReceived Clear
URL	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Start Authentication Clear Logout from WebViewer
CURL Debug	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Query Token Send Email Clear Refresh Token
CURL Result	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Query Token Extract Access Token Clear Refresh Token
access_token	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Extract Access Token Send Email Clear
Answer	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		WebHookReceived Query Token Clear
ClientID	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Start Authentication Query Token Refresh Token
ClientSecret	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Query Token Refresh Token
TenantID	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Start Authentication Query Token Refresh Token
From Email	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Send Email
To Email	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Send Email
From Name	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Send Email
To Name	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Send Email
Subject	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Send Email
Email Text	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Send Email
refresh_token	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Office 365 oAuth SMTP		Extract Access Token Refresh Token

Layout Objects: Office 365 oAuth SMTP

Regular Fields

Field Name: Office 365 oAuth SMTP::Debug

Layout Name:

Office 365 oAuth SMTP

Top: 89 pt
Left: 893 pt
Bottom: 174 pt
Right: 1146 pt

Anchoring: Left and Right, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::URL

Layout Name:

Office 365 oAuth SMTP

Top: 182 pt
Left: 893 pt
Bottom: 267 pt
Right: 1146 pt

Anchoring: Left and Right, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::CURL Debug

Layout Name:

Office 365 oAuth SMTP

Top: 275 pt
Left: 893 pt
Bottom: 360 pt
Right: 1146 pt

Anchoring: Left and Right, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::CURL Result

Layout Name:

Office 365 oAuth SMTP

Top: 368 pt
Left: 893 pt
Bottom: 453 pt
Right: 1146 pt

Anchoring: Left and Right, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::access_token

Layout Name:

Office 365 oAuth SMTP

Top: 554 pt
Left: 893 pt
Bottom: 639 pt
Right: 1146 pt

Anchoring: Left and Right, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::Answer

Layout Name:

Office 365 oAuth SMTP

Top: 461 pt
Left: 893 pt
Bottom: 546 pt
Right: 1146 pt

Anchoring: Left and Right, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::ClientID

Layout Name:

Office 365 oAuth SMTP

Top: 726 pt
Left: 138 pt
Bottom: 757 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::ClientSecret

Layout Name:

Office 365 oAuth SMTP

Top: 761 pt
Left: 138 pt
Bottom: 792 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::TenantID

Layout Name:

Office 365 oAuth SMTP

Top: 796 pt
Left: 138 pt
Bottom: 827 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::From Email

Layout Name:

Office 365 oAuth SMTP

Top: 726 pt
Left: 506 pt
Bottom: 757 pt
Right: 759 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::To Email

Layout Name:

Office 365 oAuth SMTP

Top: 796 pt
Left: 506 pt
Bottom: 827 pt
Right: 759 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::From Name

Layout Name:

Office 365 oAuth SMTP

Top: 761 pt
Left: 506 pt
Bottom: 792 pt
Right: 759 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::To Name

Layout Name:

Office 365 oAuth SMTP

Top: 831 pt
Left: 506 pt
Bottom: 862 pt
Right: 759 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::Subject

Layout Name:

Office 365 oAuth SMTP

Top: 726 pt
Left: 866 pt
Bottom: 757 pt
Right: 1119 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::Email Text

Layout Name:

Office 365 oAuth SMTP

Top: 761 pt
Left: 866 pt
Bottom: 862 pt
Right: 1119 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Office 365 oAuth SMTP::refresh_token

Layout Name:

Office 365 oAuth SMTP

Top: 866 pt
Left: 138 pt
Bottom: 936 pt
Right: 759 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: Open Scripts

Layout Name:

Office 365 oAuth SMTP

Top: 17 pt
Left: 772 pt
Bottom: 48 pt
Right: 959 pt

Anchoring: Left, Top

Open Script Workspace

Web Viewer Controls

Web Viewer Control Properties

Coordinates

Web Address

Layout Name:

Office 365 oAuth SMTP

Additional Properties:

Allow interaction with web viewer content
Display progress bar
Display status messages

Top: 89 pt
Left: 10 pt
Bottom: 722 pt
Right: 759 pt

Anchoring: Left, Top

Logout from WebViewer

Refresh Token

Next Script: [WebHookReceived]

Script Name	Start Authentication
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Start a web view for the callback If [ IsEmpty ( $$WebHooks ) ] #setup callback Set Variable [ $$WebHooks; Value:MBS("WebHook.Create") ] Set Variable [ $r; Value:MBS("WebHook.Listen"; $$WebHooks; 9999) ] Set Variable [ $r; Value:MBS("WebHook.SetScript"; $$WebHooks; Get(FileName); "WebHookReceived") ] Set Variable [ $text; Value:"<html><p>Request arrived.</p></html>" ] Set Variable [ $text; Value:"HTTP/1.1 200 OK¶Server: MyServer 1.0¶Connection: close¶Content-Type: text/html¶Content-Length: 36¶¶" & $text ] Set Variable [ $text; Value:MBS( "Text.ReplaceNewline"; $Text; 3 ) ] Set Variable [ $r; Value:MBS("WebHook.SetAutoAnswer"; $$Webhooks; $text; "UTF-8") ] End If #Now load URL in browser to have user login: #Please signup your own Azure app with the redirect URI below and the client secret. #see https://learn.microsoft.com/en-us/azure/active-directory/develop/quickstart-register-app Set Variable [ $clientID; Value:Trim(Office 365 oAuth SMTP::ClientID) ] Set Variable [ $TenantID; Value:Trim(Office 365 oAuth SMTP::TenantID) ] Set Variable [ $redirectURI; Value:"http://localhost:9999/" ] Set Variable [ $redirectURI; Value:MBS("Text.EncodeURLComponent"; $redirectURI; "UTF-8") ] Set Variable [ $scope; Value:"offline_access https://outlook.office365.com/SMTP.Send https://outlook.office365.com/IMAP.AccessAsUser.All" // "openid profile offline_access https://outlook.office365.com/POP.AccessAsUser.All https://outlook.office365.com/IMAP.AccessAsUser.All" ] Set Variable [ $scope; Value:MBS("Text.EncodeURLComponent"; $scope; "UTF-8") ] Set Variable [ $URL; Value:"https://login.microsoftonline.com/" & $TenantID & "/oauth2/v2.0/authorize?response_type=code&scope=" & $scope & "&redirect_uri=" & $redirectURI & "&client_id=" & $clientID & "&state=test" ] #let web viewer be Safari Set Variable [ $r; Value:MBS("WebView.SetCustomUserAgent"; "web"; "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/16.1 Safari/605.1.15") ] #Load the URL Set Variable [ $r; Value:MBS( "WebView.LoadURL"; "web"; $URL) ] #show for debugging Set Field [ Office 365 oAuth SMTP::URL; $URL ]
Fields used in this script	Office 365 oAuth SMTP::ClientID Office 365 oAuth SMTP::TenantID Office 365 oAuth SMTP::URL
Scripts used in this script
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Start Authentication]

Next Script: [Query Token]

Script Name	WebHookReceived
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $WebRequest; Value:Get(ScriptParameter) ] #we got the answer Set Variable [ $URLComponents; Value:MBS( "WebRequest.URLComponents"; $WebRequest ) ] If [ Position ( JSONGetElement ( $URLComponents ; "RelativeURL" ); "favicon.ico"; 1; 1 ) > 0 ] #ignore query for favicon Exit Script [ ] End If Set Field [ Office 365 oAuth SMTP::Answer; $URLComponents ] #and show full request for debugging Set Variable [ $Text; Value:MBS( "Text.ReplaceNewline"; MBS("WebRequest.GetRawData"; $WebRequest; "UTF-8"); 1) ] Set Field [ Office 365 oAuth SMTP::Debug; $Text ] #free the webhook and request Set Variable [ $r; Value:MBS("WebRequest.Release"; $WebRequest) ] Set Variable [ $r; Value:MBS("WebHook.Release"; $$WebHooks) ] Set Variable [ $$WebHooks; Value:"" ] #clear web viewer Set Variable [ $r; Value:MBS( "WebView.LoadURL"; "web"; "about:blank") ] #Now continue with query token Perform Script [ “Query Token” ]
Fields used in this script	Office 365 oAuth SMTP::Answer Office 365 oAuth SMTP::Debug
Scripts used in this script	Query Token
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [WebHookReceived]

Next Script: [Extract Access Token]

Script Name	Query Token
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script
Scripts that use this script	WebHookReceived
Script Definition
Script Steps	Set Variable [ $URLComponents; Value:Office 365 oAuth SMTP::Answer ] Set Variable [ $Parameters; Value:JSONGetElement ( $URLComponents ; "Parameters" ) ] Set Variable [ $code; Value:JSONGetElement ( $Parameters ; "code" ) ] Set Variable [ $state; Value:JSONGetElement ( $Parameters ; "state" ) ] Set Variable [ $session_state; Value:JSONGetElement ( $Parameters ; "session_state" ) ] #if we got a code, we continue to query the access code If [ Length ( $code ) > 0 ] Set Variable [ $TenantID; Value:Trim(Office 365 oAuth SMTP::TenantID) ] Set Variable [ $clientID; Value:Trim ( Office 365 oAuth SMTP::ClientID ) ] Set Variable [ $clientSecret; Value:Trim(Office 365 oAuth SMTP::ClientSecret) ] Set Variable [ $URL; Value:"https://login.microsoftonline.com/" & $TenantID & "/oauth2/v2.0/token" ] Set Variable [ $redirectURI; Value:MBS("Text.EncodeURLComponent"; "http://localhost:9999/"; "UTF-8") ] Set Variable [ $Data; Value:"code=" & $code & "&client_id=" & $clientID & "&client_secret=" & $clientSecret & "&grant_type=authorization_code" & "&redirect_uri=" & $redirectURI ] Set Variable [ $curl; Value:MBS("CURL.New") ] Set Variable [ $result; Value:MBS("CURL.SetOptionURL"; $curl; $URL) ] Set Variable [ $result; Value:MBS("CURL.SetOptionPostFields"; $curl; $Data; "UTF-8") ] Set Variable [ $result; Value:MBS("CURL.SetOptionHTTPHeader"; $curl; "application/x-www-form-urlencoded") ] Set Variable [ $result; Value:MBS("CURL.Perform"; $curl) ] #Pick Result Set Variable [ $code; Value:MBS( "CURL.GetResponseCode"; $curl ) ] If [ $result = "OK" and $code = 200 ] Set Variable [ $resultText; Value:MBS("CURL.GetResultAsText"; $curl) ] Set Variable [ $debugText; Value:MBS("CURL.GetDebugAsText"; $curl) ] Set Field [ Office 365 oAuth SMTP::CURL Debug; $DebugText ] Set Field [ Office 365 oAuth SMTP::CURL Result; $resultText ] Perform Script [ “Extract Access Token” ] Else Show Custom Dialog [ Title: "SMTP"; Message: "Failed to query token."; Default Button: “OK”, Commit: “Yes” ] End If Set Variable [ $result; Value:MBS("CURL.Cleanup"; $curl) ] End If
Fields used in this script	Office 365 oAuth SMTP::Answer Office 365 oAuth SMTP::TenantID Office 365 oAuth SMTP::ClientID Office 365 oAuth SMTP::ClientSecret Office 365 oAuth SMTP::CURL Debug Office 365 oAuth SMTP::CURL Result
Scripts used in this script	Extract Access Token
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Query Token]

Next Script: [Send Email]

Script Name	Extract Access Token
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script
Scripts that use this script	Query Token Refresh Token
Script Definition
Script Steps	Set Variable [ $Result; Value:Office 365 oAuth SMTP::CURL Result ] #get access token Set Variable [ $token_type; Value:JSONGetElement ( $Result ; "token_type" ) ] Set Variable [ $scope; Value:JSONGetElement ( $Result ; "scope" ) ] Set Variable [ $expires_in; Value:JSONGetElement ( $Result ; "expires_in" ) ] Set Variable [ $ext_expires_in; Value:JSONGetElement ( $Result ; "ext_expires_in" ) ] Set Variable [ $access_token; Value:JSONGetElement ( $Result ; "access_token" ) ] Set Variable [ $refresh_token; Value:JSONGetElement ( $Result ; "refresh_token" ) ] If [ Length ( $access_token ) > 0 ] Set Field [ Office 365 oAuth SMTP::access_token; $access_token ] If [ Length ( $refresh_token ) > 0 ] #we only get one, if offline_access scope is set Set Field [ Office 365 oAuth SMTP::refresh_token; $refresh_token ] End If Show Custom Dialog [ Title: "Got token!"; Default Button: “OK”, Commit: “Yes” ] End If
Fields used in this script	Office 365 oAuth SMTP::CURL Result Office 365 oAuth SMTP::access_token Office 365 oAuth SMTP::refresh_token
Scripts used in this script
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Extract Access Token]

Next Script: [Clear]

Script Name	Send Email
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#create email Set Variable [ $EmailID; Value:MBS("SendMail.CreateEmail") ] Set Variable [ $r; Value:MBS("SendMail.SetFrom"; $EmailID; Trim(Office 365 oAuth SMTP::From Email); Trim(Office 365 oAuth SMTP::From Name)) ] Set Variable [ $r; Value:MBS("SendMail.SetPlainText"; $EmailID; Office 365 oAuth SMTP::Email Text) ] Set Variable [ $r; Value:MBS("SendMail.SetSubject"; $EmailID; Office 365 oAuth SMTP::Subject) ] Set Variable [ $r; Value:MBS("SendMail.SetSMTPServer"; $EmailID; "smtp.office365.com") ] Set Variable [ $r; Value:MBS("SendMail.SetSMTPUsername"; $EmailID; Trim(Office 365 oAuth SMTP::From Email)) ] Set Variable [ $r; Value:MBS("SendMail.AddTO"; $EmailID; Trim (Office 365 oAuth SMTP::To Email); Trim (Office 365 oAuth SMTP::To Name)) ] Set Variable [ $curl; Value:MBS("CURL.New") ] Set Variable [ $r; Value:MBS("SendMail.PrepareCURL"; $EmailID; $curl) ] #Maybe use alternative SMTP port? Set Variable [ $r; Value:MBS("CURL.SetOptionPort"; $curl; 587) ] #This turns TLS on and requires connection to be encrypted Set Variable [ $r; Value:MBS("CURL.SetOptionUseSSL"; $curl; 3) ] #force TLS v1.2 Set Variable [ $r; Value:MBS("CURL.SetOptionSSLVersion"; $curl; 6) ] #This disables certificate verification, so we accept any: Set Variable [ $r; Value:MBS("CURL.SetOptionSSLVerifyHost"; $curl; 0) ] Set Variable [ $r; Value:MBS("CURL.SetOptionSSLVerifyPeer"; $curl; 0) ] #put in token Set Variable [ $r; Value:MBS("CURL.SetOptionXOAuth2Bearer"; $curl; Office 365 oAuth SMTP::access_token) ] #Better with certificates if you have some: // Set Variable [ $r; Value:MBS( "CURL.SetOptionCAInfo"; $curl; "/Library/FileMaker Server/certificates.pem") ] // Set Variable [ $r; Value:MBS("CURL.SetOptionSSLVerifyHost"; $curl; 2) ] // Set Variable [ $r; Value:MBS("CURL.SetOptionSSLVerifyPeer"; $curl; 1) ] #Run the transfer Set Variable [ $r; Value:MBS("CURL.Perform"; $curl) ] #get debug messages Set Field [ Office 365 oAuth SMTP::CURL Debug; MBS("CURL.GetDebugAsText"; $curl; "UTF-8") ] Set Variable [ $r; Value:MBS("CURL.Release"; $curl) ] # Cleanup Set Variable [ $r; Value:MBS("SendMail.Release"; $EmailID) ]
Fields used in this script	Office 365 oAuth SMTP::From Email Office 365 oAuth SMTP::From Name Office 365 oAuth SMTP::Email Text Office 365 oAuth SMTP::Subject Office 365 oAuth SMTP::To Email Office 365 oAuth SMTP::To Name Office 365 oAuth SMTP::access_token Office 365 oAuth SMTP::CURL Debug
Scripts used in this script
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Send Email]

Next Script: [Logout from WebViewer]

Script Name	Clear
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Field [ Office 365 oAuth SMTP::Debug; "" ] Set Field [ Office 365 oAuth SMTP::URL; "" ] Set Field [ Office 365 oAuth SMTP::CURL Debug; "" ] Set Field [ Office 365 oAuth SMTP::CURL Result; "" ] Set Field [ Office 365 oAuth SMTP::access_token; "" ] Set Field [ Office 365 oAuth SMTP::Answer; "" ]
Fields used in this script	Office 365 oAuth SMTP::Debug Office 365 oAuth SMTP::URL Office 365 oAuth SMTP::CURL Debug Office 365 oAuth SMTP::CURL Result Office 365 oAuth SMTP::access_token Office 365 oAuth SMTP::Answer
Scripts used in this script
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Clear]

Next Script: [Refresh Token]

Script Name	Logout from WebViewer
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#In case you are logged in for the webviewer and you can't login with a new account, use this script to logout #let web viewer be Safari Set Variable [ $r; Value:MBS("WebView.SetCustomUserAgent"; "web"; "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/16.1 Safari/605.1.15") ] #Load the URL Set Variable [ $URL; Value:"https://login.microsoftonline.com/common/oauth2/logout" ] Set Variable [ $r; Value:MBS( "WebView.LoadURL"; "web"; $URL) ] #show for debugging Set Field [ Office 365 oAuth SMTP::URL; $URL ]
Fields used in this script	Office 365 oAuth SMTP::URL
Scripts used in this script
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Logout from WebViewer]

Script Name	Refresh Token
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	If [ Length ( Office 365 oAuth SMTP::refresh_token ) = 0 ] Show Custom Dialog [ Title: "Can't refresh the token."; Message: "Please get a token first!"; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If Set Variable [ $TenantID; Value:Trim(Office 365 oAuth SMTP::TenantID) ] Set Variable [ $clientID; Value:Trim ( Office 365 oAuth SMTP::ClientID ) ] Set Variable [ $clientSecret; Value:Trim(Office 365 oAuth SMTP::ClientSecret) ] Set Variable [ $URL; Value:"https://login.microsoftonline.com/" & $TenantID & "/oauth2/v2.0/token" ] Set Variable [ $redirectURI; Value:MBS("Text.EncodeURLComponent"; "http://localhost:9999/"; "UTF-8") ] Set Variable [ $scope; Value:"offline_access https://outlook.office365.com/SMTP.Send https://outlook.office365.com/IMAP.AccessAsUser.All" // same as before! ] Set Variable [ $Data; Value:"client_id=" & $clientID & "&scope=" & $scope & "&refresh_token=" & Office 365 oAuth SMTP::refresh_token & "&client_secret=" & $clientSecret & "&grant_type=refresh_token" & "&redirect_uri=" & $redirectURI ] Set Variable [ $curl; Value:MBS("CURL.New") ] Set Variable [ $result; Value:MBS("CURL.SetOptionURL"; $curl; $URL) ] Set Variable [ $result; Value:MBS("CURL.SetOptionPostFields"; $curl; $Data; "UTF-8") ] Set Variable [ $result; Value:MBS("CURL.SetOptionHTTPHeader"; $curl; "application/x-www-form-urlencoded") ] Set Variable [ $result; Value:MBS("CURL.Perform"; $curl) ] #Pick Result Set Variable [ $code; Value:MBS( "CURL.GetResponseCode"; $curl ) ] If [ $result = "OK" and $code = 200 ] Set Variable [ $resultText; Value:MBS("CURL.GetResultAsText"; $curl) ] Set Variable [ $debugText; Value:MBS("CURL.GetDebugAsText"; $curl) ] Set Field [ Office 365 oAuth SMTP::CURL Debug; $DebugText ] Set Field [ Office 365 oAuth SMTP::CURL Result; $resultText ] Perform Script [ “Extract Access Token” ] Else Show Custom Dialog [ Title: "SMTP"; Message: "Failed to query token."; Default Button: “OK”, Commit: “Yes” ] End If Set Variable [ $result; Value:MBS("CURL.Cleanup"; $curl) ]
Fields used in this script	Office 365 oAuth SMTP::refresh_token Office 365 oAuth SMTP::TenantID Office 365 oAuth SMTP::ClientID Office 365 oAuth SMTP::ClientSecret Office 365 oAuth SMTP::CURL Debug Office 365 oAuth SMTP::CURL Result
Scripts used in this script	Extract Access Token
Layouts used in this script
Tables used in this script	Office 365 oAuth SMTP
Table occurrences used by this script	Office 365 oAuth SMTP
Custom Functions used by this script
Custom menu set used by this script

Download example: Office 365 oAuth SMTP

Used functions: