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
c'est jouable...

etape 1 - nombre de msg non lu

Code:
  1. Public Sub MyUnreadMessages() 
  2.     Dim Inbox As Outlook.MAPIFolder 
  3.     Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
  4.     Dim nUnreadMessages As Integer 
  5.     nUnreadMessages = CountUnreadMessagesInFolder(Inbox) 
  6.     Set Inbox = Nothing 
  7.     If nUnreadMessages > 0 Then 
  8.        ' SEND THE AUTO-REPLY 
  9.     End If 
  10. Exit Sub 
  13. Private Function CountUnreadMessages(oFolder As Outlook.MAPIFolder) As Integer 
  14.     Dim i As Integer 
  15.     Dim unreadMails As Integer 
  16.     For i = 1 To oFolder.Items.count 
  17.         If oFolder.Items(i).UnRead Then unreadMails = unreadMails + 1 
  18.     Next i 
  19.     CountUnreadMessages = unreadMails 
  20. End Function
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?