检测 Outlook 中是否存在（Exchange 的）公用文件夹

Question

使用以下代码块选择 Outlook 中设置的公用文件夹：

const
  olPublicContactsFolder = $00000012; //constant for the public folder
begin
Outlook := CreateOleObject('Outlook.Application');
// Get name space
NameSpace := Outlook.GetNameSpace('MAPI');
// Get root public folder
ContactsRoot := NameSpace.GetDefaultFolder(olPublicContactsFolder); //<-- Error
Contacts:= Contactsroot;

如果 Outlook 中没有公用文件夹（Outlook 中没有设置公用文件夹，没有 Exchange Server），则标记行上会出现错误。

问题是如何通过预先检测是否设置了公用文件夹来避免该错误。

使用try...finally/ except 块捕获错误不起作用由于该异常是由 Microsoft API (EOleException) 从外部引起的。

我想不出另一种方法来检测该文件夹是否存在，因为导致错误的行对于选择公用文件夹并因此获取其属性至关重要。

问候

Answer 1

为什么不尝试/除了工作？ Delphi 可以很好地捕获 EOleSysError 异常。
该异常是由 Delphi RTL 引发的，而不是由 Outlook 引发的 - 所有 IDispatch 友好的库都会返回一个错误代码，RTL 在使用 IErrorInfo 请求描述后将其转换为 OLE 异常。

Answer 2

正如消息所示，Outlook 不知道要使用哪个配置文件。您需要先登录到 MAPI 命名空间，然后才能对其执行任何操作。即使没有登录信息，例如当您连接到未连接到 Exchange 服务器的本地 Outlook 实例时，您也需要执行此操作。

FNameSpace := FOutlook.GetNamespace('MAPI');
FNameSpace.Logon('', '', False, False);
Folder := FNameSpace.GetDefaultFolder( olFolderCalendar );
Memo1.Lines.Add( 'Calendar: ' + Folder.Name + ': ' + Folder.Description );

Answer 3

这个代码块确实工作得很好。我想我还有另一个问题已经解决了。感谢您抽出时间。

function DoesPublicFolderExist():Boolean;
const
  olFolderContacts = $00000012;
var
  Outlook, Namespace, ContactsRoot, Contactsfolder : OleVariant;
begin
  // Connect to outlook
  Outlook := CreateOleObject('Outlook.Application');
  // Get name space
  NameSpace := Outlook.GetNameSpace('MAPI');
  // Get root contacts folder
  try
    ContactsRoot := NameSpace.GetDefaultFolder(olFolderContacts);
    Result:= True;
  except
    Result:= False;
  end;
end;

Dmitry Streblechenko 的回答非常正确，我只是将调试器的 EOleException 误认为是外部异常。在没有调试器的情况下运行代码不会导致异常，因为它确实被 try/exception 块捕获。

在 Outlook 中使用多个帐户时，Marjan Venemas 的答案可能会很方便。