Bonjour,
Est-ce que ça va marche dans l'Évènement QuerySave ?
Dim uiwks As New notesuiworkspace
Dim session As New notessession
Dim db As notesdatabase
Dim uicurdoc As notesuidocument
Set uicurdoc=uiwks.currentdocument
If uidoc.EditMode Then
sendmail();
End If
une idée ??
Cordialement