Delete Event

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é :
> The Delete event fires after the item has been deleted. The BeforeDelete
> event only fires if the item is opened and deleted from the File menu.
>
> If you are using Outlook 2007 you can get the BeforeItemMove event and if the
> target folder is null you know the item will be deleted. However, that event
> is only available in Outlook 2007 or later.
>
> --
> Ken Slovak
> [MVP - Outlook]
> http://www.slovaktech.com
> Author: Professional Programming Outlook 2007.
> Reminder Manager, Extended Reminders, Attachment Options.
> http://www.slovaktech.com/products.htm
>
>
> "eddymaue" <eddymaue_retirer_ DeleteThis @hotmail.com> wrote in message
> news:%23ZklVxLDKHA.4608@TK2MSFTNGP02.phx.gbl...
>> Allo
>>
>> it is possible to intercept events
>> Delete in Contact, Task and Calendar before the item is deleted
>>
>> Tanks
>>
>> @+ Eddy
>>
>>