Ошибка при отправке почты через smtp.rambler.ru

void __fastcall TSender::DoSendEmail()
{
    //***************Adjusting sender and receiver properties*****************//
    //std::auto_ptr<TIdSMTP> IdSMTP1(new TIdSMTP(0));                           //Crap if fault in IdSMTP1 methods...
    TIdSMTP *IdSMTP1 = new TIdSMTP(0);
    IdSMTP1->Host = LoadS(CCDHostFrom);                                         //e_Host = smtp.rambler.ru
    IdSMTP1->Port = 465;                                                        //e_Port;
    IdSMTP1->Username = LoadS(CCDUsernameFrom);                                 //e_From_Name; - правильное!
    IdSMTP1->Password = LoadS(CCDUserPasswordFrom);                             //e_From_Pass; - правильный!
 
    std::auto_ptr<TIdSSLIOHandlerSocketOpenSSL> IdSSLIOHandlerSocketOpenSSL1(new TIdSSLIOHandlerSocketOpenSSL(0));
    IdSSLIOHandlerSocketOpenSSL1->Destination             = IdSMTP1->Host + LoadS(MCMColon) + IntToStr(IdSMTP1->Port);
    IdSSLIOHandlerSocketOpenSSL1->Host                    = IdSMTP1->Host;
    IdSSLIOHandlerSocketOpenSSL1->Port                    = IdSMTP1->Port;
    IdSSLIOHandlerSocketOpenSSL1->DefaultPort             = 0;
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method      = sslvTLSv1;
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode        = sslmUnassigned;
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyMode  = TIdSSLVerifyModeSet();
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyDepth = 0;
 
    IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1.get();
    IdSMTP1->UseTLS = utUseExplicitTLS;                                         //TIdUseTLS
    IdSMTP1->AuthType =     satDefault;
    IdSMTP1->ReadTimeout =       15000;
    IdSMTP1->ConnectTimeout =    15000;
    IdSMTP1->OnWorkBegin = (TWorkBeginEvent)&_IdSMTPSendWorkBegin;
    IdSMTP1->OnWork = (TWorkEvent)&_IdSMTPSendWork;
    IdSMTP1->OnWorkEnd = (TWorkEndEvent)&_IdSMTPSendWorkEnd;
    IdSMTP1->OnStatus = (TIdStatusEvent)&_IdSMTPStatus;
    //************End of adjusting sender and receiver properties*************//
    //***************************Compose message *****************************//
    std::auto_ptr<TIdMessage> IdMessage1(new TIdMessage(0));
    //TIdMessage *IdMessage1 = new TIdMessage(0);
    IdMessage1->Clear();
    IdMessage1->From->Address = IdSMTP1->Username;                          //e_From_Adress; - правильное!
    IdMessage1->Recipients->EMailAddresses = LoadS(CCDUserEmailTo);             //UserEmailTo; - правильное!
 
    UnicodeString Subject= LoadS(CCDSubjectReport);
    IdMessage1->ExtraHeaders->AddValue(LoadS(CCDSubject), _EncodeQuotedUtf8(Subject));
 
    IdMessage1->From->Name = _EncodeQuotedUtf8(_strHDDSerialNumber + LoadS(CCDUserHDD));           //_strHDDSerialNumber -  external string
 
    IdMessage1->Body->Text = DateTime + L"\r\n" + LoadS(CCDTextFromUser) + user_text;        //user_text -  external string
 
    IdMessage1->ContentType = LoadS(CCDContentType);
    IdMessage1->ContentTransferEncoding = LoadS(CCDContentTransferEncoding);    //EncodeQuoted...
    //IdMessage1->ContentTransferEncoding= "base64";                            //EncodeBase64...
    IdMessage1->CharSet = LoadS(CCDCharSet);                                                   //CCDCharSet = "utf-8"
 
    IdMessage1->Priority = mpLow;                                               //Letter priority
    IdMessage1->Flags = IdMessage1->Flags << mfFlagged;
//***************************End message buildeing****************************//
//******************************Create LogEvent*******************************//
    std::auto_ptr<TIdLogEvent> IdLogEvent1(new TIdLogEvent(Application->MainForm->Owner));
    IdLogEvent1->OnReceived = (TLogItemDataEvent)&_IdLogEvent1Received;
    IdSMTP1->Intercept = IdLogEvent1.get();
    IdLogEvent1->Active = true;
//***************************End LogEvent creation****************************//
//********************************Send message********************************//
    try {
        try {
            IdSMTP1->Connect();
            IdSMTP1->Send(IdMessage1.get());
            bSend_res = true;
        } catch(const EIdException &E) {
            ShowMessage(E.Message);
            bSend_res = false;
        } catch(const Exception &E) {
            ShowMessage(E.Message);
            bSend_res = false;
        }
    } __finally {
        IdSMTP1->Disconnect();
        IdSMTP1->Free();
    }
}
//---------------------------------------------------------------------------