本文介绍了如何标记收件人以进行跟进的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

亲爱的,我需要帮助来修改下面的vba代码,该代码用于发送带有跟进标志并带有提醒的电子邮件.

Dears, I need help to amend the below vba code that I'm using to send emails with follow up flag with a reminder.

需要修改代码以标记此电子邮件的所有收件人/所有收件人的后续操作,并带有提醒(如图所示),因为此代码仅标记发件人而不是收件人.简而言之:当我按下按钮(宏)时,仅对我标记.任何人都可以修改代码以标记我和收件人吗?

Need to amend the code to flag follow up for all recipients / all receivers of this email with a reminder as shown in the picture as this code flags the sender only not recipients.Simply: when i press on the button (macro) it flags follow up for me only.Can any one amend the code to flag me and the recipient ?

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= "[email protected]" &";"&"[email protected]"
. 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 属性.

这篇关于如何标记收件人以进行跟进的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

09-18 15:14