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

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

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

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

会議をキャンセルし、同時に予定としてコピーして貼り付けるための XNUMX つのコードを次に示します。

注: コードを有効にする前に、次の XNUMX つのオプションがオンになっていることを確認してください。

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

1. Outlook の予定表ビューにすばやく移動し、キャンセルする会議を選択します。を押します。他の + F11 Microsoft Visual Basic forApplicationsウィンドウを有効にするためのキー。

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 キーを押すと、選択した会議がキャンセルされ、キャンセルされた & 件名の新しい予定が作成されました。

会議をコピーして別の予定表の予定として貼り付けてから、会議をキャンセルする場合は、次のコードを使用します。

コード: 会議を別の予定表に予定としてコピーしてキャンセルする

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] をクリックします。