Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
Sub CancApt() Dim olkFld As Outlook.Folder, _ olkLst As Outlook.Items, _ olkItemsInDateRange As Outlook.Items, _ olkApt As Outlook.AppointmentItem, _ strRestriction As String, _ intCnt As Integer, _ intIdx As Integer, _ intAnswer As String, _ daStart As Date, _ daEnd As Date 'Enter a start and end date' daStart = InputBox("Enter a start date.", "Purge Canceled Appointments Start", (DateAdd("d", -7, Date))) daEnd = InputBox("Enter an end date.", "Purge Canceled Appointments End", (DateAdd("d", 60, Date))) 'Construct a filter for the date range. strRestriction = "[Start] >= '" & daStart _ & "' AND [End] <= '" & daEnd & "'" 'Select calendar items in current folder intAnswer = MsgBox("Have you selected the calendar?", vbYesNo, "Wait") If intAnswer = vbYes Then Else GoTo EndMacro End If Set olkFld = Application.ActiveExplorer.CurrentFolder Set olkLst = olkFld.Items 'To include recurring appointments, sort by using the Start property. olkLst.IncludeRecurrences = True olkLst.Sort "[Start]" 'Restrict the Items collection. Set olkItemsInDateRange = olkLst.Restrict(strRestriction) 'Loop to count the items' For Each olkApt In olkItemsInDateRange intCnt = intCnt + 1 Next 'Loop to process the items' For intIdx = intCnt To 1 Step -1 Set olkApt = olkItemsInDateRange(intIdx) If Left(olkApt.Subject, 9) = "Canceled:" Then olkApt.Delete End If Next EndMacro: Set olkFld = Nothing Set olkLst = Nothing Set olkApt = Nothing MsgBox "Purge complete.", vbInformation + vbOKOnly, "Purge Canceled Appointments" End Sub
|Powerpoint embedded slide decks in Sharepoint 2013 don't load consistently in web browser||31||71|
|Excel macro : save an outlook 2010 mail message to a folder||4||36|
|Hoe can we move a folder from one OneDrive account to another OneDrive account||7||32|
|Outlook 2010: How to search sub-folders||3||17|