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: 29.278  | #99
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.

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
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.
email  Senden Sie eine Nachricht