CIS 是一套很不错的商业internet组件，简单强大易用。需要注意的是，有一个开源版本的ICS，和它命名非常相似！

其中有个CIS SMTP 发送邮件的例子，发送中文邮件，乱码很厉害！

其实只要指定编码格式，黑体的部分，中文乱码即可解决！

uses clEncoder;

procedure TForm1.btnSendClick(Sender: TObject);
begin
  if (clSmtp1.Active) then Exit;

  clSmtp1.Server := edtServer.Text;
  clSmtp1.Port := StrToInt(edtPort.Text);

  clSmtp1.UserName := edtUser.Text;
  clSmtp1.Password := edtPassword.Text;

  if cbUseTLS.Checked then
  begin
    clSmtp1.UseTLS := ctAutomatic;
  end else
  begin
    clSmtp1.UseTLS := ctNone;
  end;

  clSmtp1.Open();
  try
    clMailMessage1.CharSet := 'UTF-8';//请注意，，UTF-8写法很混乱，如果写成 UTF8，那是很杯具！
    clMailMessage1.Encoding :=  cmBase64; //加密方式

    clMailMessage1.BuildMessage( memBody.Text, '');
    clMailMessage1.From.FullAddress := edtFrom.Text;
    clMailMessage1.ToList.EmailAddresses := edtTo.Text;
    clMailMessage1.Subject := edtSubject.Text;

    clSmtp1.Send(clMailMessage1);

    ShowMessage('The message was sent successfully.');
  finally
    clSmtp1.Close();
  end;
end;

运行示例图：

在foxmail浏览邮件，正常显示：