(PureBasic) Outlook Send HTML Email

This example sends an HTML email. Other examples exist for:

Sending plain-text email.
Sending HTML email with embedded images.
Sending email with attachments.
Sending HTML email with embedded images and attachments.

Note: This example requires Chilkat v9.5.0.68 or greater.

Chilkat PureBasic Module Download

Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    ; Important: This example requires Chilkat v9.5.0.68 or greater.

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

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

    ; Use your previously obtained access token here:
    ; See the following examples for getting an access token:
    ;    Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint).
    ;    Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint).
    ;    Refresh Access Token (Azure AD v2.0 Endpoint).
    ;    Refresh Access Token (Azure AD Endpoint).

    CkHttp::setCkAuthToken(http, "MICROSOFT_GRAPH_ACCESS_TOKEN")

    ; To send mail, we'll POST to the following endpoint:
    ; 
    ; POST /users/{id | userPrincipalName}/sendMail
    ; 
    ; (The special keyword "me" may be used in place of a principal name.)
    ; 

    ; This example will send HTML email containing the following HTML body:

    ; 	<html>
    ; 	<head>
    ; 	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    ; 	<meta content="text/html; charset=utf-8">
    ; 	</head>
    ; 	<body bgcolor="#FFFFFF">
    ; 	<font face="Calibri">This is a test <b>HTML email</b>.<br>
    ; 	</font>
    ; 	</body>
    ; 	</html>

    ; Build the HTML body...
    bCrlf.i = 1
    sbHtmlBody.i = CkStringBuilder::ckCreate()
    If sbHtmlBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppendLine(sbHtmlBody,"<html>",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"<head>",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"<meta http-equiv=" + Chr(34) + "Content-Type" + Chr(34) + " content=" + Chr(34) + "text/html; charset=utf-8" + Chr(34) + ">",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"<meta content=" + Chr(34) + "text/html; charset=utf-8" + Chr(34) + ">",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"</head>",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"<body bgcolor=" + Chr(34) + "#FFFFFF" + Chr(34) + ">",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"<font face=" + Chr(34) + "Calibri" + Chr(34) + ">This is a test <b>HTML email</b>.<br>",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"</font>",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"</body>",bCrlf)
    CkStringBuilder::ckAppendLine(sbHtmlBody,"</html>",bCrlf)

    ; The body of the POST request contains JSON that specifies the email subject, body,
    ; recipients, etc.  This example will build the following JSON HTML email:
    ; 

    ; 	{
    ; 	  "message": {
    ; 	    "subject": "Sample HTML Email",
    ; 	    "body": {
    ; 	      "contentType": "html",
    ; 	      "content": "The HTML body goes here..."
    ; 	    },
    ; 	    "toRecipients": [
    ; 	      {
    ; 	        "emailAddress": {
    ; 		  "name": "Chilkat Software",
    ; 	          "address": "admin@chilkat.io"
    ; 	        }
    ; 	      },
    ; 	      {
    ; 	        "emailAddress": {
    ; 	          "address": "chilkat.support@gmail.com"
    ; 	        }
    ; 	      }
    ; 	    ],
    ; 	    "ccRecipients": [
    ; 	      {
    ; 	        "emailAddress": {
    ; 		  "name": "Chilkat Blog",
    ; 		  "address": "admin@cknotes.com"
    ; 	        }
    ; 	      }
    ; 	    ]
    ; 	  },
    ; 	  "saveToSentItems": true
    ; 	}
    ; 

    ; Build the above JSON.
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"message.subject","Sample HTML email")
    CkJsonObject::ckUpdateString(json,"message.body.contentType","html")
    CkJsonObject::ckUpdateString(json,"message.body.content",CkStringBuilder::ckGetAsString(sbHtmlBody))
    CkJsonObject::ckUpdateString(json,"message.toRecipients[0].emailAddress.name","Chilkat Software")
    CkJsonObject::ckUpdateString(json,"message.toRecipients[0].emailAddress.address","admin@chilkat.io")
    CkJsonObject::ckUpdateString(json,"message.toRecipients[1].emailAddress.address","chilkat.support@gmail.com")
    CkJsonObject::ckUpdateString(json,"message.ccRecipients[0].emailAddress.name","Chilkat Blog")
    CkJsonObject::ckUpdateString(json,"message.ccRecipients[0].emailAddress.address","admin@cknotes.com")
    CkJsonObject::ckUpdateBool(json,"saveToSentItems",1)

    ; -------------------------------------------------------------
    ; Important: This example requires Chilkat v9.5.0.68 or greater.
    ; -------------------------------------------------------------

    ; Send the HTTP POST (i.e. send the HTML email)
    resp.i = CkHttp::ckPostJson2(http,"https://graph.microsoft.com/v1.0/me/sendMail","application/json",CkJsonObject::ckEmit(json))
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbHtmlBody)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    ; The send succeeded if the response status code = 202.
    ; In the success case, there is no response body.  (We just get the response code to know that it succeeded.)
    If CkHttpResponse::ckStatusCode(resp) <> 202
        CkJsonObject::ckLoad(json,CkHttpResponse::ckBodyStr(resp))
        CkJsonObject::setCkEmitCompact(json, 0)
        Debug CkJsonObject::ckEmit(json)
        Debug "Failed, response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    Else
        Debug "Outlook HTML Mail Sent."
    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbHtmlBody)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure