Bonjour,
J'ai ce code (merci oliv') qui accepte automatiquement les "Demandes de réunion".
Jai aussi fait la règle suivante en sélectionnant:
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
- 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![]()
Partager