Главная страница
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.01 c
1-30782
allrussia
2002-05-30 04:37
2002.06.10
DiskSize, DiskFree - Integer не позволяет


1-30910
MaximatorVeter
2002-05-30 11:13
2002.06.10
Сдвиг блока исходного текста по горизонтали.


6-30941
Renton
2002-03-16 20:41
2002.06.10
Запрет/Разрешение на Интернет


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


1-30781
cdaDmitriy
2002-05-29 18:39
2002.06.10
Первое открытие проэкта