If you need to filter meetings based on date, company name, subject etc, Outlook VBA offers Restrict method which takes filter criteria and provide calendar items as a result which you can take for further manipulation as given in below code. Where we are iterating all the appointments or calendar tasks for specific date.
Public Sub GetAllMeetings() 'Outlook application object declaration Dim oApp As Outlook.Application 'bind current outlook instance Set oApp = GetObject("", "Outlook.Application") 'Bind namespace Dim oNameSpace As Outlook.Namespace Set oNameSpace = oApp.GetNamespace("MAPI") Dim oFolder As Folder Set oFolder = oNameSpace.GetDefaultFolder(olFolderTasks) Dim oCriteria As String oCriteria = "[DueDate] > '" & Format(Now, "mm/dd/yyyy") & "'" Dim oAllItems As Items Set oAllItems = oFolder.Items.Restrict(oCriteria) Dim oAppointment As TaskItem For Each oAppointment In oAllItems If oAppointment.Class = olTask Then Debug.Print oAppointment.Subject Debug.Print oAppointment.EntryID End If Next oAppointment 'CleanUp If Not oAppointment Is Nothing Then Set oAppointment = Nothing End If If Not oAllItems Is Nothing Then Set oAllItems = Nothing End If If Not oFolder Is Nothing Then Set oFolder = Nothing End If If Not oNameSpace Is Nothing Then Set oNameSpace = Nothing End If If Not oApp Is Nothing Then Set oApp = Nothing End If End Sub
Above code we are holding all tasks in a folder object which we use to filter items based on oCriteria variable where [DueDate] >= today’s date with the help of Restrict method. Next we are iterating each item through loop and extracting various properties of each contact.