Discussion :

[Mymypower]

Bonjour à tous,

But de l'opération : changer la couleur d'un événement suivant un critère

Exemple : Si le nom de l'événement contient "mot", alors l'événement devra être colorié en rouge

Mes réflexions : Je pensais "scruter" tous les événements présents dans ce calendrier, puis tester la propriété "Nom".

Problèmes :

Code vba :

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

1
2
3
4
5
For Each AppointmentItem In Outlook.Application
    If AppointmentItem.Body = TD Then
        AppointmentItem.Categories = 2
    End If
Next

Ce code ne marche pas, je pensais en fait chercher dans l'application Outlook mais apparemment ce n'est pas possible.
De plus, je n'arrive pas à rechercher une chaîne de caractères dans le nom de la réunion.

Bref, je ne maîtrise pas du tout les macros Outlook, donc toute aide serait la bienvenue !

Merci d'avance !

P.S.: Je maîtrise les macros Excel, j'ai donc déjà quelques bases en VBA.

[carden752]

Bonjour,

Dans Outlook pour rechercher un objet de type calendrier, il faut passer par GetDefaultFolder(olFolderCalendar)
Essayez alors quelque chose de ce style :

Code :

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

1
2
3
4
5
For Each myAppointmentItem In Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
    If myAppointmentItem.Body = TD Then
        myAppointmentItem.Categories = 2
    End If
Next

Attention, en général, on ne déclare pas une variable avec le même nom que son type (AppointmentItem)