...
nmpop31.Port:=strtoint(edit5.Text);
nmpop31.Password:=edit6.text;
nmpop31.Host:=edit1.Text;
nmpop31.UserID:='Name';
nmpop31.Connect;
nmpop31.GetMailMessage(2);
memo1.lines:=nmpop31.MailMessage.Body;
nmpop31.Disconnect;
...
Как можно с помощью дельфи проверить e-mail?
ЗАРАНИЕ БЛАГОДАРЮ
Скорее всего надо заюзать компонент для работы с POP3-протоколом :) К примеру из моей любимой библиотеки ICS.
есть еще компонент с закладки FastNet называется Nmpop31
я вообще для таких целей использовал 5 версию делфи... там с закладки FastNet Nmpop31 и все! использовать легко и доступно. Работает отлично! Кстати, попутный вопрос - а как организовать отправку почты?
Код:
nmsmtp1.Host:=edit1.Text;
nmsmtp1.UserID:='Name';
nmsmtp1.Port:=strtoint(edit4.Text);
nmsmtp1.PostMessage.Subject:=edit3.Text;
NMsmtp1.PostMessage.body.Addstrings(Memo1.Lines);
NMSMTP1.PostMessage.ToAddress.Text:=edit2.Text;
NMSMTP1.PostMessage.FromAddress:= 'your_mail@host.com';
NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com';
nmsmtp1.Connect;
nmsmtp1.SendMail;
nmsmtp1.Disconnect;
nmsmtp1.UserID:='Name';
nmsmtp1.Port:=strtoint(edit4.Text);
nmsmtp1.PostMessage.Subject:=edit3.Text;
NMsmtp1.PostMessage.body.Addstrings(Memo1.Lines);
NMSMTP1.PostMessage.ToAddress.Text:=edit2.Text;
NMSMTP1.PostMessage.FromAddress:= 'your_mail@host.com';
NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com';
nmsmtp1.Connect;
nmsmtp1.SendMail;
nmsmtp1.Disconnect;