pde = d*cp*D[T[t, z], t] == k*D[T[t, z], {z, 2}] + Q;
Block[{cp, d, Q, k, h, Tamb, a},
{cp, d, Q, k, h, Tamb, a} = {1, 1, 1, 1, 1, 1, 0};
sol = DSolve[{pde, T[0, z] == Tamb, (D[T[t, z], z] /. z -> 0) == 0,
(-k*D[T[t, z], z] /. z -> a) == h*(T[t, a] - Tamb)},
T[t, z], {t, z}]
]
(* {{T[t, z] -> Undefined}} *)