Allo Ken
Thank you very much, that's what I wanted
Public WithEvents MyContactItem As Outlook.ContactItem
Public WithEvents MyTaskItem As Outlook.TaskItem
Public WithEvents MyAppointmentItem As Outlook.AppointmentItem
et l'évennement c'est BeforeDelete()
Private Sub MyAppointmentItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
End Sub
Private Sub MyContactItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
End Sub
Private Sub myMailItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
End Sub
Private Sub MyTaskItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
End Sub
a+ Eddy Maue
Il se trouve que Ken Slovak - [MVP - Outlook] a formulé :