[Delphi] Guerrillamail компонент

Этот компонент предназначен для удобной работы с почтой, а точнее с временной почтой! Зачем регистрировать кучу почтовых ящиков ради одного сайта и тратиться на антигейт, прокси и прочие? Воспользовавшись этим сервисом мы сократим расходы и сделаем регистрацию аккаунтов в несколько раз удобнее и выгоднее!



Компонент работает на Synapse.

Устанавливать не обязательно, можно просто закинуть в папку с программой и подключить в USES модуль GuerrillaMail.pas

Пользоваться просто:

var nemail:TFormatMessage;

GM:=TGM.Create(nil); //создаём компонент

GM.CreateMail; //регистрируем почту

GM.YourEmail; //тут будет наш мэйл на который регать

while nemail.From<>'admin@forum.com' do begin //ждём письмо

 nemail:=GM.CheckNewMail; //проверяем входящие
 if nemail.From='admin@forum.com' then begin //проверяем отправителя
  nemail:=GM.GetBodyMail(nemail.id); //получаем тело письма
  nemail.Excerpt; //тут будет тело нужного письма
 end;
end;
GM.Free;

Таким образом можно получить ссылку с подтверждением регистрации и прочее что очень удобно!
 

Буду рад выслушать предложения по улучшению компонента.