Главная страница
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.016 c
6-30961
Hecker
2002-03-28 17:43
2002.06.10
Чем отличаются?


6-30944
Kerrik
2002-03-21 20:29
2002.06.10
Траффик под Win98


8-30918
Beer
2002-01-25 03:28
2002.06.10
TChart Может не совсем в тему, но графика


1-30835
DPashin
2002-05-28 10:25
2002.06.10
Перенос форм из Delphi 6 в Delphi 5


14-30991
VID
2002-05-06 16:13
2002.06.10
Что с настройками Internet Explorer ???