Outlook modifier automatiquement rappel basé sur la catégorie

Question

J'ai besoin d'automatiser Outlook de sorte que lorsqu'un utilisateur définit une certaine catégorie sur un rendez-vous, il définit automatiquement l'heure de rappel en fonction de la catégorie. Par exemple, l'utilisateur a une catégorie "Réunion sur site" et une catégorie "Réunion hors site". Il souhaite que l'heure de rappel passe automatiquement à 15 minutes pour une réunion sur site et à 30 minutes pour une réunion hors site. Il comprend que s'il met mal la catégorie ou applique les deux catégories, le temps ne changera pas correctement.

Est-il possible de faire cela, et si oui, comment puis-je faire? J'imagine qu'il y a un événement que je peux attraper et gérer quand une catégorie de rendez-vous est changée.

Merci

EDIT: Les demandes de rendez-vous sont reçues par courrier électronique, il définit les catégories quand il accepte la demande de réunion. L'heure de rappel doit être définie chaque fois que la catégorie change. Comment se connecter à l'événement est la partie que je n'arrive pas à trouver.

Answer 1

Quand exactement le changement d'heure de rappel est-il supposé se produire? Lors de la composition initiale de la réunion? Chaque fois que les catégories sont modifiées?

(par exemple, si l'utilisateur a déjà défini une valeur pour le rappel, puis a changé la catégorie, serait le changement de rappel?)

Quoi qu'il en soit, je pense que la solution est de brancher à certains événements qui se produisent dans Outlook et définissez ces valeurs en fonction de votre logique. Mais tant que les questions ci-dessus ne sont pas résolues, les événements auxquels vous devrez vous atteler ne sont pas clairs.

Answer 2

Vous voulez ItemAdd et itemChange

http://msdn.microsoft.com/en-us/library/office/ff869609(v=office.14).aspx

http://msdn.microsoft.com/en-us/library/office/ff865866(v=office.14).aspx

Quelque chose comme ceci:

Public Sub Application_Startup() 
    Set objCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items 
End Sub 

Private Sub objCalendar_ItemAdd(ByVal Item As Object) 
    setReminder Item 
End Sub 

Private Sub objCalendar_ItemChange(ByVal Item As Object) 
    setReminder Item 
End Sub 

Sub setReminder(ByVal Item As Object) 
    If InStr(Item.Categories, "A") 
     ' Set the reminder time A 
     GoTo exitRoutine ' A the longer takes priority over B the shorter 
    End If 

    If InStr(Item.Categories, "B") 
     ' Set the reminder time B 
    End If 

exitRoutine: 

End Sub