Discussion :

[Dailyplanet]

Bonjour,

J'ai ce code (merci oliv') qui accepte automatiquement les "Demandes de réunion".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub STOPaccepte_reunion(myMtgReq As Outlook.MeetingItem)
'by oliv' 2008
Dim StrID, olNS
StrID = myMtgReq.EntryID
Set olNS = Application.GetNamespace("MAPI")
Dim LaDemandeDeReunion
Set LaDemandeDeReunion = olNS.GetItemFromID(StrID)
 
'MsgBox myMtgReq.Subject
    If TypeName(myMtgReq) <> "Nothing" Then
 
    Dim myAppt As Outlook.AppointmentItem
    Dim myMtg As Outlook.MeetingItem
 
        Set myAppt = LaDemandeDeReunion.GetAssociatedAppointment(True)
        Set myMtg = myAppt.Respond(olResponseAccepted, True)
        myMtg.Send
        LaDemandeDeReunion.Delete
    End If
End Sub

Jai aussi fait la règle suivante en sélectionnant:
- sur cet ordinateur uniquement
- qui est une mise à jour ou une invitation à une réunion
- de personnes ou liste de distribution (ici j'ai mentionné la compte)
puis exécuter le script "projet1STOPaccepte_reunion".

Le problème :
Le système ajoute par défaut une heure de rappel à la demande de réunion, malgré le fait que je les envoie sans rappel.

Comment supprimer cette heure de rappel automatiquement à l'exécution du script.

Dailyplanet

[Dailyplanet]

...Le système ajoute par défaut une heure de rappel à la demande de réunion, malgré le fait que je les envoie sans rappel.

Comment supprimer cette heure de rappel automatiquement à l'exécution du script....

J'ai trouvé le code suivant qui désactive le rappel (merci à tomlaptop76):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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

Quel partie de ce code puis-je ajouter au mien pour désactiver définitivement les rappels lors de l'arrivée d'une demande de réunion d'un groupe d'utilisateur précis.

Dailyplanet