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.OpenRecordse t(sql)
Do Until rs.EOF
If Not IsNull(rs!Email Add) Then
emailTo = emailTo & rs!EmailAdd & "; "
End If
rs.MoveNext
Loop
emailTo = Left(emailTo, Len(emailTo) - 1)
DoCmd.SendObjec t acSendNoObject, , , , , emailTo

This works well UNTIL I try to use a textbox on an unbound form to
provide "qryEmailMe rge" 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 "qryEmailMe rge" on that table?

[ARC]

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

"Wayne" <cq*******@volc anomail.comwrot e in message
news:d2******** *************** ***********@u33 g2000pro.google groups.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.OpenRecordse t(sql)
Do Until rs.EOF
If Not IsNull(rs!Email Add) Then
emailTo = emailTo & rs!EmailAdd & "; "
End If
rs.MoveNext
Loop
emailTo = Left(emailTo, Len(emailTo) - 1)
DoCmd.SendObjec t acSendNoObject, , , , , emailTo

This works well UNTIL I try to use a textbox on an unbound form to
provide "qryEmailMe rge" 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 "qryEmailMe rge" on that table?

[Wayne]

On Aug 29, 3:16*pm, "ARC" <PCES...@PCESof t.invalidwrote:

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

"Wayne" <cqdigi...@volc anomail.comwrot e in message

news:d2******** *************** ***********@u33 g2000pro.google groups.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.OpenRecordse t(sql)
Do Until rs.EOF
* *If Not IsNull(rs!Email Add) Then
* *emailTo = emailTo & rs!EmailAdd & "; "
* *End If
* *rs.MoveNext
Loop
emailTo = Left(emailTo, Len(emailTo) - 1)
DoCmd.SendObjec t acSendNoObject, , , , , emailTo

This works well UNTIL I try to use a textbox on an unbound form to
provide "qryEmailMe rge" 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 "qryEmailMe rge" on that table?

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