struct SSMTPMail
{
  AnsiString   sHost,
               sMailBoxName,
               sFromName,
               sPassword,
               sRecipientList,
               sSubject,
               sBody;
  int          iPort;
  bool         bSSL,
               bShowError;

  SSMTPMail()
  {
    iPort      = 0;
    bSSL       = false;
    bShowError = true;
  }
};


bool SendSMTPMail(const SSMTPMail *pSSM)
{
  Screen->Cursor = crHourGlass;
  bool bRes = true;

  TIdSMTP                      *pIdSMTP  = new TIdSMTP;
  TIdSSLIOHandlerSocketOpenSSL *pHandler = new TIdSSLIOHandlerSocketOpenSSL;
  TIdMessage                   *pMessage = new TIdMessage;

  pIdSMTP->Host     = pSSM->sHost;
  pIdSMTP->Port     = pSSM->iPort;
  pIdSMTP->Username = pSSM->sMailBoxName;
  pIdSMTP->Password = pSSM->sPassword;

  if (pSSM->bSSL)
  {
    pHandler->Destination = pIdSMTP->Host + ":" + IntToStr(pIdSMTP->Port);
    pHandler->Host        = pIdSMTP->Host;
    pHandler->Port        = pIdSMTP->Port;
    pHandler->SSLOptions->Method = sslvSSLv3;

    pIdSMTP->IOHandler = pHandler;
    pIdSMTP->UseTLS    = utUseImplicitTLS;
  }

  pMessage->CharSet                    = "windows-1251";
  pMessage->ContentType                = L"text/plain; charset=windows-1251";
  pMessage->From->Text                 = pSSM->sFromName;
  pMessage->Recipients->EMailAddresses = pSSM->sRecipientList;
  pMessage->Subject                    = pSSM->sSubject;

  pMessage->Body->Text = pSSM->sBody;

  try
  {
    pIdSMTP->Connect();
    pIdSMTP->Send(pMessage);
  }
  catch(Exception &e)
  {
    bRes = false;

    if (pSSM->bShowError)
      Application->MessageBox(String("Ошибка при отправке письма: " + e.Message).c_str(), L"Внимание!", MB_ICONSTOP);
  }

  pIdSMTP->Disconnect();
  delete pMessage;
  delete pHandler;
  delete pIdSMTP;
  Screen->Cursor = crDefault;
  return bRes;
}

  pMessage->Subject = "?windows-1251?B?%0KLQtdGB0YLQvtCy0L7QtSDQv9C40YHRjNC80L4=%?=\r\n";

  pMessage->Subject = "";
  pMessage->ExtraHeaders->AddValue("Subject", EncodeHeader(UTF8Encode(UnicodeString(pSSM->sSubject)), "C", 'B', "UTF-8"));