Automate sending an email from Outlook based on Access Query

[The Duke]

I'm trying to automate sending an email out of Access based on a query. I would like to automatically create an email for each line item in the query. Each email would have the same prewritten text, but be updated with the values from the query.

here is the VB code to send the email.
I want to be able to send an email for each line item on a query. Each line item will have its own email address and specific values for the body of the email. Any ideas on how to automate sending emails for each line item of the query would be great.

Option Compare Database
Option Explicit

Sub sbSendMessage(Optional AttachmentPath)
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment
   
   On Error GoTo ErrorMsgs
      
   ' Create the Outlook session.
   Set objOutlook = CreateObject("Outlook.Application")
   ' Create the message.
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   With objOutlookMsg
      ' Add the To recipient(s) to the message. Substitute
      ' your names here.
     Set objOutlookRecip = .Recipients.Add("Name of recipient")
      objOutlookRecip.Type = olTo
      ' Add the CC recipient(s) to the message.
      'Set objOutlookRecip = .Recipients.Add("Name of recipient")

      objOutlookRecip.Type = olCC
      ' Set the Subject, Body, and Importance of the message.
      .Subject = "This is an Automation test with Microsoft Outlook"
      .Body = "Body Text." & vbCrLf & vbCrLf
      .Importance = olImportanceHigh  'High importance
      
      ' Add attachments to the message.
      If Not IsMissing(AttachmentPath) Then
         Set objOutlookAttach = .Attachments.Add(AttachmentPath)
      End If
      ' Resolve each Recipient's name.
      For Each objOutlookRecip In .Recipients
         If Not objOutlookRecip.Resolve Then
            objOutlookMsg.Display
         End If
      Next
      .Send
   End With
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
   Set objOutlookRecip = Nothing
   Set objOutlookAttach = Nothing
   
   Exit Sub
   
ErrorMsgs:
   If Err.Number = "287" Then
      MsgBox "You clicked No to the Outlook security warning. " & _
      "Rerun the procedure and click Yes to access e-mail " & _
      "addresses to send your message. For more information, " & _
      "see the document at http://www.microsoft.com/office" & _
      "/previous/outlook/downloads/security.asp. "
   Else
      MsgBox Err.Number & " " & Err.Description
   End If
End Sub