Email Multiple Recipients

[kb178]

Hi Guys - I've been looking through these forums all morning and can't figure this out. All I want to do is send this email to the complete list of email addresses that comes out of my query, but I can only get it to the first one. This is what I've got:

Dim EmailAddress As ADODB.Recordset
...
SelectString="Select Email From ..."
EmailAddress.Open SelectString
strCC = EmailAddress("Email&quot
EmailAddress.close

The results from the query bring up a few addresses. How do I get all of them? Thanks!

 

[johnwm]

Look at a Do loop

Something like:
EmailAddress.Open SelectString
Do while not EmailAddress.EOF
strCC = strcc & EmailAddress("Email&quot & ";"
Loop
EmailAddress.close
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[kb178]

Do you need anything else with a do loop? It keeps hanging at "Loop"

 

[kb178]

Nevermind, figured it out!
Do while not EmailAddress.EOF
strCC = strcc & EmailAddress("Email&quot & ";"
EmailAddress.MoveNext
Loop

Thanks johnwm!