NIntegrate[Exp[-x]/(1+Exp[-x](x+1)),{x,0,10000}]