Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "F_menu"
    '"""""""""""""""""""""""""""""""""""
    'condition
    '""""""""""""""""""""""""""""""""""
    If Me.Validation = "R" Then
        DoCmd.Close acForm, "F_saisie"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    
    '""""""""""""""""""""""""""""""
    ' on ouvre la requete ajout vers la table envoi et on active outlook
    '"""""""""""""""""""""""""""""
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "R_envoi", acViewNormal
    DoCmd.SetWarnings False
    DoCmd.Close acQuery, "R_envoi"
    
    DoCmd.SendObject acReport, "RESULTAT_TEST", "*.snp", "toto;", , , "Test  refusé", "Bonjour ,un test  vient d'être réalisé et refusé ,voir le détail dans le fichier joint."
    
    '"""""""""""""""""""""""
    'Après envoi réouverture du formulaire de saisie
    '"""""""""""""""""""""""
    Dim stsaisie As String
    Dim stLinkCriteria1 As String
    stsaisie = "F_saisie"
    DoCmd.OpenForm stsaisie, , , stLinkCriteria1
    
Else
    DoCmd.Close acForm, "F_saisie"
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "R_envoi", acViewNormal
    DoCmd.SetWarnings False
    DoCmd.Close acQuery, "R_envoi"
    DoCmd.OpenForm stDocName, , , stLinkCriteria