Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


etik
etape 2 event capture
Code:
  1. Private WithEvents olInboxItems As Items 
  3. Private Sub Application_Startup() 
  4.   Dim objNS As NameSpace 
  5.   Set objNS = Application.GetNamespace("MAPI") 
  6.   Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items 
  7.   Set objNS = Nothing 
  8. End Sub 
  10. Private Sub olInboxItems_ItemAdd(ByVal Item As Object) 
  11.   On Error Resume Next 
  12.   ' SEND MSG BACK 
  13. End Sub
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?