Форум: "Сети";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
