if idsmtp1.Connected then
      idsmtp1.Disconnect;
      idsmtp1.host:='smtp.sina.com.cn;//smtp服务器地址
      idsmtp1.port:=25;
      idsmtp1.UserId:='AAA';
      idsmtp1.Password:='AAA';
      try
      idsmtp1.Connect;
      except
      end;
      if not idsmtp1.Authenticate then  ShowMessage('验证失败!');