キャンセルされた会議を自動的に削除するようにOutlook 2010を設定する方法

Outlook 2010には、会議出席依頼を自動的に承諾し、キャンセルされた会議を削除するための単一のオプションがあります。ファイル->オプション->カレンダー->リソーススケジュール

このオプションでは、会議出席依頼は自動的に受け入れられます。これは欲しくない。次のことを実行したい：

• キャンセルした会議をカレンダーから削除する
• キャンセルされた削除：...受信トレイからの会議メール
• 会議出席依頼は何もしない

これは可能ですか？

私はあなたが尋ねていた正確な質問を検索することで答えを見つけました。

次のソースコードでマクロを作成する必要があります（メールボックスの名前を自分の名前に変更します）。

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

ページからの引用：

このマクロは、リソースカレンダーを検索し、件名に「キャンセル：」が含まれるアイテムを削除します。これが機能するには、リソースメールボックスに対する適切なアクセス許可も必要です。このマクロは、キャンセルされた会議を削除し、直接予約と自動承諾の両方の会議を削除します。