excel - 如何标记收件人以进行跟进

Question

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

需要修改代码以标记此电子邮件的所有收件人/所有收件人的跟进，并带有如图所示的提醒，因为此代码仅标记发件人而不是收件人。简单地说：当我按下按钮（宏）时，它只会为我标记跟进。任何人都可以修改代码以标记我和收件人吗？

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= "[e-mail]" &";"&"[e-mail]"
. Subject=""
.Body =""

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

.send
End With
End Sub

标签： excelvbaoutlook

Answer 1

使用MailItem.FlagRequest财产。