С помощью следующего кодового блока вы выбираете общую папку, установленную в 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).
Вопрос заключается в том, как избежать этой ошибки, предварительно обнаружив, установлена ли общая папка или нет.
Перехват ошибки с помощью попытка ... наконец-то / кроме блока не сработало , так как исключение вызвано внешне Microsoft API (EOleException).
Я не могу придумать другого способа определить, существует ли папка, поскольку строка, вызывающая ошибку, имеет важное значение при выборе общей папки и, следовательно, получении ее свойств.
greetings