работа с 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 идентификатор письма..
...работает :))

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