Fälligkeitsdatum für mehrere Aufgaben verschieben

Dieses Beispiel verschiebt das Fälligkeitsdatum aller ausgewählten Aufgaben um vier Wochen. Genauer gesagt wird um 4*7=28 Tage verschoben, damit der ursprüngliche Wochentag erhalten bleibt.

  So fügen Sie Makros in Outlook ein

Public Sub MoveTaskDueDates()
  Dim Exp As Outlook.Explorer
  Dim Sel As Outlook.Selection
  Dim Task As Outlook.TaskItem

  Set Exp = Application.ActiveExplorer
  Set Sel = Exp.Selection
  If Sel.Count Then
    For Each Task In Sel
      Task.DueDate = DateAdd("d", 28, Task.DueDate)
      Task.Save
    Next
  End If
End Sub