通过Excel发送带有后续提醒的电子邮件 [英] Send an Email from Excel with Follow-Up Reminder

问题描述

我有一个宏，它替换了将工作簿中的数据复制/粘贴到新电子邮件中，然后将该电子邮件发送给几个动态收件人(基于工作簿数据)的手动过程.

I've a macro that replaces a manual process of copy/pasting data from a workbook into a new email and then sending that email to several dynamic recipients (based on the workbook data).

手动完成后，电子邮件设置为非常重要(我已通过VBA复制)，并且为收件人(而非发件人)设置了后续提醒.

When done manually, the email is set to high importance (which I have replicated via VBA) and a follow-up reminder is set for the recipient, not the sender.

需要明确的是，该过程不涉及发送任务或召开到期日之类的会议.设置了后续提醒，以提醒收件人在电子邮件正文中张贴的到期日之前几个小时对电子邮件内容采取措施.

To be clear, the process does not involve sending a task or meeting with due dates and the like. A follow-up reminder is set to remind the recipient to take action on the email content a few hours before a due date that's posted in the body of the email.

我遇到过以下论坛帖子:[

I came across this forum post: [http://www.pcreview.co.uk/forums/setting-reminder-flag-vba-e-mails-sent-users-t3966711.html][1].
Towards the bottom of the post, Sue Mosher suggests that this may not be possible via VBA considering the possible drawbacks.

是否可以在VBA生成的电子邮件中设置后续提醒?

Is there a way to set a follow-up reminder in a VBA-generated email?

推荐答案

Dim MyItem as Outlook.MailItem

With MyItem
            .To = EmailAddr
            .Subject = sSubject
            .SentOnBehalfOfName = "[e-mail]"
            .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"硬截止日期.

The main parts being .FlagStatus, .FlagRequest, and .FlagDueBy. With .FlagDueBy, I used a dynamic date in my workbook to set the due date, but a hard due date could be coded like so, FlagDueBy = "1/1/1900 12:00 AM".

这篇关于通过Excel发送带有后续提醒的电子邮件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！