Discussion :

[hedidev1]

Bonjour,

je cherche a verifier si un email est ouvert afin d'effectuer des actions seulement sur les mails ouverts.

Merci

Hedi

[Oliv-]

Bonjour,
Voici comment parcourir les Emails OUVERTS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Sub Parcourir_Email_Ouverts()
'---------------------------------------------------------------------------------------
' Procedure : Parcourir_Email_Ouverts
' Author    : oliv
' Date      : 09/07/2015
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim myInspectors As Outlook.Inspectors
    Dim x As Integer
    Dim iCount As Integer
    Dim MyEmail As Outlook.MailItem
 
    Set myInspectors = Application.Inspectors
    iCount = Application.Inspectors.Count
    If iCount > 0 Then
        For x = 1 To iCount
            If myInspectors.item(x).CurrentItem.Class = olMail Then
                MsgBox myInspectors.item(x).Caption
                'ICI ON FAIT QUELQUE CHOSE AVEC LE MAIL
                Set MyEmail = myInspectors.item(x).CurrentItem
 
            End If
        Next x
    Else
        MsgBox "No inspector windows are open."
    End If
End Sub

[hedidev1]

Merci beaucoup Oliv' !

Je test de suite.

[hedidev1]

J'ai juste la boite outlook ouvert sur boite de reception, il renvoie la class oMail pour cet item. J'ouvre un mail en plus et il renvoie la class oMail pour les 2 items

[Oliv-]

Quelle version de OL ?

Essaye en fermant puis relançant OL

[hedidev1]

J'ai réouvert et ca marche !

Merci a toi Oliv'