Maybe:
Maximize[{RealAbs[V[x]], 0 <= x <= d1 + d2}, x](*Maximum "Shear"*) Maximize[{RealAbs[M[x]], 0 <= x <= d1 + d2}, x](*Maximum "Moment"*)