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

  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 
  11. Private Function CountUnreadMessages(oFolder As Outlook.MAPIFolder) As Integer 
  12.     Dim i As Integer 
  13.     Dim unreadMails As Integer 
  14.     For i = 1 To oFolder.Items.count 
  15.         If oFolder.Items(i).UnRead Then unreadMails = unreadMails + 1 
  16.     Next i 
  17.     CountUnreadMessages = unreadMails 
  18. End Function
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?