Comment puis-je configurer Outlook 2010 pour supprimer automatiquement les réunions annulées

Outlook 2010 a une seule option pour accepter automatiquement les demandes de réunion et supprimer les réunions annulées sous: Fichier-> Options-> Calendrier-> Planification des ressources

Avec cette option, les demandes de réunion sont automatiquement acceptées. Je ne veux pas ça. Je veux faire ce qui suit:

• Supprimer les réunions annulées du calendrier
• Supprimer annulé: ... réunion des e-mails de ma boîte de réception
• Ne faites rien avec les demandes de réunion

Est-ce possible?

J'ai trouvé la réponse en recherchant la question exacte que vous posiez.

Vous devrez créer une macro avec le code source suivant (changez le nom de la boîte aux lettres en votre propre):

Set olResCalendar = OpenMAPIFolder("\MailboxName\Calendar")
Sub RemoveCanceledAppointments()

Dim olResCalendar As Outlook.MAPIFolder, olApptItem As Outlook.AppointmentItem, intCounter As Integer

'Change the path to the resource calendar on the next line
Set olResCalendar = OpenMAPIFolder("\MailboxName\Calendar")

For intCounter = olResCalendar.Items.Count To 1 Step -1
Set olApptItem = olResCalendar.Items(intCounter)
    If Left(olApptItem.Subject, 9) = "Canceled:" Then
    olApptItem.Delete
    End If
Next
Set olApptItem = Nothing
Set olResCalendar = Nothing
End Sub

Function OpenMAPIFolder(szPath)
Dim app, ns, flr, szDir, i
Set flr = Nothing
Set app = CreateObject("Outlook.Application")
    If Left(szPath, Len("\")) = "\" Then
    szPath = Mid(szPath, Len("\") + 1)
    Else
    Set flr = app.ActiveExplorer.CurrentFolder
    End If

While szPath <> ""
i = InStr(szPath, "\")
    If i Then
    szDir = Left(szPath, i - 1)
    szPath = Mid(szPath, i + Len("\"))
    Else
    szDir = szPath
    szPath = ""
    End If
    If IsNothing(flr) Then
    Set ns = app.GetNamespace("MAPI")
    Set flr = ns.Folders(szDir)
    Else
    Set flr = flr.Folders(szDir)
    End If
    Wend
Set OpenMAPIFolder = flr
End Function

Function IsNothing(Obj)
If TypeName(Obj) = "Nothing" Then
    IsNothing = True
Else
    IsNothing = False
End If
End Function

Citation de la page:

Cette macro recherchera un calendrier de ressources et supprimera les éléments avec "Annulé:" dans le sujet. Vous devez également disposer des autorisations appropriées sur la boîte aux lettres de ressources pour que cela fonctionne. Cette macro supprimera les réunions annulées supprimera à la fois la réservation directe et les réunions acceptées automatiquement.