☰

是否有一個巨集可以讓我在 Outlook 2010 中設定一個按鈕來設定 3 天內跟進的標誌？

tag-icon • tag-icon microsoft-outlook tasks flag
是否有一個巨集可以讓我在 Outlook 2010 中設定一個按鈕來設定 3 天內跟進的標誌？

是否有一個巨集可以讓我在 Outlook 2010 中設定一個按鈕來設定 3 天內跟進的標誌？我每次都可以在「自訂」下完成每項任務，但這很耗時。我真的很想要一個按鈕來重置標記以便在 3 天內進行後續操作。今天、明天和下週的選項並不能解決問題。

答案1

標誌到期日曾是已棄用在 Outlook 2007 中。提醒時間和任務截止日期。

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

答案2

這將允許您設定您喜歡的任意天數。

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

相關內容