Текущий архив: 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.056 c
