Send Multiple Emails To Access Query

[ilyk2gruv]

I am trying to migrate from an "off the shelf" contact manager to one I am working on in MS Access. I have been able to send an email to a single contact using:

-----
Private Sub Email_Click()
On Error GoTo Err_Email_Click

Dim stAppName As String

stAppName = "C:\Program Files\Outlook Express\msimn.exe"
Call Shell(stAppName, 1)

DoCmd.SendObject , , , EmailName

Exit_Email_Click:
Exit Sub

Err_Email_Click:
MsgBox Err.Description
Resume Exit_Email_Click

End Sub
-----

I would like to create a lookup and then send a predefined email to that group.

Any help would be appreciated.

 

[grnzbra]

Are you looking to bring existing contacts from the existing program into Access and then have an Access only system, or do you want to remain linked to the existing contact manager?

 

[ilyk2gruv]

I would be importing the contacts into Access. Once that has been completed, then I would only be using Access for the contact manager.