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