Priorität von mehreren Aufgaben gleichzeitig ändern

Diese kleine Demo zeigt, wie die Priorität für alle selektierten Aufgaben auf einmal z.B. auf "Hoch" gesetzt werden kann.

  So fügen Sie Makros in Outlook ein

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