¿Cómo puedo configurar Outlook 2010 para eliminar automáticamente las reuniones canceladas?

Outlook 2010 tiene una única opción para aceptar automáticamente las convocatorias de reunión y eliminar las reuniones canceladas en: Archivo-> Opciones-> Calendario-> Programación de recursos

Bajo esta opción, las solicitudes de reunión se aceptan automáticamente. No quiero esto Quiero hacer lo siguiente:

• Eliminar reuniones canceladas del calendario
• Eliminar cancelado: ... correos electrónicos de reuniones de mi bandeja de entrada
• No hagas nada con las convocatorias de reunión

es posible?

Me encontré la respuesta buscando en la pregunta exacta que pedían.

Deberá crear una macro con el siguiente código fuente (cambie el nombre del buzón a su propio nombre):

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

Cita de la página:

Esta macro buscará en un calendario de recursos y eliminará elementos con "Cancelado:" en el asunto. También debe tener los permisos adecuados en el buzón de recursos para que esto funcione. Esta macro eliminará las reuniones canceladas eliminará tanto la reserva directa como las reuniones aceptadas automáticamente.