(Delphi ActiveX) Outlook -- Get Number of Emails

Gets the number of emails in an Outlook folder. This uses the OData $count system query option. See OData System Query Option $count for general information.

This example first gets the combined total number of messages across all folders.

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

Chilkat for Delphi Downloads

Chilkat ActiveX DLL for Delphi

Chilkat non-ActiveX DLL for Delphi

* The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
sbResponse: TChilkatStringBuilder;
success: Integer;
json: TChilkatJsonObject;
htFolderMap: TChilkatHashtable;
sbMap: TChilkatStringBuilder;
folderId: WideString;
totalItemCount: Integer;
childFolderCount: Integer;

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

http := TChilkatHttp.Create(Self);

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

http.AuthToken := 'MICROSOFT_GRAPH_ACCESS_TOKEN';

sbResponse := TChilkatStringBuilder.Create(Self);

// This gets the combined total number of emails in all folders.
success := http.QuickGetSb('https://graph.microsoft.com/v1.0/me/messages/$count',sbResponse.ControlInterface);
if ((success <> 1) and (http.LastStatus = 0)) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;

// If the status code was not 200, then it failed and the response is likely JSON:
if (http.LastStatus <> 200) then
  begin
    Memo1.Lines.Add('Status code = ' + IntToStr(http.LastStatus));
    json.LoadSb(sbResponse.ControlInterface);
    Memo1.Lines.Add(json.Emit());
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// A success response payload contains just the integer value (it is not JSON)
Memo1.Lines.Add('Combined Total Number of Emails = ' + sbResponse.GetAsString());
Memo1.Lines.Add('--');

// ---------------------------------------------------------------------------
// To get the number of emails in a particular folder, we need to use the folder id.
// 

// In this example, we'd like to get number of messages in the folder "/Inbox/abc",
// but we must specify the corresponding folder_id.  The best way to do this is to create
// a local map of folderPaths-to-folderIds.
// We'll use the map created by this example:  Create Outlook Folder Map)
htFolderMap := TChilkatHashtable.Create(Self);
sbMap := TChilkatStringBuilder.Create(Self);
sbMap.LoadFile('qa_data/outlook/folderMap.xml','utf-8');
htFolderMap.AddFromXmlSb(sbMap.ControlInterface);

// Get the ID for the "/Inbox/abc" folder:
folderId := htFolderMap.LookupStr('/Inbox/abc');
if (htFolderMap.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add('Folder ID not found');
    Exit;
  end;
http.SetUrlVar('folder_id',folderId);

// Send the request get the folder information.
// In this case we are NOT using the $count system query option.
success := http.QuickGetSb('https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}',sbResponse.ControlInterface);
if ((success <> 1) and (http.LastStatus = 0)) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json.LoadSb(sbResponse.ControlInterface);
Memo1.Lines.Add(json.Emit());
Memo1.Lines.Add('--');

if (http.LastStatus <> 200) then
  begin
    Memo1.Lines.Add('Status code = ' + IntToStr(http.LastStatus));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// The successful JSON response looks like this;

// 	{
// 	  "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/mailFolders/$entity",
// 	  "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAL8huv8AAAA=",
// 	  "displayName": "abc",
// 	  "parentFolderId": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA",
// 	  "childFolderCount": 2,
// 	  "unreadItemCount": 0,
// 	  "totalItemCount": 3
// 	}
// 

// Get the integer value from the JSON like this:
totalItemCount := json.IntOf('totalItemCount');
Memo1.Lines.Add('totalItemCount = ' + IntToStr(totalItemCount));

childFolderCount := json.IntOf('childFolderCount');
Memo1.Lines.Add('childFolderCount = ' + IntToStr(childFolderCount));

// etc..
end;