Code:
Public Sub EmailTemplates()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim MailRecipents As String
    Dim MailRecipents1 As String
    Dim MailRecipents2 As String
    Dim objOutlook
    Dim objEmail
    Dim BodyEmail As String
    Dim Department As String
    Dim SubjectLine As String
    Dim Frm As New Access.Form
  BodyEmail = " Kindly find
...