|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.
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