Вниз
Скачать: CL | DM;

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! может кто подскажет: как при получении нового письма, проверить есть ли в нем вложение, и если да, то переслать вложение в новом письме по новому адресу?


← →
Poirot ©   (2004-11-22 19:17) [3]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c
14-1122970793
syte_ser78
2005-08-02 12:19
2005.08.28
Запуск от имени


14-1122352069
Думкин
2005-07-26 08:27
2005.08.28
Новосибирск-Бердск


3-1121337642
Ирина
2005-07-14 14:40
2005.08.28
SetField, AppendRecord


4-1120735919
DeepProg
2005-07-07 15:31
2005.08.28
NetWkstaUserEnum


9-1114353831
Creep1
2005-04-24 18:43
2005.08.28
DirectX SDK




   Наверх