idSmtp1.AuthenticationType := atLogin;
  idSmtp1.UserName := MyUserName;
  idSmtp1.Password := MyPassword;
  idSmtp1.Host := 'smtp.21cn.com';
  idSmtp1.Port := 25;
  idMessage1.Subject := 'Test';
  idMessage1.From.Address := '[email protected]';
  idMessage1.Recipients.EMailAddresses := '[email protected]';
  idMessage1.Body.Assign(Memo1.Lines);
  try
    idSmtp1.Connect();
    idSmtp1.Send(idMessage1);
    idSmtp1.Disconnect();
  except
    showMessage('连接失败.');
  end;Mail data refused by AISP, rule [18756].