How to export Email addresses from Query into Outlook?

[Sergeles]

I am currently in the process of making/maintaining a database for a school club. I started the database mostly from scratch and i have a pretty good familiarity with Access (been using it for almost a year), but i hit a wall in terms of something i want to do, and i have a feeling i either need to make an expression, VBA, or macro model to do what i need. I need some direction as to which is the easiest to do, and exactly how i should go about doing it.
I want to be able to create a button on the main page of my database that will open an outlook email message and put all of the email addresses from a column in one of my queries into said outlook mail's "to" form. I do not want it to automatically send the email or attach anything to the email, I just need it to simply fill out the "to" form so that it will act as an active email list.
Any advice would be appreciated, but i have to be honest that i have little experience in VBA. I am not entirely computer illiterate and will probably be able to understand/alter existing code with a little advice. I will provide a little information about my database as i am sure it might be useful for explanation:

Version of Access: Access2003
Name of master table: Membership Master Table
Name of Query based off master table: Current Members
Name of column that email addresses appear in: E-mail
Program to open the emails in: Outlook2007

I appreciate all of the help/advice.
Thank You,
Scott

[hjozinovic]

Try this in OnClick event of your button:

Public rst As Recordset
Public qdf As QueryDef
Dim cID as Variant
Dim MyString As String
 
cID = Me.cID           'Me.cID is presumed to be ID of your current member
 
Set qdf = CurrentDb.CreateQueryDef("", "SELECT E-Mail FROM [Current Members] WHERE CurrID= " & cID & ";")
Set rst = qdf.OpenRecordset
If rst.BOF Then
    Exit Sub
Else
rst.MoveFirst
MyString = ""
Do Until rst.EOF
    MyString = MyString & rst![E-Mail] & ";"
    rst.MoveNext
Loop
 
 
    DoCmd.SendObject , , , Mystring
 

Only the CreateQueryDef part could be a little problem, so you need to be carefull there.
Put SQL with the right WHERE part and you have it.
This is one example from my database:

Set qdf = CurrentDb.CreateQueryDef("", "SELECT * FROM qAiring WHERE abID = " & MovID & "AND aRunNo = " & Run & ";")