Главная страница
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.039 c
15-1161717019
XeRoN
2006-10-24 23:10
2006.11.12
Помогите плиз!


2-1162117932
Серый
2006-10-29 13:32
2006.11.12
Memo,ListBox,ComboBox


2-1161685492
G2
2006-10-24 14:24
2006.11.12
Как хранить множество в Paradox e?


15-1161916744
Slider007
2006-10-27 06:39
2006.11.12
С днем рождения ! 27 октября


8-1144273040
QuickFinder
2006-04-06 01:37
2006.11.12
Декомпиляция Flash-файла