如何通过VBA在显示未发送邮件前添加个人任务提醒

针对未发送的Outlook邮件（草稿状态），无法直接使用MarkAsTask方法，但可以通过直接设置MailItem的任务标记属性来模拟手动设置跟踪提醒的效果，核心是必须先将邮件保存为草稿，再配置相关属性。

核心实现代码 #

Sub AddCustomReminderToUnsentEmail()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim targetReminderTime As Date
    
    ' 初始化Outlook应用
    Set olApp = New Outlook.Application
    ' 创建新邮件（若为Excel生成的现有邮件，直接引用对应MailItem对象即可）
    Set olMail = olApp.CreateItem(olMailItem)
    
    ' 填充邮件基础信息（根据实际需求替换）
    olMail.Sender = "your-sender@domain.com"
    olMail.To = "recipient@domain.com"
    olMail.Subject = "待审核邮件"
    olMail.HTMLBody = "<p>邮件正文内容</p>" ' 支持HTML格式
    ' 添加附件（示例路径，按需修改）
    ' olMail.Attachments.Add "C:\Documents\attachment.pdf"
    
    ' 计算7天后9:00的提醒时间
    targetReminderTime = DateAdd("d", 7, Date)
    targetReminderTime = DateSerial(Year(targetReminderTime), Month(targetReminderTime), Day(targetReminderTime)) + TimeSerial(9, 0, 0)
    
    ' 配置任务提醒属性
    With olMail
        .FlagRequest = "待审核跟进" ' 自定义跟踪标签文本
        .FlagDueBy = targetReminderTime ' 任务截止日期
        .ReminderSet = True ' 启用提醒开关
        .ReminderTime = targetReminderTime ' 提醒触发时间
        .FlagStatus = olFlagMarked ' 标记为待办状态
    End With
    
    ' 必须保存为草稿，属性才会生效
    olMail.Save
    
    ' 显示邮件供个性化审核
    olMail.Display
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

关键注意事项 #

• 必须先保存草稿：未保存的临时邮件不会保留Flag属性设置，调用Save是核心前提
• 属性组合配置：FlagRequest对应手动设置时的“标记为”文本，ReminderTime和FlagDueBy需同步设置为目标时间，确保提醒正常触发
• 现有草稿修改：若要给已存在的草稿添加提醒，可通过Outlook的Namespace.GetDefaultFolder(olFolderDrafts).Items遍历找到目标邮件，再执行上述属性配置和保存操作

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