メインコンテンツへスキップ

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

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

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


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

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

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

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

ドキュメント カレンダー 1 でミーティングを続ける

ドキュメント カレンダー 2 でミーティングを続ける

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 でミーティングを続ける

3。 クリック ラン ボタンまたはプレス F5 キーを押すと、選択した会議がキャンセルされ、キャンセルされた & 件名の新しい予定が作成されました。

ドキュメント カレンダー 4 でミーティングを続ける

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

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

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

ドキュメント カレンダー 5 でミーティングを続ける

これで、会議がキャンセルされ、選択した予定表フォルダーに予定としてコピー アンド ペーストされました。

ドキュメント カレンダー 6 でミーティングを続ける


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations