On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.