Вообщем ошибка такая:
При нажати на OK показывает:
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.Send(idMessage1);
end;
Сам код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:=Edit1.Text;
IdSMTP1.Password:=Edit2.Text;
idMessage1.Body.Text:=Memo1.Lines.Text;
idMessage1.From.Text:=Edit4.Text;
idMessage1.Recipients.EMailAddresses:=Edit5.Text;
idMessage1.Subject:=Edit3.Text;
idSmtp1.Connect();
if idSmtp1.Connected = TRUE then
IdSMTP1.Send(idMessage1);
idSmtp1.Disconnect;
end;
end.