Есть ли макрос, который позволит мне установить кнопку в Outlook 2010, чтобы установить флаг для отслеживания в течение 3 дней?

839
kevin

Есть ли макрос, который позволит мне установить кнопку в Outlook 2010, чтобы установить флаг для отслеживания в течение 3 дней? Я могу выполнять каждое задание каждый раз под «обычаем», но это отнимает много времени. Мне бы очень хотелось, чтобы кнопка сбрасывала флажок для отслеживания через 3 дня. Опции СЕГОДНЯ, ЗАВТРА и СЛЕДУЮЩАЯ НЕДЕЛЯ просто не сокращают это.

0

2 ответа на вопрос

1
go2null

FlagDueBy был устаревшим в Outlook 2007. Он был заменен ReminderTime и TaskDueDate .

Источник : http://msdn.microsoft.com/en-us/library/bb610089%28v=office.12%29.aspx

0
niton

Это позволит вам установить любое количество дней, которое вам нравится.

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

Похожие вопросы