Concatenating email addresses from a subform and using them in the CC field of a macro

[bfryxell]

I have been working on a database for chamber music and there is a form set up where a chamber group can be selected. The group's contact person is shown, as well as the coach(es). Below that, there is a subform that shows the members of the group, with each record having an "Email" field. When a chamber group is selected using a list box that is on the form, that subform is automatically populated. Once the subform is populated, there should be a way to email a report to the group members and coaches. I already have it set up so that a report can be attached to a message in Outlook and addressed to the contact person of the group, but I would like for there to be a way to concatenate the email addresses of all of the group members shown in the subform when the button is clicked to attach the report to an email message, and to use the concatenated string of email addresses in the "To:" field of the message. Thanks very much in advance for any assistance!

[June7]

Requires VBA code to cycle through records and build the address string.

Do you want to use SendObject method?

Common topic. Search forum.

[ranman256]

Put a list box on the form, that has the list of emails in it.
then cycle Thu them and either send X emails ,or append a string X times to send 1 email.

dim sTo as string

for I = 0 to lstEmails.listcount -1
   LstEmails = LstEmails.itemdata(I)
  sTo = sTo & lstEmails & ";"
next 
'send email here

[bfryxell]

I got it basically working, I think. Thank you both for responding!