title: Send email to every contact in a table Access VBA
body: <p>I have a column with mail addresses in a table with contacts in Access. I want to send an email to every contact in the table using a template which has signature, logo, and disclaimer. I managed to find a code for the template but I don't know how to send it to all contacts in the table. Here is my code: </p>
  
  <pre><code>Sub sendmail()
  
  Dim strEmail As String
  Dim strSubject As String
  Dim objOutlook As Object
  Dim objMailItem As Object
  
  
  Set objOutlook = CreateObject("Outlook.Application")
  Set objMailItem = objOutlook.CreateItem(olMailItem)
  Set objMailItem = objOutlook.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\Template.oft")
  
  
  
  strEmail = "mail@test.com"
  strSubject = "Test"
  objMailItem.To = strEmail
  objMailItem.Subject = strSubject
  
  
  
  objMailItem.Display
  
  
  
  End Sub
  </code></pre>
  
  <p>Any suggestions how to do it?
  Thanks</p>