mail versturen wanneer selectievakje is aangeduid

[jo geuens]

Hallo ik wil een mail versturen wanneer het selectievakje in het formulier is aangevinkt hou doe ik dit ?

dit heb ik al eens geprobeerd maar werkt niet wannneer het selectie vakje niet is aangeduid moet het form. gesaved en gesloten worden .

Private Sub Command52_Click()
If Me.mail1 = "True" Then

Dim OutApp As Object
    Dim OutMail As Object
    
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    strbody = DLookup("[aanvrager ]", "Gebruikers", "[ID]= " & Nz([aanvrager], 0)) & " heeft een nieuwe aanvraag ingediend." & vbNewLine & vbNewLine & _
        "Aanvraag nummer " & Me.ID & vbNewLine & _
        "  Taak: " & DLookup("[Taak ]", "Taak", "[ID]= " & Nz([Taak], 0)) & vbNewLine & _
        "  Omschrijving : " & DLookup("[Taak ]", "Taak", "[ID]= " & Nz([Taak], 0)) & vbNewLine & _
        " Opmerking :" & Me.Opmerking & vbNewLine & _
        "Groeten,"
    On Error Resume Next
    With OutMail
        .To = Me.Mail
        .CC =""
        .BCC = ""
        .Subject = "Aanvraag nummer " & Me.ID
        .Body = strbody

        .Display
    End With
      On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
 
 ElseIf Me.mail1 = "No" Then
End If


    DoCmd.Save
DoCmd.Close
    
    
End Sub

na wat zelf zoeken toch weer gevonden toch bedankt