Bulk Edit the Priority for Multiple Task Items

This sample demonstrates how to change the priority for all the selected tasks in one go to 'High'.

  How to add macros to Outlook

Public Sub ChangeTaskPriority()
  Dim Task As Outlook.TaskItem
  Dim Selection As Outlook.Selection
  Dim Folder As Outlook.MAPIFolder
  Dim i&

  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
      Task.Save
    Next
  End If
End Sub