(PureBasic) Outlook Send Email with Attachments

This example sends a plain-text email with attachments. Other examples exist for:

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

This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttpResponse.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.)
    ; 

    ; Load the files to be attached.
    attach1.i = CkBinData::ckCreate()
    If attach1.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckLoadFile(attach1,"qa_data/pdf/fishing.pdf")
    attach2.i = CkBinData::ckCreate()
    If attach2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckLoadFile(attach2,"qa_data/msword/sample.docx")

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

    ; 	{
    ; 	  "message": {
    ; 	    "subject": "Sample Email with Attachments",
    ; 	    "body": {
    ; 	      "contentType": "Text",
    ; 	      "content": "This is the plain-text body..."
    ; 	    },
    ; 	    "toRecipients": [
    ; 	      {
    ; 	        "emailAddress": {
    ; 		  "name": "Chilkat Software",
    ; 	          "address": "admin@chilkat.io"
    ; 	        }
    ; 	      },
    ; 	      {
    ; 	        "emailAddress": {
    ; 	          "address": "chilkat.support@gmail.com"
    ; 	        }
    ; 	      }
    ; 	    ],
    ; 	    "ccRecipients": [
    ; 	      {
    ; 	        "emailAddress": {
    ; 		  "name": "Chilkat Blog",
    ; 		  "address": "admin@cknotes.com"
    ; 	        }
    ; 	      }
    ; 	    ],
    ; 	    "attachments": [
    ; 	       {
    ; 	         "@odata.type": "#microsoft.graph.fileAttachment",
    ; 	         "name": "fishing.pdf",
    ; 	         "contentType": "application/pdf",
    ; 	         "size": <theActualSize>,
    ; 	         "isInline": false,
    ; 	         "contentBytes": "base64_data_here"
    ; 	       },
    ; 	       {
    ; 	         "@odata.type": "#microsoft.graph.fileAttachment",
    ; 	         "name": "sample.docx",
    ; 	         "contentType": "application/vnd.openxmlformats-officedocument.wordprocessingml.document",
    ; 	         "size": <theActualSize>,
    ; 	         "isInline": false,
    ; 	         "contentBytes": "base64_data_here"
    ; 	       }
    ; 	    ]
    ; 	  },
    ; 	  "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 Email with Attachments")
    CkJsonObject::ckUpdateString(json,"message.body.contentType","Text")
    CkJsonObject::ckUpdateString(json,"message.body.content","This is the plain-text body...")

    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::ckUpdateString(json,"message.attachments[0]." + Chr(34) + "@odata.type" + Chr(34),"#microsoft.graph.fileAttachment")
    CkJsonObject::ckUpdateString(json,"message.attachments[0].name","fishing.pdf")
    CkJsonObject::ckUpdateString(json,"message.attachments[0].contentType","application/pdf")
    CkJsonObject::ckUpdateInt(json,"message.attachments[0].size",CkBinData::ckNumBytes(attach1))
    CkJsonObject::ckUpdateBool(json,"message.attachments[0].isInline",0)
    CkJsonObject::ckUpdateBd(json,"message.attachments[0].contentBytes","base64",attach1)

    CkJsonObject::ckUpdateString(json,"message.attachments[1]." + Chr(34) + "@odata.type" + Chr(34),"#microsoft.graph.fileAttachment")
    CkJsonObject::ckUpdateString(json,"message.attachments[1].name","sample.docx")
    CkJsonObject::ckUpdateString(json,"message.attachments[1].contentType","application/vnd.openxmlformats-officedocument.wordprocessingml.document")
    CkJsonObject::ckUpdateInt(json,"message.attachments[1].size",CkBinData::ckNumBytes(attach2))
    CkJsonObject::ckUpdateBool(json,"message.attachments[1].isInline",0)
    CkJsonObject::ckUpdateBd(json,"message.attachments[1].contentBytes","base64",attach2)

    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::ckPostJson3(http,"https://graph.microsoft.com/v1.0/me/sendMail","application/json",json)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(attach1)
        CkBinData::ckDispose(attach2)
        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 Mail with Attachments Sent."
    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkBinData::ckDispose(attach1)
    CkBinData::ckDispose(attach2)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure