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

Вниз

работа с Simple MAPI   Найти похожие ветки 

 
aleko   (2006-10-28 01:21) [0]

Доброго времени суток..
Подскажите, используя интерфейс Simple MAPI, можно ли найти необходимое письмо не методом перебора всех входящих функцией MapiFindNext, а организовать что-то вроде поиска...

Пробовал сделать таким образом, но ничего не выходит:
предварительно информацию о письме (Отправитель, Тема, Дата) в цикле используя MapiFindNext и MapiReadMail заносил в StringGrid


var
 ...
 S: array [0..512] of Char;
 PP: PAnsiChar = @s[0];
 Mess: TMapiMessage;
 PMess: PMapiMessage = @Mess;
 PRecDesc: PMapiRecipDesc;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
 ARow: Integer; var CanSelect: Boolean);
var
i: integer;

begin
for i := 0 to StringGrid1.RowCount do
   if MapiFindNext(0,0,"",PP,0,0,PP) = SUCCESS_SUCCESS then
      begin
        MapiReadMail(0,0,PP,0,0,PMess);

// в четвертое поле StringGrid занесена дата

        if PMess.lpszDateReceived = StringGrid1.Cells[3,ARow] then            
           begin
           PRecDesc := PMess.lpOriginator;
           Label20.Caption := "От кого: " + PRecDesc.lpszName;
           Label21.Caption := "Тема: " + PMess.lpszSubject;
           Label22.Caption := "Дата: " + PMess.lpszDateReceived;
           Memo1.Text := PMess.lpszNoteText;
           Break;
           end;
      end;
end;



...не работает :((


 
aleko   (2006-10-29 02:32) [1]

Разобрался :)
Записать, а потом передавать в MapiReadMail идентификатор письма..
...работает :))



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
1-1159769595
AL CAPONE
2006-10-02 10:13
2006.11.12
Excel в Делфи


15-1161948265
MikePetrichenko
2006-10-27 15:24
2006.11.12
Требуется программист


15-1161508815
Cyrax
2006-10-22 13:20
2006.11.12
Патч для Promt XT Family от лицензионного соглашения


15-1161777727
Vlad
2006-10-25 16:02
2006.11.12
Дублирование сообщений в форумах. Вопрос.


2-1161633221
5Stas5
2006-10-23 23:53
2006.11.12
Как сделать многострочный LISTBOX используя только WIN API