Supprimer un message
etik
etape 2 event capture
- Private WithEvents olInboxItems As Items
- Private Sub Application_Startup()
- Dim objNS As NameSpace
- Set objNS = Application.GetNamespace("MAPI")
- Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
- Set objNS = Nothing
- End Sub
- Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
- On Error Resume Next
- ' SEND MSG BACK
- End Sub