Supprimer un message
etik
c'est jouable...
etape 1 - nombre de msg non lu
etape 1 - nombre de msg non lu
- Public Sub MyUnreadMessages()
- Dim Inbox As Outlook.MAPIFolder
- Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
- Dim nUnreadMessages As Integer
- nUnreadMessages = CountUnreadMessagesInFolder(Inbox)
- Set Inbox = Nothing
- If nUnreadMessages > 0 Then
- ' SEND THE AUTO-REPLY
- End If
- Exit Sub
- Private Function CountUnreadMessages(oFolder As Outlook.MAPIFolder) As Integer
- Dim i As Integer
- Dim unreadMails As Integer
- For i = 1 To oFolder.Items.count
- If oFolder.Items(i).UnRead Then unreadMails = unreadMails + 1
- Next i
- CountUnreadMessages = unreadMails
- End Function