VBOffice

Fälligkeitsdatum für mehrere Aufgaben verschieben

In diesem Beispiel ändern wir das Fälligkeitsdatum gleich für mehrere Aufgaben in einem Rutsch.

Zuletzt geändert: 23.07.2013 | Aufrufe: 33.470  | #99
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

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.


tip  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
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.
email  Senden Sie eine Nachricht