Help Needed With Sending Email Addresses To Outlook

[Wayne]

I'm using the following code to send email addresses from a query to
Outlook:

Dim db As Database, rs As Recordset, sql As String, emailTo As String
Set db = CurrentDb()
emailTo = ""
sql = "select EmailAdd from qryEmailMerge"
Set rs = db.OpenRecordset(sql)
Do Until rs.EOF
If Not IsNull(rs!EmailAdd) Then
emailTo = emailTo & rs!EmailAdd & "; "
End If
rs.MoveNext
Loop
emailTo = Left(emailTo, Len(emailTo) - 1)
DoCmd.SendObject acSendNoObject, , , , , emailTo

This works well UNTIL I try to use a textbox on an unbound form to
provide "qryEmailMerge" with one or more of its parameters. Is there
a more elegant way around this than writing the results of the query
to a temporary table and then basing "qryEmailMerge" on that table?

[ARC]

What other criteria are you trying to set with the textbox values?

"Wayne" <cq*******@volcanomail.comwrote in message
news:d2**********************************@u33g2000 pro.googlegroups.com...

I'm using the following code to send email addresses from a query to
Outlook:

Dim db As Database, rs As Recordset, sql As String, emailTo As String
Set db = CurrentDb()
emailTo = ""
sql = "select EmailAdd from qryEmailMerge"
Set rs = db.OpenRecordset(sql)
Do Until rs.EOF
If Not IsNull(rs!EmailAdd) Then
emailTo = emailTo & rs!EmailAdd & "; "
End If
rs.MoveNext
Loop
emailTo = Left(emailTo, Len(emailTo) - 1)
DoCmd.SendObject acSendNoObject, , , , , emailTo

This works well UNTIL I try to use a textbox on an unbound form to
provide "qryEmailMerge" with one or more of its parameters. Is there
a more elegant way around this than writing the results of the query
to a temporary table and then basing "qryEmailMerge" on that table?

[Wayne]

On Aug 29, 3:16*pm, "ARC" <[e-mail]:

What other criteria are you trying to set with the textbox values?

"Wayne" <[e-mail] in message

news:d2**********************************@u33g2000 pro.googlegroups.com...

I'm using the following code to send email addresses from a query to
Outlook:

Dim db As Database, rs As Recordset, sql As String, emailTo As String
Set db = CurrentDb()
emailTo = ""
sql = "select EmailAdd from qryEmailMerge"
Set rs = db.OpenRecordset(sql)
Do Until rs.EOF
* *If Not IsNull(rs!EmailAdd) Then
* *emailTo = emailTo & rs!EmailAdd & "; "
* *End If
* *rs.MoveNext
Loop
emailTo = Left(emailTo, Len(emailTo) - 1)
DoCmd.SendObject acSendNoObject, , , , , emailTo

This works well UNTIL I try to use a textbox on an unbound form to
provide "qryEmailMerge" with one or more of its parameters. *Is there
a more elegant way around this than writing the results of the query
to a temporary table and then basing "qryEmailMerge" on that table?

Filtering criteria for the list of people with email addresses. eg.
Company, Location etc.