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]

Как ?

uses .., ActiveX, ..

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

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

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

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