Discussion :

[Riri80]

Bonjour,

je recherche le moyen d'ajouter / éditer une propriété personnalisée à mes dossiers Outlook via VBA.
En m'inspirant fortement du web, j'ai testé le code ci-dessous :

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
 
Sub AddStatusProperties()
 
 Dim objNamespace As NameSpace
 Dim objFolder As Folder
 Dim objProperties As UserDefinedProperties
 Dim objProperty As UserDefinedProperty
 
 Set objNamespace = Application.GetNamespace("MAPI")
 Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
 
 Set objProperties = objFolder.UserDefinedProperties
 Set objProperty = objProperties.Add("Test", olText)
 objProperty.Value = "test"
 
End Sub

Chez moi, c'est au niveau de l'affectation que j'ai un soucis.
La propriété "Test" est bien créée mais j'ai n'est pas accès à la commande ".Value". (Propriété ou méthode non gérée par cet objet)

Comment puis-je lire/écrire une valeur à ma propriété personnalisée ?

Merci d'avance.

[Oliv-]

Effectivement la propriété n'existe pas

essaye de faire des recherches avec "propertyAccessor.SetProperty"

[Riri80]

Merci pour ton retour Oliv.

J'ai fais quelques recherche sur propertyAccessor.SetProperty mais infructueuse pour le moment.
Je me suis placé dans le cadre d'un mail même si mon besoin concerne les dossiers Outlook.
Je ne comprends pas ce que fait la méthode car je ne vois pas de changement dans l'objet oMail et l'histoire des schémas est ténébreuse pour moi...

Quelqu'un aurait un exemple concret pour ajouter une propriété personnalisée à un dossier Outlook + lire/écrire cette propriété ?

Merci