OUTLOOK: BASCULE DE L'ÉTAT DU RAPPEL DES RENDEZ-VOUS SÉLECTIONNÉS

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

30 octobre 2007 19:59:40 :

Correctio d une erreur de frappe dans le titre

30 octobre 2007 20:00:53 :

Correction d une erreur de frappe dans le titre

31 octobre 2007 18:55:46 :

Modification du code