Send email for all records in an Access table : Email « Outlook « VBA / Excel / Access / Word

Send email for all records in an Access table

Sub ControlOutlook()
    Dim objOutlook As New Outlook.Application
    Dim objEmail As Outlook.MailItem
    Dim strLtrContent As String
    Dim rsContacts As New ADODB.Recordset
    rsContacts.ActiveConnection = CurrentProject.Connection
    rsContacts.Open "tblContacts"
    Do While Not rsContacts.EOF
       strLtrContent = "Dear " & rsContacts("FirstName") & " "
       strLtrContent = strLtrContent & rsContacts("LastName") & ":" 
       Set objEmail = objOutlook.CreateItem(olMailItem)
       objEmail.Recipients.Add rsContacts("Email")
       objEmail.Subject = "Our address has changed."
       objEmail.Body = strLtrContent
End Sub


Related examples in the same category

1.Send email by Using POP3
2.Display the information in a list of mails
3.Searching for Items
4.Adds an addressee, a subject, and body text; applies the HTML format; sets the importance to high; and sends the message:
5.Sending a Message
6.Send a table through email
7.Using the CreateItem Method to Create Default Items
8.Send out an email by using the DoCmd.SendObject