Access 2010 - Send email based on date field (1 Viewer)

UPDATE NewCustomerDetails SET NewCustomerDetails.Follow_Up_Email_Sent = True
WHERE (((NewCustomerDetails.[B][COLOR="Red"]YourDateField[/COLOR][/B])=[COLOR="red"]Date()[/COLOR]));

Private Sub btn_Send_Click()
   Dim asSQL As String
   Dim rs As DAO.Recordset
   Dim afError As Byte
   Dim asError As String
   Dim asEmail As String
   Dim asSep As String
   Dim asClass As String
      
   
   'Begin going through the students by class, matching selected class.
   asEmail = ""
   asSep = ""
   asSQL = "SELECT EmailAddress FROM Q_CustomersToEmail"
   Set rs = CurrentDb.OpenRecordset(asSQL)
   
   'Check to see if the recordset actually contains rows
   If Not (rs.EOF And rs.BOF) Then
       rs.MoveFirst 'Unnecessary in this case, but still a good habit
       Do Until rs.EOF = True 
         asEmail = asEmail & asSep & rs("EmailAddress") 
         asSep = “; “
          'Move to the next record. Don't ever forget to do this.
          rs.MoveNext
       Loop
   Else
       MsgBox "There are no customers who need to be Emailed"
   End If
   
   'MsgBox "Emailng to " & asEmail
   
   Send_Email (asEmail)

   rs.Close 'Close the recordset
   Set rs = Nothing 'Clean up
End Sub

Private Sub Send_Email(pvMailAddress As Variant)

    Dim EmailApp As Outlook.Application
    Dim NameSpace As Outlook.NameSpace
    Dim Folder As Outlook.Folder
    Dim EmailSend As Outlook.MailItem
          
    'MsgBox "Sending EMail to " & pvMailAddress
        
    'create email
    Set EmailApp = New Outlook.Application
    Set NameSpace = EmailApp.GetNamespace("MAPI")
    Set Folder = NameSpace.GetDefaultFolder(olFolderInbox)
    Set EmailSend = Folder.Items.Add(olMailItem)
    
    With EmailSend
        .To = pvMailAddress
        ‘.BCC = pvMailAddress – If you wanted to send as a blind CC instead.
        .Subject = <<YOUR SUBJECT HERE>>
        .HTMLBody = <<YOUR BODY HERE>>
        End If
        .Display  ‘SHOWS what the Email will look like – for testing.
        '.Send  ' Uncomment when this is working the way you want.
    End With
End Sub