Главная страница
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.025 c
14-1100856187
ИМХО
2004-11-19 12:23
2004.12.12
Почему модераторам не платят за их титаническую работу?


1-1101677694
Bobby Digital
2004-11-29 00:34
2004.12.12
Переслать переменную


14-1100871323
antonn
2004-11-19 16:35
2004.12.12
Корпуса...


3-1100185653
gedd
2004-11-11 18:07
2004.12.12
Поместить файл в базу данных


1-1101652454
Жуков
2004-11-28 17:34
2004.12.12
Параметры в тексте