Bonjour,
je cherche a verifier si un email est ouvert afin d'effectuer des actions seulement sur les mails ouverts.
Merci
Hedi
Bonjour,
je cherche a verifier si un email est ouvert afin d'effectuer des actions seulement sur les mails ouverts.
Merci
Hedi
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
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
Quelle version de OL ?
Essaye en fermant puis relançant OL
J'ai réouvert et ca marche !
Merci a toi Oliv'
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager