Unicode C

Office365 Send Email from Shared Mailbox

See more Office365 Examples

Demonstrates how to send email from a shared mailbox, 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 authorizaition via a web browser.  Afterwards, the access token
    // can be repeatedly refreshed automatically.

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

    // In case of shared mailbox access using OAuth, the application needs to obtain the access token on behalf of a user
    // but replace the SMTP username with the email address of the shared mailbox.

    // Login using the shared mailbox email address for the username, and the access token for the password.
    // See Office 365 SASL XOAUTH2 format 

    // Use your Office365 email address for the SmtpUsername.
    CkMailManW_putSmtpUsername(mailman,L"SHARED_MAILBOX_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 <SHARED_MAILBOX_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;
    }

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

    }