☰

Gibt es ein Makro, mit dem ich in Outlook 2010 eine Schaltfläche festlegen kann, um eine Markierung für die Nachverfolgung in 3 Tagen zu setzen?

tag-icon • tag-icon microsoft-outlook tasks flag
Gibt es ein Makro, mit dem ich in Outlook 2010 eine Schaltfläche festlegen kann, um eine Markierung für die Nachverfolgung in 3 Tagen zu setzen?

Gibt es ein Makro, mit dem ich in Outlook 2010 eine Schaltfläche einrichten kann, um eine Markierung für die Nachverfolgung in 3 Tagen zu setzen? Ich kann jede Aufgabe jedes Mal unter „Benutzerdefiniert“ ausführen, aber das ist zeitaufwändig. Ich hätte wirklich gerne eine Schaltfläche, mit der ich die Markierung für die Nachverfolgung in 3 Tagen einfach zurücksetzen kann. Die Optionen HEUTE, MORGEN und NÄCHSTE WOCHE reichen einfach nicht aus.

Antwort1

FlaggeDueByWarveraltetin Outlook 2007. Es wurde ersetzt durchErinnerungszeitUndFälligkeitsdatum der Aufgabe.

Quelle:http://msdn.microsoft.com/en-us/library/bb610089%28v=office.12%29.aspx

Antwort2

Damit können Sie eine beliebige Anzahl von Tagen festlegen.

Sub Set_FollowUp()

    Dim numDays As Double
    Dim uPrompt As String
    Dim MyMailItem As Object

    On Error Resume Next
    If ActiveInspector.currentItem.Class = olMail Then
        Set MyMailItem = ActiveInspector.currentItem
    End If

    If MyMailItem Is Nothing Then
    ' Might be in the explorer window

        If (ActiveExplorer.selection.Count = 1) And _
          (ActiveExplorer.selection.Item(1).Class = olMail) Then

            Set MyMailItem = ActiveExplorer.selection.Item(1)

        End If
    End If

    If MyMailItem Is Nothing Then
        MsgBox "Problem." & vbCr & vbCr & "Try again " & _
         "under one of the following conditions:" & vbCr & _
         "-- You are viewing a single message." & vbCr & _
         "-- You have only one message selected.", _
         vbInformation
        Exit Sub
    End If

    MyMailItem.FlagDueBy = Now + 3

    ' *** optional code ***
    'uPrompt = "Follow-Up how many days from now? Decimals allowed."
    'numDays = InputBox(prompt:=uPrompt, Default:=3)

    'MyMailItem.FlagDueBy = Now + numDays
    'MyMailItem.FlagRequest = "Customized Follow up"
    ' *** end of optional code ***

    MyMailItem.Save

End Sub

verwandte Informationen