Unicode C

Office365 Send Email using SMTP with OAuth2 Authentication

See more Office365 Examples

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

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

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

    success = FALSE;

    //  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);

    }