(Unicode C) Office365 Send Email using SMTP with OAuth2 Authentication

See more Office365 Examples

Chilkat C/C++ Library Downloads
MS Visual C/C++ C++ Builder Linux C/C++ Alpine Linux C/C++	MacOS C/C++ iOS C/C++ Android C/C++ MinGW C/C++

#include <C_CkJsonObjectW.h>
#include <C_CkMailManW.h>
#include <C_CkEmailW.h>

void ChilkatSample(void)
    {
    HCkJsonObjectW jsonToken;
    BOOL success;
    HCkMailManW mailman;
    HCkEmailW email;

    // 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 = CkJsonObjectW_Create();
    success = CkJsonObjectW_LoadFile(jsonToken,L"qa_data/tokens/office365.json");

    mailman = CkMailManW_Create();

    CkMailManW_putSmtpHost(mailman,L"smtp.office365.com");
    CkMailManW_putSmtpPort(mailman,587);
    CkMailManW_putStartTLS(mailman,TRUE);

    // Use your Office365 email address for the SmtpUsername.
    CkMailManW_putSmtpUsername(mailman,L"OFFICE365_EMAIL_ADDRESS");
    CkMailManW_putOAuth2AccessToken(mailman,CkJsonObjectW_stringOf(jsonToken,L"access_token"));

    // Create a new email object
    email = CkEmailW_Create();

    CkEmailW_putSubject(email,L"This is a test");
    CkEmailW_putBody(email,L"This is a test");
    CkEmailW_putFrom(email,L"MY_NAME <OFFICE365_EMAIL_ADDRESS>");
    success = CkEmailW_AddTo(email,L"John Doe",L"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 = CkMailManW_SendEmail(mailman,email);
    if (success != TRUE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkJsonObjectW_Dispose(jsonToken);
        CkMailManW_Dispose(mailman);
        CkEmailW_Dispose(email);
        return;
    }

    // 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 = CkMailManW_CloseSmtpConnection(mailman);
    if (success != TRUE) {
        wprintf(L"Connection to SMTP server not closed cleanly.\n");
    }

    wprintf(L"Mail Sent!\n");


    CkJsonObjectW_Dispose(jsonToken);
    CkMailManW_Dispose(mailman);
    CkEmailW_Dispose(email);

    }