Outlook: bascule de l'état du rappel des rendez-vous sélectionnés

Commenter

Contenu du snippet

Permet d'activer/désactiver le(s) rendez-vous sélectionné(s) sans avoir besoin d'ouvrir l'(les) objet(s).
A utiliser de préférence en assignant une icône dans une barre d'outils.
J'ai modifié le code pour qu'il fonctionne en sélectionnant plusieurs éléments en même temps, et aussi lorsque l'élément est ouvert (ce qui est équivalent à le faire directement sur le checkbox control, mais bon pour certains puristes qui essayeraient et pour qui cela ne marcherait pas, j'ai préféré le faire).

Source / Exemple : 


Sub Reminder()
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim RDV As AppointmentItem
    Dim x, y As Integer
    Dim item As Object
    
    On Error Resume Next
    
    Set item = myOlApp.ActiveInspector.CurrentItem
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
    
    If TypeName(item) <> "Nothing" Then
        Set item = myOlApp.ActiveInspector.CurrentItem
        If item.Class <> olAppointment Then Exit Sub
        Set RDV = item
        y = 1
    Else
        If myOlSel.Count = 0 Then Exit Sub
        If myOlSel.item(myOlSel.Count).Class <> olAppointment Then Exit Sub
        y = myOlSel.Count
    End If
    
    For x = 1 To y
        
        If TypeName(item) = "Nothing" Then
            Set RDV = myOlSel.item(x)
        End If
        
        If RDV.ReminderSet = True Then
            RDV.ReminderSet = False
        Else
            RDV.ReminderSet = True
        End If
        
        If TypeName(item) = "Nothing" Then
            myOlSel.item(x).Close olSave
        Else
            Dim inspector As inspector
            Set inspector = RDV.GetInspector
        End If
        
    Next x

End Sub

Conclusion :


Le code est simple même si j'ai cherché un peu avant que cela fonctionne...
Je ne pense pas que cela aide beaucoup de monde, mais moi je l'utilise beaucoup car Outlook me sert à gérer mon emploi du temps.
Je pense que ce code peut être facilement modifier pour être adapté à d'autres usage.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (tomlaptop76)