anchor.diff:    aSMTP.SASLMechanisms.Add.SASL := IdSASLExternal;
     aSMTP.SASLMechanisms.Add.SASL := IdSASLLogin;
     aSMTP.SASLMechanisms.Add.SASL := IdSASLPlain;
  +end;
  +
  +function TSendMail.ExtractDomain(const aMailAddress: String): String;
  +var
  +  i : integer;
  +begin
  +  Result := '';
  +  i := Pos('@', aMailAddress);
  +  if i > 0 then
  +    Result := Copy(aMailAddress, i - 1, MaxInt);
   end;
   
   constructor TSendMail.Create;
  
positive.code:     if FBCCRecipients <> '' then
        tmpMessage.BccList.EMailAddresses:= FBCCRecipients;
      tmpMessage.Subject:= FSubject;
  
      logger.Debug('To: ' + tmpMessage.Recipients.EMailAddresses);
      logger.Debug('CC: ' + tmpMessage.CCList.EMailAddresses);
  
negative.code:   strict private
      procedure AddSSLHandler(aSMTP : TIdSMTP);
      procedure InitSASL(aSMTP : TIdSMTP; const aUserName, aPassword : String);
      function ExtractDomain(const aMailAddress: String): String;
    public
      constructor Create;
      destructor Destroy; override;
  