I have something similar set, where it opens a blank email, with the to address set by the current record being viewed in the form.
As I understand it all you should need to do is change part of your code to:
DoCmd.SendObject , , , [NAME OF COMBO BOX], , ,
I used a text box to hold my email...