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






  1. VBA / Excel / Access / Word
  2. Outlook
  3. Email

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
       objEmail.Send
       rsContacts.MoveNext
    Loop
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