Как Отправлять письма на другие почтовые сервисы?

[hacknet]

Пишу программу для отправки писем(лично для себя), у меня такой вопрос..
как мне сделать или прописать код для других почтовых сервисов!!!вот мой код!

procedure TForm2.Button1Click(Sender: TObject);
begin
  idSmtp1.Host :='smtp.mail.ru';
  idSmtp1.Username :=Edit1.Text ;
  idSmtp1.Password :=Edit2.Text ;
  idMessage1.Body.Text :=Memo1.Text;
  idMessage1.From.Text :=Edit3.Text ;
  idMessage1.Recipients.EMailAddresses :=Edit4.Text ;
  idMessage1.Subject :=Edit5.Text ;

  idSmtp1.Connect ();
  if idSmtp1.Connected=true then
   idSmtp1.Send(idMessage1);
  idSmtp1.Disconnect();
end;
end.

[rpy3uH]

idSmtp1.Host :='адрес нужного SMTP сервера';
например
idSmtp1.Host :='smtp.rambler.ru';

[hacknet]

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

[rpy3uH]

почитай вот это
http://mail.ru/pages/help/2.html#2333
и укажи нужные настройки в компоненте idSmtp

[hacknet]

спс! я уже разобрался!! еще вопрос что означает вот такая ошибка и как её исправить- Already connected*???

она появляется у тех кто пользуется моей программой, а у меня всё норм!!!

[rpy3uH]

надо дисконнектиться после того как отправил/получил почту.

[mihali4]

Сообщение от rpy3uH

надо дисконнектиться после того как отправил/получил почту.

Или проверять наличие коннекта

[hacknet]

вот

код:

procedure TForm2.Button1Click(Sender: TObject);
begin

idSmtp1.Username :=Edit1.Text ;
idSmtp1.Password :=Edit2.Text ;
idMessage1.Body.Text :=Memo1.Text;
idMessage1.From.Text :=Edit3.Text ;
idMessage1.Recipients.EMailAddresse s :=Edit4.Text ;
idMessage1.Subject :=Edit5.Text ;
idSmtp1.Connect ();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect();

и радионбатон после того как выбираешь её начинается сразу подключение , а мне надо чтоб выбрав сразу конект не пошел, а после токо как я нажму "отправить"(баттон)

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
idSmtp1.Host :='smtp.mail.ru';

[mihali4]

Тогда так:

if idSmtp1.Connected=true then
begin
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect();
end else
begin
idSmtp1.Connect ();
while not idSmtp1.Connected do
Application.ProcessMessages;
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect();
end;

[hacknet]

а после чего мне всё это прописать!!?? по точнее можно или можетв асе пообщаемся???