如何通过Outlook VBA为选中邮件设置截止日期？现有代码存在局限

原代码的问题有两个：

• 错误处理逻辑完全颠倒：On Error Resume Next后仅在Err.Number<>0时执行设置，这相当于只有出错才处理，完全不符合需求。
• 未启用邮件的任务标记：Outlook中邮件的截止日期属于任务属性范畴，只有把邮件标记为任务（IsMarkedAsTask = True），TaskDueDate等相关属性才会生效，未设置过截止日期的邮件本身就没被标记为任务，所以原代码根本没触发设置逻辑。

修正后的代码如下：

Sub ChangeDueDate()
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim inputDate As String
    Dim DueDate As Date

    ' 获取输入并验证日期格式
    inputDate = InputBox("Enter new due date (dd.mm.yyyy):")
    If IsDate(inputDate) = False Then
        MsgBox "输入的日期格式不正确，请重新输入！"
        Exit Sub
    End If
    ' 转换为标准日期类型
    DueDate = CDate(inputDate)

    For Each objItem In Application.ActiveExplorer.Selection
        If TypeOf objItem Is Outlook.MailItem Then
            Set objMail = objItem
            
            ' 核心操作：将邮件标记为任务，否则任务属性不生效
            objMail.IsMarkedAsTask = True
            ' 设置截止日期
            objMail.TaskDueDate = DueDate
            ' 可选：同步设置任务开始日期
            objMail.TaskStartDate = DueDate
            ' 可选：设置任务初始状态为未开始
            objMail.TaskStatus = olTaskNotStarted

            objMail.Save
        End If
    Next objItem
    MsgBox "已完成选中邮件的截止日期设置！"
End Sub

关键说明： #

• IsMarkedAsTask = True：这是让未设置过截止日期的邮件生效的核心，只有标记为任务的邮件，Outlook才会识别并展示任务相关属性（包括截止日期）。
• 新增日期格式验证：避免输入无效日期导致代码运行报错。
• 移除了错误的异常处理逻辑：正常场景下设置这些属性不会报错，提前做日期验证足以规避问题。

内容的提问来源于stack exchange，提问作者JLCH