[OL-2003] Ajouter un champs d'affichage sur Outlook

[FCL31]

Bonjours à tous

J'ai ajouté un champs d'affichage sur mon Outlook (Voir pièce joint)

Par le biais un code, je renseigne le champ "Catégorie" qui est a coté :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Objet_Mail()
 
    Dim Exp As Explorer
    Dim Sel As Selection
    Dim Itm As MailItem
 
 
    Set Exp = ActiveExplorer
    Set Sel = Exp.Selection
 
    For Each Itm In Sel
        Itm.Categories = "CN FR"
 
        Itm.Save
 
 
    Next Itm
 
        Set Itm = Nothing
        Set Sel = Nothing
        Set Exp = Nothing
 
End Sub

Et j'aimerais pouvoir renseigner le champs "TEST" un peu de la même façon

Merci de votre aide