Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Outlook [Delphi, Windows]

Fill © (2004-11-22 16:55:00)
Приветствую Вас Мастера!
Подскажите решение проблемки!
Пытаюсь автоматизировать работу с Outlook, с использование делфийских компонентов (вкладка Servers, компонент TDocumentItem). Как только ставлю свойство AutoConnect = True, сразу при запуске вылетает ошибка:
"class not registered" EOleSysError. Подскажите в чем проблема и как ее решить? Поиски в Инете ни к чему не привели!

Poirot (2004-11-22 19:17:00) [1]
А пробовал свойствами играться - по типа создавать новый объект если не создан и всё такое:)свойства кома.

Fill (2004-11-22 17:50:00) [2]
У меня уже пол проги работает на ручном связывании! Тогда появляется проблема при работе с attachmend! может кто подскажет: как при получении нового письма, проверить есть ли в нем вложение, и если да, то переслать вложение в новом письме по новому адресу?

grigory (2004-11-22 17:09:00) [3]
возможно присоединяться стоит вручную, либо поздним, либо ранним связывание! вот например работающий код подсоединения:

var
AppProgID : String;
App, NS : Variant;
ServerRun : Boolean;
Result : Hresult;
Unknown : IUnknown;

AppProgID := 'Outlook.Application';
ServerRun := false;
Result := GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
if (Result=MK_E_UNAVAILABLE) then
App := CreateOleObject(AppProgID)
else begin
App := GetActiveOleObject(AppProgID);
ServerRun := true;
end;
NS := App.GetNamespace('MAPI');
Contact:=NS.GetDefaultFolder(olFolderContacts);
NS.Logon;
.............
.............
NS.Logoff;
if not ServerRun then App.Quit;
App:=Unassigned;

переделай под свой объект TDocumentItem и попробуй

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »