向Outlook电子邮件标记截止日期添加天数

Question

如何将以下Outlook宏添加7天添加到Now，并将其添加到项目截止日期？

    Dim objMsg As Object

   ' GetCurrent Item function is at http://slipstick.me/e8mio
    Set objMsg = GetCurrentItem()
    With objMsg
       ' due this week flag
       .MarkAsTask olMarkThisWeek
       ' sets a specific due date
       .TaskDueDate = Now + 7
       '   .FlagRequest = "Call " & objMsg.SenderName
       .ReminderSet = False
       '   .ReminderTime = Now + 2
       .Save
    End With

    Set objMsg = Nothing
End Sub

Answer 1

使用以下其中一项：

.TaskDueDate = .TaskDueDate + 7

.TaskDueDate = DateAdd("d", 7, .TaskDueDate)

Answer 2

尝试以下功能： -

DateAdd("d", 7, Now)

Answer 3

而不是现在+ 7使用日期+7。 这将增加7天到现在的日期。