PureBasic

Office365 Send Email using SMTP with OAuth2 Authentication

See more Office365 Examples

Demonstrates how to send email from smtp.office365.com using OAuth2 authentication. PureBasic

IncludeFile "CkJsonObject.pb"
IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 0

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    ; An Office365 OAuth2 access token must first be obtained prior
    ; to running this code.

    ; Getting the OAuth2 access token for the 1st time requires the O365 account owner's 
    ; interactive authorization via a web browser.  Afterwards, the access token
    ; can be repeatedly refreshed automatically (with no user interaction).

    ; See the following examples for getting and refreshing an OAuth2 access token

    ; Get Office365 SMTP/IMAP/POP3 OAuth2 Access Token
    ; Refresh Office365 SMTP/IMAP/POP3 OAuth2 Access Token

    ; First get our previously obtained OAuth2 access token.
    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/office365.json")

    mailman.i = CkMailMan::ckCreate()
    If mailman.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkMailMan::setCkSmtpHost(mailman, "smtp.office365.com")
    CkMailMan::setCkSmtpPort(mailman, 587)
    CkMailMan::setCkStartTLS(mailman, 1)

    ; Use your Office365 email address for the SmtpUsername.
    CkMailMan::setCkSmtpUsername(mailman, "OFFICE365_EMAIL_ADDRESS")
    CkMailMan::setCkOAuth2AccessToken(mailman, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    ; Create a new email object
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "This is a test")
    CkEmail::setCkBody(email, "This is a test")
    CkEmail::setCkFrom(email, "MY_NAME <OFFICE365_EMAIL_ADDRESS>")
    success = CkEmail::ckAddTo(email,"John Doe","somebody@example.com")

    ; Call SendEmail to connect to the SMTP server and send.
    ; The connection (i.e. session) to the SMTP server remains
    ; open so that subsequent SendEmail calls may use the
    ; same connection.  
    success = CkMailMan::ckSendEmail(mailman,email)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkJsonObject::ckDispose(jsonToken)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; If SendEmail failed because of "Failed to get initial SMTP Response", then it may be 
    ; a firewall or anti-virus blocking communications.
    ; See https://cknotes.com/smtp-office365-com-failed-to-get-initial-smtp-response/

    success = CkMailMan::ckCloseSmtpConnection(mailman)
    If success <> 1
        Debug "Connection to SMTP server not closed cleanly."
    EndIf

    Debug "Mail Sent!"


    CkJsonObject::ckDispose(jsonToken)
    CkMailMan::ckDispose(mailman)
    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure