Текущий архив: 2009.05.03;
Скачать: CL | DM;
Вниз
MAPI_E_INVALID_ENTRYID Найти похожие ветки
← →
AlexK © (2008-04-24 17:57) [0]Подскажите, пожалуйста, почему при открытии папки может выдаваться такая ошибка?
Result:= MAPISession.OpenEntry(Value.cb, PENTRYID(Value.lpb), @IID_IMAPIFolder, 0, iTmpVal, IUnknown(MAPIFolder));
← →
AlexK © (2008-04-24 18:32) [1]В общем смысл следующий:
...
var
MsgStoreID, Value: TSBinary;
procedure GetFolder;
var
MsgStoresTable: IMAPITable;
MsgStore: IMsgStore;
begin
MAPISession.GetMsgStoresTable(0, MsgStoresTable);
... получаем список MsgStoresRowSet
for i:= 0 to MsgStoresCount-1 do
begin
MsgStoreID:= PSPropValueArray(MsgStoresRowSet.aRow[I].lpProps)[0].Value.bin;
MAPISession.OpenEntry(MsgStoreID.cb, PENTRYID(MsgStoreID.lpb),
@IID_IMsgStore, 0, iTmpVal, IUnknown(MsgStore));
... тут получаем список папок, определяем нужную, сохраняем Entryid в переменную Value
MsgStore.StoreLogoff(x);
... очищаем буфер и т.п....
end;
procedure OpenFolder;
var
MsgStore: IMsgStore;
begin
MAPISession.OpenEntry(MsgStoreID.cb, PENTRYID(MsgStoreID.lpb),
@IID_IMsgStore, 0, iTmpVal, IUnknown(MsgStore));
Res:= MAPISession.OpenEntry(Value.cb, PENTRYID(Value.lpb), @IID_IMAPIFolder, 0, iTmpVal, IUnknown(MAPIFolder)); < ошибка здесь
.......
end;
end;
← →
AlexK © (2008-04-24 18:35) [2]Сорри, опечатался... Процедуры не вложены друг в друга, а отдельные. ;)
Страницы: 1 вся ветка
Текущий архив: 2009.05.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
