Create long string from query result?

[deko]

I'm trying to create an email mailing list for Outlook.

Here's the part of the sub that puts the email address in the Bcc (or To)
field:

With objNewMail
.BCC = strEmail
.Display
End With

I'm wondering if I can create one long comma-delimited string for "strEmail"
that is the result of a query.

.... was also thinking a For loop might work... ???

any help is greatly appreciated!

[deko]

I think this might work...

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("qryEmailList")
Do Until rst.EOF
strEmail = strEmail & rst!EmailAddress & ";"
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
"deko" <dj****@hotmail.com> wrote in message
news:92****************@newssvr27.news.prodigy.com ...

I'm trying to create an email mailing list for Outlook.

Here's the part of the sub that puts the email address in the Bcc (or To)
field:

With objNewMail
.BCC = strEmail
.Display
End With

I'm wondering if I can create one long comma-delimited string for "strEmail" that is the result of a query.

... was also thinking a For loop might work... ???

any help is greatly appreciated!

[Pieter Linden]

"deko" <dj****@hotmail.com> wrote in message news:<3H*******************@newssvr25.news.prodigy .com>...

I think this might work...

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("qryEmailList")
Do Until rst.EOF
strEmail = strEmail & rst!EmailAddress & ";"
rst.MoveNext
Loop
rst.Close
Set rst = Nothing

Yes, you could either do that or just add the address to the
Recipients collection (any of Cc, Bcc, or To) BTW, I think your
strEMail line should be

Do Until rst.EOF
strEMail = strEMail & ";" rst!EMailAddress
rst.MoveNext
Loop
rst.Close
set rst=nothing

strEMail = right$(strEMail,Len$(strEMail)-1)) ... cuts off the first ;

[deko]

thanks for the tip.

I tried adding each email to the Bcc collection - but couldn't for some
reason. that's why I resorted to this method...

"Pieter Linden" <pi********@hotmail.com> wrote in message
news:bf**************************@posting.google.c om...

"deko" <dj****@hotmail.com> wrote in message

news:<3H*******************@newssvr25.news.prodigy .com>...

I think this might work...

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("qryEmailList")
Do Until rst.EOF
strEmail = strEmail & rst!EmailAddress & ";"
rst.MoveNext
Loop
rst.Close
Set rst = Nothing

Yes, you could either do that or just add the address to the
Recipients collection (any of Cc, Bcc, or To) BTW, I think your
strEMail line should be

Do Until rst.EOF
strEMail = strEMail & ";" rst!EMailAddress
rst.MoveNext
Loop
rst.Close
set rst=nothing

strEMail = right$(strEMail,Len$(strEMail)-1)) ... cuts off the first ;