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

发布于 2024-08-20 01:19:14 字数 486 浏览 7 评论 0原文

我一直在尝试使用 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 列出给定日期的约会？代码受到赞赏。

谢谢

原文

I've been trying to list the appointments for a given date (say today) on a tmemo by using OLE under delphi. It's been unsuccessful so far.
The basic code starts with

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

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

from there I tried to access Calendar.Items but I get different results each time and I don't see the recurring appointments even when I set the option to true.

Is there any way to list the appointments for a given date using Delphi 7?
Code is appreciated.

Thanks

分享到QQ

分享到微博