Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

POP3 Using [D5, Win2k]

квакер © (2004-10-01 19:59:00)
довелося мне давечя прогу написать, надоб чтобы она сканила на серваке все письма и если в теме письма есть "03."(там после точки еще есть цифры) то его надо вывести в Memo. Использую NMPOP3. вот что есть тока не пашет =(

tempStr : string;
index : integer; (после скана индексу присваиваеться последний номер письма на сервере, тоесть он показывает скока их там всего)
...
var
i,j : integer;
begin
NMPOP31.AttachFilePath := './Attaches';
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := Edit11.Text;
NMPOP31.Port := StrToInt(Edit12.Text);
NMPOP31.UserID := Edit13.Text;
NMPOP31.Password := Edit14.Text;
NMPOP31.Connect;
//
if checkbox1.checked then
begin
tempStr:=NMPOP31.MailMessage.Subject;
for i:=1 to index do
BEGIN
if (Pos('03.',tempStr)>0) then
begin
NMPOP31.GetMailMessage(i);
memo5.lines.add('От:'+NMPOP31.MailMessage.From+'Тема:'+NMPOP31.MailMessage.Subject+'тело письма:');
for j:=0 to NMPOP31.MailMessage.Body.count-1 do
memo5.lines.add(NMPOP31.MailMessage.Body[i]);
memo5.lines.add('=======================================');
end;
END;
end;

квакер (2004-10-02 10:54:00) [1]
Удалено модератором

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »