☰

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

관련 정보