|ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
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