Gibt es ein Makro in der Umgebung, mit dem ich eine Schaltfläche in Outlook 2010 festlegen kann, um in 3 Tagen ein Flag für die Nachverfolgung festzulegen?

961
kevin

Gibt es ein Makro in der Umgebung, mit dem ich eine Schaltfläche in Outlook 2010 festlegen kann, um in 3 Tagen ein Flag für die Nachverfolgung festzulegen? Ich kann jede Aufgabe jedes Mal unter "benutzerdefiniert" ausführen, aber dies ist zeitaufwändig. Ich hätte wirklich gerne einen Button, um die Flagge für das Follow-up in 3 Tagen zurückzusetzen. Die Optionen HEUTE, MORGEN und NÄCHSTE WOCHE schneiden einfach nicht ab.

0

2 Antworten auf die Frage

1
go2null

FlagDueBy wurde als veraltet in Outlook 2007. Es ersetzt wurde ReminderTime und TaskDueDate .

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

0
niton

Auf diese Weise können Sie eine beliebige Anzahl von Tagen einstellen.

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 Probleme