At times, you may want to quickly find and open all the Outlook meetings scheduled on today to check them, you can read this article. Here we’ll share you 2 methods.
Are you accustomed to having a look at today’s meetings before starting one-day work? If you have this habit, you must long for a quick and efficient solution that can permit you to open all today’s meetings in one go, instead of recognizing and opening one by one. At present, here we will teach you such 2 approaches.
Method 1：Batch Open after Instant Search
- At first, in Outlook, access to calendar pane.
- Then, press “Ctrl + E” to enable instant search.
- Next, shift to “Search” tab and click “All Calendar Items” in the “Scope” group.
- After that, copy “meetingstatus:organized OR accepted OR not responded” in the search box.
- Subsequently, click “More” and select “Start” from the drop down list.
- Later, in the new search field of “Start”, choose “Today”.
- Afterwards, only the today’s meetings are listed in the search results.
- Now, you can press “Ctrl + A” to select all of them.
- Ultimately, press “Enter” key button, which will open the selected meetings in bulk.
Method 2: Batch Open with Outlook VBA
- In the first place, access VBA editor by following the steps shown in “How to Run VBA Code in Your Outlook“.
- Then, copy the following VBA code into a module.
Sub BatchOpenAllTodayAppointmentsMeetings() Dim objStore As Outlook.Store Dim objFolder As Outlook.Folder 'Process all Outlook files For Each objStore In Application.Session.Stores For Each objFolder In objStore.GetRootFolder.Folders If objFolder.DefaultItemType = olAppointmentItem Then Call LoopCalendars(objFolder) End If Next Next End Sub Sub LoopCalendars(objCalendar As Outlook.Folder) Dim objTodayItems As Outlook.Items Dim i As Long Dim objMeeting As Outlook.AppointmentItem Dim objSubCalendar As Outlook.Folder objCalendar.Items.Sort "[Start]", True objCalendar.Items.IncludeRecurrences = True 'Find today's appointments strFilter = "[Start] <= " & Chr(34) & Format(Now, "ddddd") & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & Format(Now, "ddddd") & " 00:00 AM" & Chr(34) Set objTodayItems = objCalendar.Items.Restrict(strFilter) For i = objTodayItems.Count To 1 Step -1 'Find today's meetings If (objTodayItems(i).MeetingStatus = olMeeting) Or (InStr(LCase(objTodayItems(i).Subject), "today") > 0) Then Set objMeeting = objTodayItems(i) 'Open it objMeeting.Display End If Next 'Process all subfolders recursively If objCalendar.Folders.Count > 0 Then For Each objSubCalendar In objCalendar.Folders Call LoopCalendars(objSubCalendar) Next End If End Sub
- After that, click in the first subroutine.
- Finally, hit “F5” key button.
- When macro completes, all today’s meetings in your Outlook must have been opened.
Watch out for All Risks Surrounding Your Outlook
Due to Outlook’s vulnerability, everyone should look out for all the potential risks around Outlook, such as unknown email, embedded links, etc. Moreover, making regular PST data backups is a matter of necessity. It can assist you to escape from the arduous task of Outlook repair in the event of Outlook damage. Last but not least, you need to prepare a robust external PST fix tool, say DataNumen Outlook Repair. It will definitely come in handy one day, such as in case of backup failures.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql recovery and outlook repair software products. For more information visit www.datanumen.com