[MrDiG]

Задача зарегистрировать много аккаунтов на одном сервере. Проблема в подтверждении регистрации. Поднял на одном из своих сайтов сборщик почты со всех адресов вида chto_ugodno@mysite.ru на odin_yaschik@mail.ru. При регистрации буду указывать не существующие адреса на своём сервере, и в итоге получу все ссылки на активацию в письмах на одном ящике.

Встаёт задача - собрать все письма в один файл, или ещё куда и выдрать ссылки. В письме приходят три ссылки - две справочные одинаковые для всех и третья - нужная ссылка активации. Когда ссылки будут получены - достаточно будет чекнуть на дубли, убрать две лишних и пройтись по ним через idHTTP.Get или тупо WebBrowser'ом.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var   NumOfMsgs:Integer; // Количество писем begin try   IdPOP31.Username:=Edit1.Text; // адрес электронной почты в формате (xxx@xxx.xx)   IdPOP31.Password:=Edit2.Text; //  пароль к данному почтовому ящику   IdPOP31.Host:=Edit3.Text;     // POP3 сервер (pop.mail.ru; pop3.ukr.net)   IdPOP31.Port:=StrToInt(Edit4.Text);     // порт     IdPOP31.Connect;     // подключаемся   if IdPOP31.Connected then       // если подключение прошло успешно   begin     NumOfMsgs := idpop31.CheckMessages;      //  записываем в NumOfMsgs количество писем     // выводим сообщения в Мемо     Memo1.Lines.Add('Подключение прошло успешно!');     Memo1.Lines.Add('У вас '+IntToStr(NumOfMsgs)+' сообщений');   end except  // Если произошла ошибка- выводим её в Memo1   on E:Exception do Memo1.Lines.Add('Ошибка подключения! '+E.Message); end;     IdPOP31.Disconnect;       // Для отключения end;

Допустим выше подключение к моему ящику. А как скачать все письма в файл?

И ещё я знаю, что у Embedded Webbrowser есть возможность выдирать ссылки. Кто-то может дать пример? Впрочем собрать ссылки из файла можно много чем и это совсем не проблема.