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

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

← →
Yot   (2004-06-07 13:27) [0]

Мастера помогите
При работе с адресной книгой OULOOK возникает ошибка EOleSysError
Что делать ?

unit EMail;
interface
uses MAPI,ComObj,Outlook_TLB;

procedure GetAdress;

implementation
type EOSE = class(EOleSysError)
end;

procedure GetAdress;
var  MSOutlook,  MyNameSpace,MyFolder,  MyItem: Variant;  s: string;  i: Integer;
 begin
 EOSE.CreateRes(1);
  MSOutlook := CreateOleObject("Outlook.Application"); Здесь возникает ошибка
  MyNameSpace := MSOutlook.GetNameSpace("MAPI");
  MyFolder := MyNamespace.GetDefaultFolder(olFolderContacts);
    for i := 1 to MyFolder.Items.Count do
     begin
      MyItem := MyFolder.Items[i];
      s:=MyItem.Email1Address;
     end;
 end;

---

← →
Digitman ©   (2004-06-07 13:30) [1]

>   MSOutlook := CreateOleObject("Outlook.Application"); Здесь
> возникает ошибка


значит, фабрика объектов класса Outlook.Application  отсутствует или не зарегистрирована в реестре как положено

---

← →
Clickmaker ©   (2004-06-07 13:34) [2]

> EOSE.CreateRes(1);

А это зачем?

---

← →
Digitman ©   (2004-06-07 13:40) [3]

> EOSE.CreateRes(1);


это очевидная чушь, правда, на сабж вопроса не влияющая - создали какой-то там объект и тут же "забыли" про него

---

← →
Yot   (2004-06-07 13:41) [4]

EOSE.CreateRes(1) не помогает.

Возникает сообщение ProjectMW2.exe raised exccption class EOleSysError with massage "Не был произведен вызов Colnitialize".Process stopped.Use Step or Run to continue.
Что Делать ?

---

← →
Clickmaker ©   (2004-06-07 13:45) [5]

> Yot   (07.06.04 13:41) [4]

В самом тексте ошибки содержится совет, что делать. Не тормози, сникерсни! :)

---

← →
Digitman ©   (2004-06-07 13:46) [6]

> EOSE.CreateRes(1) не помогает.


а с какого перепугу это д.б. помочь ?)


> "Не был произведен вызов Colnitialize"


ну так произведи ! раз требуется ...

---

← →
Yot   (2004-06-07 13:50) [7]

Как ?

---

← →
Digitman ©   (2004-06-07 14:05) [8]

uses .., ActiveX, ..

CoInitialize(nil);
try
.. код, создающий/уничтожающий ole/com-объект и обращающийся к его методам/св-вам
finally
CoUninitialize;
end;

---

← →
Yot   (2004-06-07 14:09) [9]

Спасибо !!!!!!!!!!!

---

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

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



Память: 0.47 MB
Время: 0.021 c