Outlookのすべての無料または暫定カレンダーアイテムからリマインダーをバッチ削除する2つの方法

今すぐ共有:

「無料」または「暫定」と表示されているカレンダーアイテムについては、リマインダーを削除することをお勧めします。 さて、この記事では、まとめて入手できる2つの方法を紹介します。

おそらく、すべてのカレンダーアイテムにデフォルトのリマインダー時間を設定しました。 この場合、忙しい、不在の、無料または暫定的なアイテムに関係なく、常にリマインダーが有効になります。 ただし、通常、無料の暫定的なアイテムは実際にはリマインダーを必要としません。 したがって、そのようなアイテムからリマインダーをバッチ削除する必要があります。 それで、ここで私たちはあなたにそれを一度に実現するための2つの手段を教えます。

方法1:XNUMXつのカレンダーで手動でバッチ削除

  1. まず、カレンダーを開きます。
  2. 次に、「表示」タブに移動し、「表示の変更」>「リスト」をクリックします。リストビューに変更
  3. 次に、「表示設定」ボタンをクリックします。
  4. ポップアップダイアログボックスで、「グループ化」ボタンを押します。
  5. その後、別の新しいダイアログで、「アイテムのグループ化」で「リマインダー」を選択し、「OK」をクリックします。リマインダーによるアイテムのグループ化
  6. 後で、「列」ボタンをクリックします。
  7. 「列の表示」ダイアログで、「時間として表示」列を追加し、「OK」をクリックします。「表示時間」列を追加
  8. 続いて「OK」をクリックし、表示設定を保存します。
  9. カレンダーアイテムリストで、「リマインダー:はい」グループのすべての無料/暫定アイテムを見つけて選択します。
  10. 最後に、それらを「リマインダー:いいえ」グループにドラッグアンドドロップします。選択したアイテムを「リマインダー:いいえ」グループにドラッグアンドドロップします

方法2:VBAを使用してすべてのカレンダーでバッチ削除

  1. まず、「Alt + F11」を押して、VBAエディターをトリガーします。
  2. 次に、以下のVBAコードをモジュールにコピーします。
Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

VBAコード-すべての無料または暫定カレンダーアイテムからリマインダーをバッチ削除

  1. その後、カーソルを最初のサブルーチンに移動します。
  2. 最後に「F5」キーを押します。
  3. 一度に、無料または暫定的なカレンダーアイテムのすべてのリマインダーが削除されます。すべての無料/暫定カレンダーアイテムにはリマインダーがありません

不穏な見通しのトラブルに対処する

PSTファイルの損傷、ウイルス感染、偶発的なアイテムの削除など、Outlookでさまざまな問題が発生することはよくあることです。時間内に効果的に対処するには、信頼性を維持することをお勧めします。 PST修復 近くのツール、 DataNumen Outlook Repair。 それは迷惑なOutlookデータの損失からあなたを救うことができます。

著者紹介:

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修復する と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有:

コメントは締め切りました。