Outlook: 会議の主催者としてカレンダーにキャンセルした会議を保持する方法は？

Author: Sun Last Modified: 2025-05-23

Outlookでは、会議の主催者として、会議をキャンセルすると、その会議は自動的にカレンダーから削除されます。場合によっては、キャンセルされた会議をカレンダーに残しておき、いくつかのマークを行いたい場合があります。しかし、Outlookにはこの作業を処理できる組み込み機能はありません。このチュートリアルでは、会議をキャンセルしながら予定として保持するための2つのVBAコードを提供します。

キャンセルされた会議を予定としてコピーするためのVBAコード

キャンセルされた会議を予定としてコピーするためのVBAコード

ここでは、会議をキャンセルし、同時に予定としてコピー＆ペーストするための2つのコードを紹介します。

注意：コードを有効にする前に、次の2つのオプションがチェックされていることを確認してください：

Outlookを有効にし、[ファイル] > [オプション] をクリックします。Outlookオプションウィンドウで、 [トラストセンター] タブをクリックし、[トラストセンターの設定] をクリックします。トラストセンターウィンドウで、 [マクロの設定] タブをクリックし、 [すべてのマクロを有効にする（推奨されません。潜在的に危険なコードが実行される可能性があります）] と [インストールされているアドインにマクロのセキュリティ設定を適用する] オプションをチェックします。[OK] > [OK] をクリックしてウィンドウを閉じます。Outlookを再起動 します。

1. Outlookのカレンダービューに切り替え、キャンセルしたい会議を選択します。Alt + F11 キーを押して、Microsoft Visual Basic for Applicationsウィンドウを有効にします。

2. 挿入 > モジュール をクリックして新しい空白モジュールを挿入します。その後、以下のコードをコピーして貼り付けます。

コード：会議を予定としてコピーし、キャンセルする

Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

3. [実行 ] ボタンをクリックするか、F5 キーを押します。これで選択された会議はキャンセルされ、「Cancled & subjet」という名前の新しい予定が作成されます。

別のカレンダーに会議を予定としてコピー＆ペーストしてから会議をキャンセルしたい場合は、以下のコードを使用してください：

コード：別のカレンダーに会議を予定としてコピーし、キャンセルする

Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
  MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
  Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move xDestCalendar
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

[実行 ] ボタンをクリックするか、F5 キーを押すと、[フォルダの選択] ダイアログが表示され、予定を貼り付けるカレンダーフォルダを選択できます。次に、[OK] をクリックします。