Задача: отправить письмо через аккаунт mail.ru
Кидаю на форму:IdSMTP1
IdMessage1
IdSSLIOHandlerSocketOpenSSL1
Memo1
пишу:
IdMessage1->From->Address="kria2010@mail.ru";
IdMessage1->Recipients->EMailAddresses = "kria2010@mail.ru";//Адрес получателя
IdMessage1->Subject = "Mail From Control";//Заголовок письма UTF8Encode(subject.Text);
IdMessage1->Body->Assign(Memo1->Lines);//тут мы берем текст из Memo
IdSMTP1->Port = 465;
IdSMTP1->Host = "smtp.mail.ru"; //адрес smtp сервера
IdSMTP1->Username = "kria2010@mail.ru"; //Логин
IdSMTP1->Password = "F20142014"; //пароль
IdSMTP1->AuthType = satDefault;//с авторизацией
IdSSLIOHandlerSocketOpenSSL1->Destination=IdSMTP1->Host+":"+IntToStr(IdSMTP1->Port);
IdSSLIOHandlerSocketOpenSSL1->Host=IdSMTP1->Host;
IdSSLIOHandlerSocketOpenSSL1->Port=IdSMTP1->Port;
IdSSLIOHandlerSocketOpenSSL1->DefaultPort=0;
IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method=sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode=sslmUnassigned;
IdSMTP1->IOHandler=IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1->UseTLS=utUseExplicitTLS;
try //дальше собственно отправка и обработка кое каких исключений
{
try
{
if (IdSMTP1->Connected()) IdSMTP1->Disconnect();
IdSMTP1->Connect();
//IdSMTP1->Send(IdMessage1);
}
catch (Exception &exception)
{
IdSMTP1->Disconnect();
MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
Abort;
}
// My Code Here
}
catch (Exception &exception)
{
Application->ShowException(&exception);
IdSMTP1->Disconnect();
}
Получаю:На этапе IdSMTP1->Connect();
Socket error # 10051 NetWork is unreachable.
Почтовые программы соединяются с mail.ru с этими же логинами-паролями без проблем.
Стоит Касперский Интернет Секьюрити, пробовал сделать приостановку защиты, не помогло.
-------------------------
C++ Builder XE
Самоучка