sending e-mail using VBA from a button on an Access Form

[Dana]

Hi,

I need to know how I can send all of the e-mail address's from clicking on a button that I put on a form in Access to a default e-mail on a computer. This is what I want to be able to do I create a form that has a button on it and when it is click it pulls all of the e-mail address's from my query and puts them into the default e-mail I have on my computer. So that I can e-mail all of the people with out having to type each e-mail address in from my query results. I am using Access 2003 Any help anyone can give would be greatly appreciate thanks in advance for your help.

~Dana

[MMcCarthy]

Try something like this:

 
Private sub CommandBtn_Click()
 
    sendEmail("Subject text", "Message text")
 
End Sub
 
 

Put the following function in a module

 
Function sendEmail(subText As String, message As String)
' function to send an email 
Dim db As Database
Dim rs As Recordset
Dim mailList As String
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT email FROM TableName")
 
    mailList = ""
    rs.MoveFirst
    Do Until rs.EOF
        mailList = mailList & rs!email & ";"
        rs.MoveNext
    Loop
 
    ' send the email
    DoCmd.SendObject acSendNoObject, , , mailList, , , subText, message, False
 
    rs.Close
    Set rs = Nothing
    Set db = Nothing
 
End Function
 
 

Hi,

I need to know how I can send all of the e-mail address's from clicking on a button that I put on a form in Access to a default e-mail on a computer. This is what I want to be able to do I create a form that has a button on it and when it is click it pulls all of the e-mail address's from my query and puts them into the default e-mail I have on my computer. So that I can e-mail all of the people with out having to type each e-mail address in from my query results. I am using Access 2003 Any help anyone can give would be greatly appreciate thanks in advance for your help.

~Dana

[belindali]

This is the first time i 've tried to use Access and I am not familiar with VB.
I am trying to perform a similar functiona as Donna wanted to do. I wanted to send e-mail automatically to a group of receipts when I open a form.

1. I have put the sendEmail function in a new model and named it testemailmodel.
2. I have created a table to hold all the e-mail address
3. Could you please guide me through how I can put the sendEmail("Subject text", "Message text") code correct so that when I open a form, it automatically send the e-mails.

Also, I found that I can build a macro by select sendopen object and select the query to send the query result to the receipt. my question is:
1. how can I bypass the confirmation message before the marcro send the e-mail?
2. Is there a way to attach 2 query results in one e-mail?

Thank you very much for your help!