I'd like my Outlook O365 calendar to show the day number of the year for each day (e.g. today is 2/5/2020 so show 36 of 366 as this is leap year) which is not a native function in Outlook.

I figured out the VBA code to calculate this. How can I get the results to show up for each day? Maybe a macro to insert a "not busy" appointment at 7:00 AM each day?

Thanks,
Chris

In case anyone is interested the code is:

Sub DayOfYrCt()


Dim intDayNmbr As Integer
Dim dt As Date: dt = Date
intDayNmbr = DateDiff("d", CDate("1/1/" & Year(dt)), dt) + 1


Dim LongDaysInYr As Long
LongDaysInYr = 365 - (Year(dt) Mod 4 = 0) + (Year(dt) Mod 100 = 0) - (Year(dt) Mod 400 = 0)


'Debug.Print intDayNmbr; "of"; LongDaysInYr


End Sub