tombalfoort
Gebruiker
- Lid geworden
- 25 sep 2006
- Berichten
- 386
Hallo,
Ik ben op zoek naar een manier om meetings van bepaalde personen automatisch te accepteren. Deze moeten namelijk altijd in de agenda komen. Nu heb ik op internet gezocht en een VBA script gevonden maar dat werkt niet.
Dit is het script:
Ik hem het script ondertekend met
C:\Program Files (x86)\Microsoft Office\Office14\SELFCERT
Daarna in de Visual Basic for Applications dmv Tools menu het 'script' ondertekend met het certificaat. Het script staat in "Project1 (VbaProject.OTM > Microsoft Outlook Object > ThisOutlookSessions)".
Daarna maak ik een rule aan maar er gebeurd niks. Ik krijg een melding met de vraag of ik de macro wil accepteren/vertrouwen dat vertrouw ik natuurlijk. Daarna zie ik dat de rule wordt uitgevoerd maar de meetings blijven ongewijzigd.
Ik krijg rond de 65 meetings per dag en automatiseren scheelt een hoop klik werk.
Ik ben op zoek naar een manier om meetings van bepaalde personen automatisch te accepteren. Deze moeten namelijk altijd in de agenda komen. Nu heb ik op internet gezocht en een VBA script gevonden maar dat werkt niet.
Dit is het script:
Code:
Sub AutoAcceptMeetings(oRequest As MeetingItem)
If oRequest.MessageClass = "IPM.Schedule.Meeting.Request" Then
Dim oAppt As AppointmentItem
Set oAppt = oRequest.GetAssociatedAppointment(True)
Dim oResponse
Set oResponse = oAppt.Respond(olMeetingAccepted, True)
oResponse.Display
End If
End Sub
Ik hem het script ondertekend met
C:\Program Files (x86)\Microsoft Office\Office14\SELFCERT
Daarna in de Visual Basic for Applications dmv Tools menu het 'script' ondertekend met het certificaat. Het script staat in "Project1 (VbaProject.OTM > Microsoft Outlook Object > ThisOutlookSessions)".
Daarna maak ik een rule aan maar er gebeurd niks. Ik krijg een melding met de vraag of ik de macro wil accepteren/vertrouwen dat vertrouw ik natuurlijk. Daarna zie ik dat de rule wordt uitgevoerd maar de meetings blijven ongewijzigd.
Ik krijg rond de 65 meetings per dag en automatiseren scheelt een hoop klik werk.