Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
339 views
in Technique[技术] by (71.8m points)

excel - How to flag recipients for follow up

enter image description here

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= "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
See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

Use MailItem.FlagRequest property.


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...