As I mentioned in my previous post, I'm helping a friend with some Microsoft Outlook integration and came across the need to access the list of meeting and email categories defined within Outlook. Microsoft has done a great job of documenting the object model for Outlook, so it's quick work in Delphi to open an OLE connection to Outlook and get a listing of the Categories. The code's below, but I also posted the complete project to GitHub.

Here's the code:

var   category, outlook, ns: OLEVariant;   i, numItems: Integer; begin   // initialize a connection to Outlook   outlook := CreateOLEObject('Outlook.Application');   // get the MAPI namespace   ns := outlook.GetNamespace('MAPI');   numItems := ns.Categories.Count;   output.Lines.add(Format('Found %d items', [numItems]));   if numItems > 0 then begin     for i := 1 to numItems do      begin       category := ns.Categories.Item[i];       // category.Name is the name of the category       // category.CategoryID is an internal, unique ID for the category       output.Lines.add(Format('%d: %s: (%s)', [i, category.Name, category.CategoryID]));     end;   end; end;

The output object is a TMemo component on the app's main form, so it is used to list all of the categories when the app initializes. The app doesn't do anything with the categories, this is just an example of how to retrieve them.

Overall Rating (0)

0 out of 5 stars

Post comment as a guest

Attachments

Location

Share:
Rate this article :
0
  • No comments found