Copy-paste on your example is not so easy. Please post code rather than images or the like.
Based on the example, I believe the method below will do what you have in mind.
Table[
Flatten[Outer[List, connectedComponents[[j]],
Apply[Join, Delete[connectedComponents, j]]], 1], {j,
Length[connectedComponents]}]
(* Out[1548]= {{{a, e}, {a, f}, {a, g}, {a, h}, {a, i}, {b, e}, {b,
f}, {b, g}, {b, h}, {b, i}, {c, e}, {c, f}, {c, g}, {c, h}, {c,
i}, {d, e}, {d, f}, {d, g}, {d, h}, {d, i}}, {{e, a}, {e, b}, {e,
c}, {e, d}, {e, h}, {e, i}, {f, a}, {f, b}, {f, c}, {f, d}, {f,
h}, {f, i}, {g, a}, {g, b}, {g, c}, {g, d}, {g, h}, {g, i}}, {{h,
a}, {h, b}, {h, c}, {h, d}, {h, e}, {h, f}, {h, g}, {i, a}, {i,
b}, {i, c}, {i, d}, {i, e}, {i, f}, {i, g}}} *)