delphi - 使用OLE和Delphi列出给定日期的所有Outlook约会

Question

我一直在尝试使用delphi下的OLE在tmemo上列出给定日期（例如今天）的约会。到目前为止，此操作未成功。
基本代码以

  try
    Outlook := GetActiveOleObject('outlook.application');
  except
    Outlook := CreateOleObject('outlook.application');
  end;

  Namespace := Outlook.GetNamespace('MAPI');
  Calendar := Namespace.GetDefaultFolder(olFolderCalendar);  // or use $000009

从那里我尝试访问Calendar.Items，但是每次都得到不同的结果，即使将选项设置为true，我也看不到重复约会。

有什么办法可以使用Delphi 7列出给定日期的约会？
代码受到赞赏。

谢谢

Answer 1

几年前，我不得不这样做，并且感到沮丧。使用包含Outlook所有细微差别的库要容易得多。我强烈建议EasyMAPI中的RapWare。

编辑：
没有经过测试，但是我确实找到了作者声称有效的sample code（如果滚动到最底端，您可以看到响应的文本）。这可以作为起点。