Excel 如何标记要跟进的收件人

亲爱的，我需要帮助修改下面的vba代码，我用它来发送带有后续标志和提醒的电子邮件

---

需要修改代码，以标记此电子邮件的所有收件人/所有收件人的后续行动，并显示如图所示的提醒，因为此代码仅标记发件人而不是收件人。 简单地说：当我按下按钮（宏）时，它只为我标记followup。 有人可以修改代码来标记我和收件人吗

Sub Button1_Click()
Dim EmailApp As Outlook.Application
Set EmailApp = New Outlook.Application
Dim EmailItem As Outlook.MailItem
Set EmailItem = EmailApp.CreateItem(olMailItem)
With EmailItem
.To= Range("L4")
.CC= "someone@somewhere.com" &";"&"someone2@somewhere.com"
. Subject=""
.Body =""

.FlagStatus = olFlagMarked
.FlagRequest = "Follow up"
.ReminderTime = Range("I1").value & " 10:30 AM"
.ReminderSet = True
.ReminderOverrideDefault = True

.send
End With
End Sub

---

使用

MailItem.FlagRequest

属性。

需要修改代码以标记所有收件人的后续行动

，那么您的位置在哪里？。我想你可能误解了stackoverflow的运作方式。您可能想看看，请张贴您迄今为止尝试过的内容。在发布1时请记住这些。你在期待什么？2.什么不起作用？如果适用，包括错误消息，我们将从此处开始：）需要将代码修改为所有收件人的标志，因为代码标志仅适用于发件人（按按钮的人）（我的标志）重新标记您的问题。它与visio或excel无关。如果这在早期版本的Outlook中起作用，则可能是一个bug。似乎没有用于指定收件人的mailitem属性。如果您认为收件人可以接受设置跟进，那么您很可能可以分配任务。到期日可能是一个合理的选择。它看起来像

.DueDate=Range（“I1”）。值和“上午10:30”

应该很好。试试看。你能详细描述一下吗。如何在此代码中使用MailItem.FlagRequest属性，如果您可以重写它，我们将非常感激您是否仍然在那里？@BasemZaki您已经有了

EmailItem.FlagRequest

。