Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: 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 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.028 c
1-1101586208
musicman
2004-11-27 23:10
2004.12.12
Перекодирование из ANSI в OEM русского текста


3-1100598443
Explorer
2004-11-16 12:47
2004.12.12
Работа со справочниками


14-1100766445
BiN
2004-11-18 11:27
2004.12.12
Опрос. География форумчан.


1-1101369450
Maverick
2004-11-25 10:57
2004.12.12
как убрать иконку из border a вообще или не отображать?


1-1101664029
Express
2004-11-28 20:47
2004.12.12
Ошибки Delphi