DSolve[Derivative[1][y][x] == (E^(y[x]/x)*(x/E^(y[x]/x) + x^2/E^(y[x]/x) + x^4 + y[x]/E^(y[x]/x) + (x*y[x])/E^(y[x]/x)))/(x*(1 + x)),y[x],x]