Rather than do this:
strRecipient = DLookup("EMailAddress", "Store", "StoreID=[SelectStore]")
strCCRecipient = DLookup("CCEMail", "Store", "StoreID=[SelectStore]")
strBCCRecipient = DLookup("Email", "OurInfo", "SetupID=1")
Dim StrEmailMsg As String
StrEmailMsg = "Attached please find your Report for this month."
You can set the rowsource control for the combo box for more than one column to be included but to only show 1.
To do this set the column count for the combo box to 3.
Set the column width to 1,0,0,0
The final three columns will be hid.
SELECT DisplayedField, emailaddress, ccemail, email FROM store JOIN ourinfo ON store.storeid = ourinfo.storeid WHERE storeid = [selectstore]
Then you can tweak your code a little and include what hammbakka included
Dim SelectedItem as Variant
for each selecteditem in yourListBox.selectedItems
DoCmd.SendObject acSendReport, "DlbyStore", acFormatRTF, .column(1), .column(2), .column(3), "Report", StrEmailMsg, True
One other thing. I think that this may eliminate your selectstore procedure, but I can't say for sure without seeing the code.