Главная страница
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.023 c
6-1095166307
Ryoko
2004-09-14 16:51
2004.12.12
Подключение к IRC через Indy IdIRC


14-1101311752
Shadow-st
2004-11-24 18:55
2004.12.12
Языковая панель


8-1094558895
X-Disa
2004-09-07 16:08
2004.12.12
TImage и "курсор"


3-1100590318
denis24
2004-11-16 10:31
2004.12.12
Удаление картинки в поле blob


1-1101468469
sten
2004-11-26 14:27
2004.12.12
вставка картинок в текст