Email column from access 2002 using outlook

[splats]

Hello folks

I have a database Access 2002. I would like to email all email addresses in a table using Outlook 2000 directly from a command button on a form.

Here is my code for a command button. I am getting a type mismatch error (run time error '13'). The problem seems to be in Set rs = db.OpenRecordset(sql)

Is it possible that I need a reference checked? I am stuck! Thanks in advance!

Private Sub EmailPersonal_Click()

Dim db As Database, rs As Recordset, sql As String, emailTo As String
Set db = CurrentDb()
emailTo = ""
sql = "Select from [QU-EmailPersonal]"
Set rs = db.OpenRecordset(sql)
Do Until rs.EOF
If Not IsNull(rs!Email) Then
'build up email addresses separated by a semicolon
emailTo = emailTo & rs!Email & "; "
End If
rs.MoveNext
Loop

DoCmd.SendObject acSendNoObject, , , emailTo

End Sub

 

[stox]

Hi

If you get no answer here I would try the Artifact Software site (

http://www.artifactsoftware.net/)and

post the question there.

Good Luck

Stox

 

[splats]

I found the answer it is at thread181-511371