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

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!
 
Top