|OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.
This sample demonstrates how to change the priority for all the selected tasks in one go to 'High'.
Public Sub ChangeTaskPriority()
Dim Task As Outlook.TaskItem
Dim Selection As Outlook.Selection
Dim Folder As Outlook.MAPIFolder
Set Folder = ActiveExplorer.CurrentFolder
If Folder.DefaultItemType = olTaskItem Then
Set Selection = ActiveExplorer.Selection
For i = 1 To Selection.Count
Set Task = Selection(i)
Task.Importance = olImportanceHigh