Set (flagged) reminder for next business day

Not open for further replies.


Outlook version
Outlook 2013 64 bit
Email Account

I am an avid user of flagged reminders for my emails in Outlook.

Every email which need follow-up is flagged in order of importance with today, tomorrow, this week or next week. Unfortunately however, the tomorrow flag is not usable on friday because the reminder is then set to saturday altough I have excluded both saturday and sunday in my work week set in the calendar options.

My question is, if it would be possible (I assume only via VBA) to set a custom reminder for the next business day, so excluding non working days ? (It would be even better if it would also skip days which I marked as OutOfOffice in my calendar)

I already did some searching but could not exactly find what I was looking for and since Slipstick has already provided me so much tips and tricks on using Outlook, I thought this would be the best place to raise this question.

I'm familiar with VBA although I'm (unfortunately) not an experienced VBA user (yet), so I may use sample code and adapt it to my needs but I don't have the knowledge yet to create something from scratch.

I thank everyone already in advance for any useable tips and tricks !
i have a function at Create Outlook appointments for every xx weekday that skips weekends and predefined holidays. Reading the calendar would be possible, but slow. If you don't create tasks too far ahead, then you could just check for oof a few days ahead.

I have a macro at Autoaccept a Meeting Request using Rules that checks for free/busy - i'm assuming you only want to check all day appt marked oof, and would just look for all day event marked busy or oof within the next xx days, rather than checking the free/busy all day long.
this is a quickie using the function on the every xx workday page -

Sub CreateTask()

    Dim objTask As Outlook.TaskItem
    Set objTask = Application.CreateItem(olTaskItem)

StartDate = Date + 1 ' tomorrow
StartDate = NextWeekDaySeries(Format(StartDate, "MM/dd/yyyy"))

With objTask
    .DueDate = StartDate
    .StartDate = StartDate
End With

    Set objTask = Nothing
End Sub
Hello Diane,

Apologies for my late reply but did not found time until now to test your macro (for which a big thank you very much !).

I followed your instructions but I don't seem to get it to work.
I copied the macro to my ThisOutlookSession, restarted Outlook and enabled macro's but as from there it is unclear how to get it to work.

I understood that it would run whenever a message or task is flagged but I tried every flag type and it does not take all day events into account. I also tried to run the macro from the developer tab but same result, the macro can be run but nothing happens.

I did notice in the macro that it is based on a US region whil I'm in Europe, for example in the line Debug.Print Format(itm.Start, "m/d/yyyy") which I changed to Debug.Print Format(itm.Start, "d/m/yyyy").
Can this have an impact and would the above change in the code be correct ?

Can you provide me some more info on how to a apply this macro to the flags ?

Thank you in advance !
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Set calendar default to 'none' (policy) Exchange Server Administration 3
U When opening shared Calendar "The set of folders cannot be opened" Using Outlook 0
L Help: set flag for sent mail to check if received an answer Outlook VBA and Custom Forms 2
D VBA - unable to set rule condition 'on this computer only' Outlook VBA and Custom Forms 5
Witzker Set Cursor & Focus from any field to the body of a user Contact form in OL 2019 Outlook VBA and Custom Forms 1
justicefriends How to set a flag to follow up using VBA - for addressee in TO field Outlook VBA and Custom Forms 11
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 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 accounts as Exchange Using 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
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
S set a flag task date as the next weekday Outlook VBA and Custom Forms 4
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

Similar threads