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: 30.158  | #99
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

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