从 Excel 发送一封带有后续提醒的电子邮件答案

【问题标题】：Send an Email from Excel with Follow-Up Reminder从 Excel 发送一封带有后续提醒的电子邮件
【发布时间】：2021-04-04 21:02:03
【问题描述】：

我有一个宏，它取代了将数据从工作簿复制/粘贴到新电子邮件中的手动过程，然后将该电子邮件发送给多个动态收件人（基于工作簿数据）。

当手动完成时，电子邮件被设置为高重要性（我已通过 VBA 复制）并为收件人设置后续提醒，而不是发件人。

需要明确的是，该过程不涉及发送任务或有截止日期等的会议。设置后续提醒以提醒收件人在电子邮件正文中发布的截止日期前几个小时对电子邮件内容采取措施。

我看到了这个论坛帖子：[http://www.pcreview.co.uk/forums/setting-reminder-flag-vba-e-mails-sent-users-t3966711.html][1].
在帖子的底部，Sue Mosher 建议考虑到可能存在的缺点，这可能无法通过 VBA 实现。

有没有办法在 VBA 生成的电子邮件中设置后续提醒？

【问题讨论】：

正如 Sue Mosher 所说，想想这会有多烦人？我个人不会追求这个。她是 MVP 和“Microsoft Outlook 2007 Programming”的作者，所以我会听取她的建议，认为这是不可能的。
谢谢你，安德鲁。我将研究另一种方法。

标签： excel vba outlook

【解决方案1】：

Dim MyItem as Outlook.MailItem

With MyItem
            .To = EmailAddr
            .Subject = sSubject
            .SentOnBehalfOfName = "SoAndSo@sample.com"
            .HTMLBody = Msg
            .Importance = olImportanceHigh
            .FlagStatus = olFlagMarked
            .FlagRequest = "Follow up"
            .FlagDueBy = Range("F2").Value & " 10:08 AM"
End With

主要部分是.FlagStatus、.FlagRequest和.FlagDueBy。对于.FlagDueBy，我在我的工作簿中使用了一个动态日期来设置截止日期，但是硬截止日期可以这样编码，FlagDueBy = "1/1/1900 12:00 AM"。

【讨论】：