從 Excel 發送帶有后續提醒的電子郵件

Question

我有一個宏，它取代了將工作簿中的數據復制/粘貼到新電子郵件中，然后將該電子郵件發送給多個動態收件人（基於工作簿數據）的手動過程。

手動完成后，電子郵件設置為高重要性（我已通過 VBA 復制），並為收件人而不是發件人設置后續提醒。

需要明確的是，該過程不涉及發送任務或召開具有截止日期的會議等。 后續提醒設置為提醒收件人在電子郵件正文中發布的截止日期前幾個小時對電子郵件內容采取措施。

我遇到了這個論壇帖子：[ http://www.pcreview.co.uk/forums/setting-reminder-flag-vba-e-mails-sent-users-t3966711.html][1] 。
在帖子的底部，Sue Mosher 建議考慮到可能存在的缺點，這可能無法通過 VBA 實現。

有沒有辦法在 VBA 生成的電子郵件中設置跟進提醒？

Answer 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" 。