How to set a flag to follow up using VBA - for addressee in TO field

justicefriends

New Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
Hi,

i have embedded this macro :

Public Sub SetCustomFlag()

Dim objMsg As Object

Set objMsg = GetCurrentItem()

With objMsg

' due this week flag
.MarkAsTask olMarkThisWeek
' sets a specific due date
.TaskDueDate = Now + 3

.FlagRequest = "Call " & objMsg.SenderName
.ReminderSet = True
.ReminderTime = Now + 2
.Save
End With

Set objMsg = Nothing
End Sub

from : How to set a flag to follow up using VBA
with some tweaks and seems to be working fine on outlook 2016 / o365 with exchange - thanks

the one thing I would love to have is to have this flag/reminder request sent, instead of all recipients to people in the TO field only.
(people in cc and bcc should not get the flag/reminder)

Is there a way to handle that?

appreciate any inputs

jf
 

justicefriends

New Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
hello Diane,

hope you are well and thanks for coming back!

the point of macroing this is to slipstream the admin of this flagging (1 click vs many).
I only need one type of flag with set parameters on reminder, and flag content and timing.
(task would be great too, but that does not work before sending.

is there a way to handle email separation (to and cc) and distribution with flag / no flag to these separate recipients?

thanks
justice
 

justicefriends

New Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
If you are setting a flag before sending, it will go to all recipients. To send a flagged message only to the To line would require you to send two messages - one to CC , one to To.
Hi Diane,

thanks for the input - i could not figure out how to implement your suggestion

I have realized however, that i can solve this in a different way.
i can have limited number of guys as recipients (they should get the flag anyway) and hardcode in this macro a forward to others

so i add this after the above with section:

With objMsg
Set myForward = objMsg.Forward
myForward.Recipients.Add "alias@domain.com; alias2@domain.com"
myForward.Send
End With

there is only one problem with this: forward also forwards to the sender and that is not needed.
i was trying to use myForward.Recipients.Remove but could not figure a way to be able to run that.

is there a way to leave out the sender from this forward?

Thanks
JF
 

justicefriends

New Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
Remove is not the way to do it.

Try myForward.to "alias@domain.com; alias2@domain.com" - this should replace the original sender

if that doesn't work (adding two or more names using to sometimes fails), use
myForward.to "alias@domain.com;
myForward.Recipients.Add "alias2@domain.com"
Hello Diane,

many thanks for helping me!

i have changed the code to myForward.to but then it stops with "object does not support this method" (myforward.to "email")
this is the current code - which should run on a newly created message:

Public Sub SetCustomFlag()

Dim objMsg As Object

Set objMsg = GetCurrentItem()

With objMsg

.TaskDueDate = Now + 2
.FlagRequest = "REVIEW THIS ITEM " & objMsg.Subject
.FlagDueBy = Now+2
.ReminderSet = True
.ReminderTime = Now + 1
.Save

End With

'this part should forward the newly created message (all of its content) to the email address included. if this could be a local group, better

With objMsg
Set myForward = objMsg.Forward
myForward.To "alias@domain.com"
myForward.Send
End With

Set objMsg = Nothing
End Sub

many thanks yet again
justice
 

justicefriends

New Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
Hello Diane,

many thanks for helping me!

i have changed the code to myForward.to but then it stops with "object does not support this method" (myforward.to "email")
this is the current code - which should run on a newly created message:

Public Sub SetCustomFlag()

Dim objMsg As Object

Set objMsg = GetCurrentItem()

With objMsg

.TaskDueDate = Now + 2
.FlagRequest = "REVIEW THIS ITEM " & objMsg.Subject
.FlagDueBy = Now+2
.ReminderSet = True
.ReminderTime = Now + 1
.Save

End With

'this part should forward the newly created message (all of its content) to the email address included. if this could be a local group, better

With objMsg
Set myForward = objMsg.Forward
myForward.To "alias@domain.com"
myForward.Send
End With

Set objMsg = Nothing
End Sub

many thanks yet again
justice
Remove is not the way to do it.

Try myForward.to "alias@domain.com; alias2@domain.com" - this should replace the original sender

if that doesn't work (adding two or more names using to sometimes fails), use
myForward.to "alias@domain.com;
myForward.Recipients.Add "alias2@domain.com"
Hello and happy new year!
I am just taking this up again, do you have by chance any suggestion how to move forward with this?
thanks a ton
justice
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I'll take a look at it - I took a few weeks off at the end of December and just getting back to work. :)
 

justicefriends

New Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
I'll take a look at it - I took a few weeks off at the end of December and just getting back to work. :)
I think the year end festive season is for fun, happy to hear that you've had some time off! :)

thinking about the problem - would it be better (easier) to create a new email with the contents of the flagged one, and send it to either hard coded recipients or better to local outlook address group?

thanks
justice
 
Similar threads
Thread starter Title Forum Replies Date
J How to set a flag to follow up using VBA for outlook 2003 Using Outlook 10
S set a flag task date as the next weekday Outlook VBA and Custom Forms 4
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
O Cannot expand the folder. The set of folders cannot be opened. You do not have permission to log on. Using Outlook 1
e_a_g_l_e_p_i Outlook 2010 How to set default email address for website links Using Outlook 3
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
e_a_g_l_e_p_i Is it possible it set the fonts used to read incoming mail Using Outlook 25
bmtjedi Set objApp = Application Not Working in O365-32bit Using Outlook 1
F how do i set a reminder in onenote 2010 Using Outlook 8
glnz How set up new IMAP on Outlook-Office 365 and merge in pst from Outlook 2003 for same two email accounts? Using Outlook 5
ChrisK2 Send email to advertise@slipstick.com fails: "The group advertising isn't set up to receive messages from..." Using Outlook 3
S How to set up button in ribbon for individual Quick Steps Using Outlook 1
J Set Timer/Countdown on Emails? Outlook VBA and Custom Forms 3
N How to set automatically the default or user defined Quickstyle Templates by Answer in Outlook Using Outlook 1
Victor_50 Set all subfolders to not autoarchive Outlook VBA and Custom Forms 11
Z Script to set account? Using Outlook 0
4 Macro to set the category of Deleted Item? Outlook VBA and Custom Forms 2
J What is the best EntryID format to set on MS Access table Outlook VBA and Custom Forms 3
e_a_g_l_e_p_i Can you set reminder to specific times? Using Outlook 7
CWM030 I do not see a way to set the personal archive folder Exchange Server Administration 2
witzker Macro to set contact reminder to next day 9:00 Outlook VBA and Custom Forms 45
O Set columns for all (sub)folders Using Outlook 8
S Appointment-Cannot set Categories because ConversationID is not set Outlook VBA and Custom Forms 1
Fozzie Bear Correct Method to set up Outlook.com accounts as Exchange Using Outlook.com accounts in Outlook 7
e_a_g_l_e_p_i How to set fonts for emails in all folders in Outlook Using Outlook 1
F Set (flagged) reminder for next business day Using Outlook 4
L how to set downloaded cached emails Using Outlook 5
J Object Variable or With Block Not Set Error in Outlook 2016 and not Outlook 2013 Outlook VBA and Custom Forms 3
C Set reminder / appointment by right clicking email Using Outlook 1
Diane Poremsky Set Another Data File as Default When Using an Exchange Account Using Outlook 0
R Macro to copy email to excel - Runtime Error 91 Object Variable Not Set Outlook VBA and Custom Forms 11
L set task reminder date to same as start date (without affecting due date) Using Outlook 0
S how to set user properties to a newly created appointment Outlook VBA and Custom Forms 12
C Outlook VBA to set current account Outlook VBA and Custom Forms 1
Diane Poremsky Add Attachments and Set Email Fields During a Mail Merge Using Outlook 0
O How to set subject line in replies using VBA Outlook VBA and Custom Forms 1
A Custom form not showing when recurrence is set for a meeting Using Outlook 0
M Exchange 2013 On premise set MessageRateLimit for User has no effect. Exchange Server Administration 0
A Block user to send emails to specific set of email ids Using Outlook 1
D Outlook 2007 e-mail header- How to set font & font size in received message headers ? Using Outlook 2
Diane Poremsky Exchange account set-up missing in Outlook 2016 Using Outlook 0
M To set the storage folder for an outgoing Outlook message Outlook VBA and Custom Forms 8
E Meeting reminders are set for the recipient Exchange Server Administration 9
M Help! Can't set up IMAP for gmail Using Outlook 2
P Last Change attribute set after viewing a public folder contact Exchange Server Administration 0
S Multiple Gmail account set up in Outlook 365 Using Outlook 1
Diane Poremsky Add attachments and set email fields during a mail merge to email Using Outlook 0
D Script to parse email and set a task Outlook VBA and Custom Forms 1
K Outlook 2010 - Set the category based on category of other emails in same conversatio Using Outlook 20
A iCloud add-on for Outlook: Reminder for new appointment is set to 'None' by default. How to change? Using Outlook 6

Similar threads

Top