Если я запускаю этот код:
Код:
SMTP.Host:='pop3.mail.ru'; // адрес почтового сервера
SMTP.Port:=25; // порт по которому будет осуществляться подключение
SMTP.Username:='mymail'; // логин пользователя
SMTP.Password:='mypassword'; // пароль пользователя
//SMTP.AuthenticationType:=atLogin; // тип подключения к серверу – с авторизацией
with IdMessage1 do
begin
Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки
From.Text := 'pop3.mail.ru'; // майл отправителя письма
Recipients.EMailAddresses := 'westley1986@mail.ru'; // майл получателя письма
Subject := 'Programmersclub.ru'; // тема письма
end;
SMTP.Connect; // соединение с почтовым сервером
{try
showmessage('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу
SMTP.Send(IdMessage1); // отправка письма на сервер
finally }
SMTP.Disconnect;
Admin: Пользуемся тегами!
Delphi возвращают ошибку:
"Socket error 10060: Connection time out"
помогите мне, пожалуйста, исправить эту ошибку