Why email not being sent

Private Sub chkbxSampleShipped_AfterUpdate()

   If Me.chkbxSampleShipped = True Then
   
Dim varName As Variant
Dim varCC As Variant
Dim varSubject As Variant

    varName = "somebody@somewhere.com"
    varCC = "somebodyelse@somewhere.com"

    varSubject = "The sample has been shipped for part # - " & [txtPartN] & ""

    DoCmd.SendObject , , , varName, varCC, , varSubject, varBody, True, False
   
    MsgBox "The samples shipped notification has been emailed to Bill and Bob."

    End If

End Sub

Select allOpen in new window