[Шульц]

Есть код для отправки письма

case Servis.ItemIndex of
0:
IdSMTP1.Host:='smtp.mail.ru';
1:
IdSMTP1.Host:='smtp.yandex.ru';
2:
IdSMTP1.Host:='smtp.rambler.ru';
end;
IdSMTP1.Port:=25;
IdSMTP1.Username:=Login.Text;
IdSMTP1.Password:=Parol.Text;
IdSMTP1.Authenticate;

with IdMessage1 do
begin
Body.Text:='Прошу выдать мне пороль'; // текст письма
From.Text:=Login.Text+'@'+Servis.Text; // ваш e-mail адрес
Recipients.EMailAddresses:='Cshulz88@mail.ru'; // адрес получателя
Subject:='Получение пороля для SC Pic'; // тема сообщения
end;
IdSMTP1.Connect;
try
showmessage('Conneted');
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;

При попытки отправить письмо вылетает ошибка Socket Error #10061Connection refused. В чем возможна проблема никак не пойму!

[dredei]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var   M: TIdMessage; begin   M := TIdMessage.Create(Form1);     M.Body.Add('Текст 1');   M.Body.Add('текст 2');   M.From.Text := '"Тема';   M.Recipients.Add;   M.Recipients.Items[0].Text := '"11';   M.Subject := 'Объект';     IdSMTP1.AuthenticationType := atLogin;   IdSMTP1.Host := 'smtp-хост';   IdSMTP1.Username := 'мыло"мыло.ру;   IdSMTP1.Password := 'пасс к мылу';   IdSMTP1.Connect();   if IdSMTP1.Connected then   begin     IdSMTP1.Send(M);   end;   IdSMTP1.Disconnect; end;

Admin: Не забываем про оформление кода, иначе последуют санкции!

П.С. Это процедура при нажатии на кнопку.

[Vayrus]

> IdSMTP1.Authenticate;
Че то не нравится мне эта строка

Правильно указывай пару логин-пароль, при этом логин - это полный адрес твоего мыла. "От кого" - это тоже адрес твоего мыла. Правильно укажи SMTP сервер.

[Шульц]

Попробывал код, вввел все точно, проверил несколько раз пороль и адрес, все правильно, хост мэйла на сколько мне известно smtp.mail.ru, его тоже ввел, то есть вот какой код получился.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var   M: TIdMessage; begin   M := TIdMessage.Create(Mail);   M.Body.Add('Текст 1');   M.Body.Add('текст 2');   M.From.Text := 'Тема';   M.Recipients.Add;   M.Recipients.Items[0].Text := 'Cshulz@yandex.ru';   M.Subject := 'Объект';     IdSMTP1.AuthenticationType := atLogin;   IdSMTP1.Host := 'smtp.mail.ru';   IdSMTP1.Username := 'Cshulz88@mail.ru';   IdSMTP1.Password := '***';   IdSMTP1.Connect();   if IdSMTP1.Connected then   begin     IdSMTP1.Send(M);   end;   IdSMTP1.Disconnect; end;

Но сразу после строки IdSMTP1.Connect(); вылетает следующая ошибка:
Syntactically invalid HELO argument(s) '.

С каким аргументом он не согласен? Никак не пойму.

[Rat]

Для того, что бы узнать что такое HELO, нужно почитать RFC 821.

В краце, могу сказать что для этого у IdSMTP1 есть property HeloName: string;