email list from access

Hello AartKorstjens, I'm Shalom and I'd happily help you with your question. In this forum, we are Microsoft consumers just like yourself. Here's a step-by-step guide on how to do this: 1. Create a Query in Access: - Open your Access database. - Create a query that retrieves the email addresses you want to send emails to. 2. Export Query Results to Excel: - Run your query to display the email addresses. - Select all the email addresses in the column and copy them (Ctrl-C). 3. Create an Email List in Excel: - Open Microsoft Excel. - Create a new workbook or worksheet. - Paste the copied email addresses into an Excel column. 4. Use Excel to Send Emails: In Excel, you can use the "Mail Merge" feature to send emails. Here's how to do it: - Click on the "Mailings" tab. - Choose "Start Mail Merge" and select "Email Messages." - In the "Select Recipients" section, select "Use an Existing List." - Browse and select the Excel file containing the email addresses. - Insert placeholders for the email content, such as <Email address="">> where you want to include the email address in the email body. - Compose your email message. - Click "Finish & Merge" and select "Send Email Messages." - Choose the email field from your Excel sheet that contains the email addresses. - Click "OK" to send the emails. Remember to double-check your email settings and test with a small group of recipients to ensure that your emails are being sent as expected before sending to your entire email list. Best Regards, Shalom</Email>

Isn't it overkill to export to Excel?
Access has DoCmd.SendObject available.

All the OP needs is a hint how to use a recordset and concatenate the email values in a string.

Natuurlijk kan dat eenvoudiger. Ik heb ook zoiets aan de hand en heb dat als volgt opgelost. Maak een formulier in Access en zet daar een gebeurtenis onder. Zoiets als:

Private Sub stuurmail_Click() 

Dim objOutlook As Outlook.Application 

Dim objEmail As Outlook.MailItem 

Dim oOutlookAccount As Outlook.Account 

Dim rs As Recordset 

Dim strBCC As String 

Dim MailCount As Integer 

Set objOutlook = CreateObject("Outlook.Application") 

Set objEmail = objOutlook.CreateItem(olMailItem) 

Set rs = CurrentDb.OpenRecordset("Mailing") 

MailCount = 0 

While Not rs.EOF 

    If MailCount > 0 Then strBCC = strBCC & ";" 

    strBCC = strBCC & rs![E-mailadres] 

    MailCount = MailCount + 1 

    rs.MoveNext 

Wend 

If MailCount = 0 Then 

    MsgBox "Er werden geen e-mailadressen geselecteerd", vbInformation, "Mailing" 

    GoTo Einde 

End If 

If MsgBox("Er worden " & MailCount & " mails verstuurd." & vbLf & vbLf & "Doorgaan?", vbYesNo, "Mailing") = vbNo Then GoTo Einde 

objEmail.BCC = strBCC 

objEmail.Display 

Einde: 

Set objOutlook = Nothing 

Set objEmail = Nothing 

Set oOutlookAccount = Nothing 

Set rs = Nothing 

End Sub

Nog eenvoudiger is om Outlook Automation weg te laten en te vervangen door 1 regel:
DoCmd.SendObject

Beste xps-350 en Tom van Stiphout,

Oeps,...... dit gaat mij dus helaas nèt iets te ver. Het maken van tabellen, query's, formulieren en rapporten lukt mij wel, maar werken met VBA en het maken van Macro's is mij nog onbekend. Ik ben pas 76 jaar (!) en moet nog een hoop leren.

Ik had gehoopt dat een van jullie mij met het maken van een (simpele?) Macro op weg zouden kunnen helpen. Die zou ik dan met een knop op een formulier moeten kunnen activeren.

Aart

Unfortunately, its not a simple macro. To automate this requires a loop and a loop requires VBA. But if you give us the exact name of the query and the exact name of the e-mail address field, we can probably come up with the VBA module to do it.

Hi Scottgem,

Thank you for willing to help me.

The query name is:

Mailinglijst rooster

The field name is:

E-mailadres 1

And please tell me how/where to save the VBA and how to implement it in a button in the mainmenu.

Aart Korstjens

(from the Netherlands)