Скачать: CL | DM;

POP3 Using   Найти похожие ветки 

← →
квакер   (2004-10-01 19:59) [0]

довелося мне давечя прогу написать, надоб чтобы она сканила на серваке все письма и если в теме письма есть "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) [1]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c