Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.10;
Скачать: CL | DM;

Вниз

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

 
ввв   (2002-04-01 20:18) [0]

Уважаемые специалисты, очень Вас прощу выложить рабочий исходничек с функциями MAPIFindNext и MAPIReadMail А то ошибка постоянно вылетает access violation at adress ...
непонятно почему, хотя функция MAPIFindNext отрабатывает..
вообщем , если функция MAPIFindNext возвратила 0(те выполнилась)
даллее вылетает ошибка и все....задолбался экспериментировать
Скинте, пожалуйста, исходник раабочий где используется MAPIFindNext

Заранее благодарен всем!!!!!!


 
AlexGray   (2002-04-02 11:52) [1]

В свое время спрашивал о том же, но мне не ответили.

Получилось вот так для The Bat, если же по умолчанию программа для почты Outlook то функции MapiLogon и MapiLogoff не нужны и hSess=0

Процедура читает все не помеченные на прочтение письма
procedure mailR();
var PMess :PMapiMessage;
PP,CurrMsgId : array [0..512] of Char;
MError,hSess: Cardinal;
subj : string;
begin
PP:="";
CurrMsgId := "";
MapiLogon(0, "", "", MAPI_LOGON_UI or MAPI_FORCE_DOWNLOAD, 0,@hSess);
try
while (MAPIFindNext(hSess,0,nil,CurrMsgId,MAPI_UNREAD_ONLY,0 ,@PP)=SUCCESS_SUCCESS) do
begin
MError:=MAPIReadMail(hSess,0,PP,0,0,PMess);
if MError <> 0 then MessageDlg("Error", mtError, [mbOK], 0);
subj:=StrPas(PMess.lpszSubject);
MAPIFreeBuffer(PMess);
CurrMsgId:=PP;
end;
finally
MapiLogoff(hSess,0,0,0);
end;
end;



 
ввв   (2002-04-02 15:39) [2]

Спасибо большое!!!ВЕСЬМА БЛАГОДАРЕН!!!



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

Текущий архив: 2002.06.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
6-30958
Gloomy
2002-03-28 15:04
2002.06.10
Коллеги, не откажите в помощи… pls!!!


1-30870
dimich
2002-05-29 16:26
2002.06.10
ImageList...


1-30813
Xristos
2002-05-31 10:06
2002.06.10
НАРОД!!! Как это можно сделать???...


14-31012
Doom
2002-05-04 19:37
2002.06.10
обратно в WAV


1-30810
Fly`
2002-05-31 13:22
2002.06.10
TreeView. Редактирование Текста TTreeNode.