2 Methods to Batch Open All Today’s Meetings in Your Outlook

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.

Batch Open All Today's Meetings in Your Outlook

Method 1:Batch Open after Instant Search

  1. At first, in Outlook, access to calendar pane.
  2. Then, press “Ctrl + E” to enable instant search.
  3. Next, shift to “Search” tab and click “All Calendar Items” in the “Scope” group.Search All Calendar Items
  4. After that, copy “meetingstatus:organized OR accepted OR not responded” in the search box.Search Meetings
  5. Subsequently, click “More” and select “Start” from the drop down list.
  6. Later, in the new search field of “Start”, choose “Today”.Search Today's Meetings
  7. Afterwards, only the today’s meetings are listed in the search results.
  8. Now, you can press “Ctrl + A” to select all of them.
  9. Ultimately, press “Enter” key button, which will open the selected meetings in bulk.Press "Enter" to Open All Today's Meetings

Method 2: Batch Open with Outlook VBA

  1. In the first place, access VBA editor by following the steps shown in “How to Run VBA Code in Your Outlook“.
  2. 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
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
        End If
    'Process all subfolders recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call LoopCalendars(objSubCalendar)
    End If
End Sub

VBA Code - Batch Open All Today's Meetings

  1. After that, click in the first subroutine.
  2. Finally, hit “F5” key button.
  3. When macro completes, all today’s meetings in your Outlook must have been opened.Open Today's Meetings via VBA

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.

Author Introduction:

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

Comments are closed.