Есть код для отправки письма
Цитата:
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. В чем возможна проблема никак не пойму!