|VBOffice Reporter is an easy to use tool for data analysis and reporting in Outlook. A single click, for instance, allows you to see the number of hours planned for meetings the next month.
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