Discussion :

[metramo]

Bonjour,

En utilisant VBA, je classe des emails dans des folders. A un moment, tout ce qui a a faire avec le folder est terminé.

Je voudrais, par vba, changer l'aspect du folder quand il n'y a plus rien a faire: changer de couleur, le griser ou autre chose.

J'ai decouvert les procedres getCurstmicon et setCustomicon ainsi sur l stdPicture, mais je n'arrive pas a les utiliser pour changer l'aspect.

Lideals serait de les mettre en vert quand c'est termin, bleu quand c'est un cours, rouge quand c'est en retard

[Oliv-]

Bonjour,
Intéressant cette découverte, du coup j'ai cherché et voici comment faire :


Il te faut une icone (*.ico) de taille maxi 32x32 tu peux en trouver comme cela

via google avec cette requete

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test_27102014()
Dim myPic As IPictureDisp
Set myPic = LoadPicture("d:\Document\Mes documents\Mes images\Mario.ico")
 
Dim MonOutlook As New Outlook.Application
Dim CeDossier As Outlook.Folder
 
Set CeDossier = MonOutlook.ActiveExplorer.CurrentFolder
CeDossier.SetCustomIcon myPic
End Sub

Par contre cela ne reste pas après fermeture de Outlook, donc tu dois l'initialiser à chaque ouverture.