Private Function DeleteAppts() 'Declarations Dim strCurrent As String Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim objItems As Outlook.Items Dim objItem As Object Dim strStart As String Dim strEnd As String Dim strFilter As String 'put required start and end dates into strStart and strEnd respectively 'if they are constants then just set them before this 'I created textboxes for users to input the dates themselves strStart = "09/15/2016 07:00 AM" strEnd = "09/15/2016 16:00 PM" 'create a string to use to filter the outlook items strFilter = "[Start] >= " & Quote(strStart) & " And [Start] < " & Quote(strEnd) 'set the outlook objects and specify the items in the calendar using the filter Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.GetDefaultFolder(olFolderCalendar) Set objItems = objFolder.Items.Restrict(strFilter) Set objItem = objItems.GetFirst intCount = objItems.Count For i = intCount To 1 Step -1 Set objItem = objItems(i) objItem.Delete Next 'clears out outlook objects from memory Set objApp = Nothing Set objNS = Nothing Set objFolder = Nothing Set objItems = Nothing Set objItem = Nothing MsgBox "Items Deleted!" End Function Function Quote(MyText) As String Quote = Chr(34) & MyText & Chr(34) End Function
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.