procedure SendOnEmail;
var
 IdSMTP1: TIdSMTP;
 idMessage1: TIdMessage;
 idAttach: TidAttachment;
 idText1: TidText;
 p: TidMessageParts;
 DT:TDateTime;
 IdSSLIOHandlerSocketOpenSSL1:TIdSSLIOHandlerSocketOpenSSL;
 ExFileName2:string;
 NeedCopy:boolean;
 sa:TStringDynArray;
 I:integer;
begin



    IdSMTP1 := TIdSMTP.Create(nil);

    try
        IdSMTP1.Host:= MailHost;
        IdSMTP1.Password:= EmpPsw;
        IdSMTP1.Username:= EmpUser;


        if
        (Pos('.yandex.ru',MailHost)>0) or
        (Pos('.mail.ru',MailHost)>0) or
        (Pos('.gmail.ru',MailHost)>0)
        then
        begin

          IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP1);

          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;

          IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
          if EmPort>0 then
          IdSMTP1.Port := EmPort
          else
          IdSMTP1.Port := 465;
          IdSMTP1.UseTLS := utUseExplicitTLS;
          IdSMTP1.ReadTimeout := 15000;
        end;




        idMessage1 := TIdMessage.Create(IdSMTP1);
        idMessage1.OnInitializeISO := LInitializeISO;
        idMessage1.From.Address := EmpEmail;
        idMessage1.From.Name := EmpName;//'Степан Иванов';
        idMessage1.Subject := EmSubject;//'Письмо с картинкой AComp'+FormatDateTime('dd.mm.yyyy hh:mm:ss',Now);

        idMessage1.CharSet := 'Windows-1251';
        idMessage1.ContentTransferEncoding  := '8bit';




        p := idMessage1.MessageParts;
        try
         // Load slBody with your HTML text...
          idText1 := TidText.Create(p);//, slBody);
          idText1.ContentType := 'text/html';
          idText1.CharSet := 'Windows-1251';
          idText1.ContentTransfer := '8bit';
          //if FileExists(EmBodyFileName) then
          idText1.Body.AddStrings(EmailBody);

          if EmailBody.Count>0 then
          if trim(FilePicture)<>'' then
          if not FileExists(FilePicture) then
          AddClSmallLog('А файла фотки тела письма "'+FilePicture+'" нету!')
          else
          begin
            idAttach := TIdAttachmentFile.Create(p,FilePicture);// TidAttachment.Create(p);

            idAttach.ContentType := 'image/jpeg';
            idAttach.ContentDisposition := 'inline';
            idAttach.ExtraHeaders.Values['content-id'] := ExtractFileName(FilePicture);

            idAttach.DisplayName := ExtractFileName(FilePicture);
            idMessage1.ContentType := 'multipart/mixed';
          end;
          //SetFilePath(s,False);


          if FileExists(ExFileName2) then
          TIdAttachmentFile.Create(idMessage1.MessageParts, ExFileName2);





          idMessage1.Recipients.EMailAddresses := Email;
          idSMTP1.Connect;
          idSMTP1.Send(idMessage1);

        finally
         if idSMTP1.Connected then
         idSMTP1.Disconnect;
         idSMTP1.Free;

        end;


    except
      on E:Exception do
      begin
       E.Message := STClCode +'- Ошибка E-mail: ' + E.Message;
       raise;
      end;
    end;


end;