Partial answer -Access Question - SendObject - Another way

[occie]

I have come up with this Function, but it works only with a table, not a query. Anyone know how to write it so the SQL statement can have a query? SQL = "SELECT Email FROM qryProduct1;"

Function Email()

Set db = CurrentDb
SQL = "SELECT Email FROM Company;"
Set rs = db.OpenRecordset(SQL)

rs.MoveFirst

Do While rs.EOF = False
Email = Email & rs!Email & ";"
rs.MoveNext
Loop

DoCmd.SendObject acSendNoObject, , , , , Email, , , , True

End Function

 

[Ian Mac]

On 2002-10-01 10:42, occie wrote:
I have come up with this Function, but it works only with a table, not a query. Anyone know how to write it so the SQL statement can have a query? SQL = "SELECT Email FROM qryProduct1;"

Function Email()

Set db = CurrentDb
SQL = "SELECT Email FROM Company;"
Set rs = db.OpenRecordset(SQL)

rs.MoveFirst

Do While rs.EOF = False
Email = Email & rs!Email & ";"
rs.MoveNext
Loop

DoCmd.SendObject acSendNoObject, , , , , Email, , , , True

End Function

Hi no need to post to a new thread, I've part answered your question in the other thread.
Can you use that thread and detail anything else you need, as mentioned it should really be Excel related.

 

[occie]

Sorry - sent this before I received a reply to my last post.

 

[occie]

Yess, sorry - our posts are missing each other. I just replyed to this before I got your last message. thanks for your help.