Тема: Mail
Показать сообщение отдельно
  #1  
Старый 26.09.2008, 17:38
Шульц Шульц вне форума
Прохожий
 
Регистрация: 14.09.2008
Сообщения: 11
Репутация: 10
По умолчанию Mail

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

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