Discussion :

[Superpat9999]

Bonjour,
Je souhaite, dans ma boite de réception, ouvrir un message dont on connaît l'objet.
D'avance merci de votre aide.

[Oliv-]

Bonjour,
à l'aide d'un programme /macro ?

l'objet exact ou une partie de l'objet ?

A quel moment ?

[Superpat9999]

Par une macro à l’aide d’un bouton ajouté sur le ruban, intitulé exact

[Oliv-]

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
 
Sub FINDItems()
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myRestrictItems As Outlook.Items
    Dim myItem As Outlook.MailItem
 
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = _
    myNamespace.GetDefaultFolder(olFolderInbox)
    Set myItems = myFolder.Items
    Set myRestrictItems = myItems.Restrict("[Subject] = '#123#PDF'")
    For i = myRestrictItems.Count To 1 Step -1
        myRestrictItems(i).Display
    Next
End Sub

[Superpat9999]

Merci beaucoup Oliv-, c'est exactement cela.

Un petit plus svp
Je souhaiterais que l'objet du message soit dans une variable

Code :

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

    Dim MyEmail ='tournoi de vendredi'

Je n'arrive pas à modifier la ligne avec la variable MyEmail

Code :

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

    Set myRestrictItems = myItems.Restrict("[Subject] = 'tournoi de vendredi'")

J'ai trouvé

Code :

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

    Set myRestrictItems = myItems.Restrict("[Subject] = " & MyEmail)

Encore merci et bonne soirée