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

时间:2010-01-27 16:44:34

标签: delphi outlook ole

我一直试图通过在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列出给定日期的约会? 代码表示赞赏。

由于

2 个答案:

答案 0 :(得分:1)

几年前我不得不这样做,发现它很令人沮丧。使用包含Outlook所有细微差别的库更加容易。我强烈推荐EasyMAPI中的RapWare

编辑: 没有经过测试,但我确实找到了一些sample code(如果你滚动到底部,你可以看到答复的文本),作者声称它可以工作。这可以作为一个起点。

答案 1 :(得分:1)