Outlook

← →
Fill © (2004-11-22 16:55) [0]

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

← →
grigory © (2004-11-22 17:09) [1]

возможно присоединяться стоит вручную, либо поздним, либо ранним связывание! вот например работающий код подсоединения:

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 и попробуй

← →
Fill © (2004-11-22 17:50) [2]

У меня уже пол проги работает на ручном связывании! Тогда появляется проблема при работе с attachmend! может кто подскажет: как при получении нового письма, проверить есть ли в нем вложение, и если да, то переслать вложение в новом письме по новому адресу?

А пробовал свойствами играться - по типа создавать новый объект если не создан и всё такое:)свойства кома.

Outlook Найти похожие ветки