I am trying to send an automated email from access, but nothing is being send
and I am getting no error messages.

Private Sub vac_Click()
   Dim strMessage As String 'Body of message
   Dim strSubject As String 'Email Subject
   Dim strTo As String 'To address
   Dim strCC As String 'CC Address
     
   strTo = "my email addess"
   strCC = ""
   strSubject = "vac letter - " & Me.[id#]
   
   strMessage = "If you have any questions, please contact me at
xxx-xxx-xxxx or you may respond to this email."

       DoCmd.SendObject , , , strTo, , , strSubject, strMessage, True
 
Exit_VAC_Click:
   Exit Sub

Err_VAC_Click:
   MsgBox Err.Description
   Resume Exit_VAC_Click