How to set a flag to follow up using VBA for outlook 2003

Status
Not open for further replies.

jyoshina

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Thanks a lot for the How to set a flag to follow up using VBA page. it was very useful and works fine for my Outlook 2010. but i need the same method to be done for outlook 2003. when i tried this code i got run time error : 438 Run Time error 438 - Object doesn't support this property or method . i don't know how to fix this can you please help



it would be great if you could respond me back. thanks for your help in advance.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Outlook 2003 has colored flags so you need to tweak the code a little -

Code:
With objMsg
   .FlagIcon olPurpleFlagIcon
   .FlagDueBy = Now + 3
   .FlagRequest = "Call " & objMsg.SenderName
   .ReminderSet = True
   .ReminderTime = Now + 2
   .Save 
 
End With
 

jyoshina

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Thanks!! is there any way to test whether i am getting remainder ? or should i wait for 3 days to test ?? this works fine and my mail got flagged in purple color

Outlook 2003 has colored flags so you need to tweak the code a little -

Code:
With objMsg
   .FlagIcon olPurpleFlagIcon
   .FlagDueBy = Now + 3
   .FlagRequest = "Call " & objMsg.SenderName
   .ReminderSet = True
   .ReminderTime = Now + 2
   .Save 
 
End With
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Right click on the flag and choose Add reminder. It should be set for Sat. at the same time as you ran the macro.
 

KoolPal

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hi,

What can I do to make this prompt me for a custom message after "Call "??

Code:
.FlagRequest = "Call " & objMsg.SenderName
Thanks.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I use inputbox before setting the flag -

strFollowup = InputBox("Enter the Followup text")
 

KoolPal

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
I can't see any option to edit my post hence double posting, sorry.

Alternate to my above request, is there any way I can prefill flagdueby & reminder setting and prompt for the entire Follow up flag box?

Thanks
 

KoolPal

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Outlook 2003 has colored flags so you need to tweak the code a little -

Code:
With objMsg
   .FlagIcon olPurpleFlagIcon
   .FlagDueBy = Now + 3
   .FlagRequest = "Call " & objMsg.SenderName
   .ReminderSet = True
   .ReminderTime = Now + 2
   .Save 
 
End With
I use inputbox before setting the flag -
strFollowup = InputBox("Enter the Followup text")
Can you please guide me how to use the strFollowup with the above code?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You should be able to edit posts for at least 30 minutes - that is going to be the new setting, if its set correctly. I'll have to check on it.

This should work - when the code hits the inputbox line, it will popup a dialog box asking you to enter the text.

Code:
dim strFollowup as String 
strFollowup = InputBox("Enter the Followup text") 
 
With objMsg 
    .FlagIcon olPurpleFlagIcon 
    .FlagDueBy = Now + 3 
    .FlagRequest = strFollowup & objMsg.SenderName 
    .ReminderSet = True 
    .ReminderTime = Now + 2 
     .Save 
End With
If you use the same set of followups, you could use a userform and select the names. An example of userforms is here http://www.slipstick.com/developer/select-list-subjects-sending-message/
 

KoolPal

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
You should be able to edit posts for at least 30 minutes - that is going to be the new setting, if its set correctly. I'll have to check on it.

This should work - when the code hits the inputbox line, it will popup a dialog box asking you to enter the text.

Code:
dim strFollowup as String 
strFollowup = InputBox("Enter the Followup text") 
 
With objMsg 
    .FlagIcon olPurpleFlagIcon 
    .FlagDueBy = Now + 3 
    .FlagRequest = strFollowup & objMsg.SenderName 
    .ReminderSet = True 
    .ReminderTime = Now + 2 
     .Save 
End With
If you use the same set of followups, you could use a userform and select the names. An example of userforms is here http://www.slipstick.com/developer/select-list-subjects-sending-message/
Thank you very very much for this! This worked brilliantly as expected!
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
N Re: Can not set Follow-up flag for new email currently composing - Outlook 2007 / Win7 Using Outlook 2
F Unable to set Follow-up flag for self in new message Using Outlook 1
D Follow up flag only displays Set Flag, Clear Flag. Missing Today, Tomorrow, This Week, Next Week, No Using Outlook 2
S set a flag task date as the next weekday Outlook VBA and Custom Forms 4
T When I flag an email, i want to set the alarm/reminder 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 11
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 New Slipstick.com Articles 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 New Slipstick.com Articles 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 New Slipstick.com Articles 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 New Slipstick.com Articles 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