Put Day of Year into Outlook Calendar

Post number 2 has been selected as the best answer.

Status
Not open for further replies.

Chri3sss

New Member
Outlook version
Outlook 2019 64-bit
Email Account
Office 365 Exchange
Hi,

I'd like my Outlook O365 calendar to show the day number of the year for each day (e.g. today is 2/6/2020 so show "37 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 with the day number as the subject line?

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
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You need to either add an all day /not busy or insert it at a specific time.

This would be the subject - intDayNmbr; "of"; LongDaysInYr

and you need to loop through each day in the year.


Or... I have a HOL file that does this already. It create an all day event (because it uses the Holiday function.)
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
R Outlook 2013 VBA I want to put the entire message to clipboard Using Outlook 5
H How do I import all my old email from Entourage 2004 (I have put email in separated folders), into my smart box of Outlook 2011 ? Thanks__ Using Outlook 2
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
M Changing the preferred order for "Put this entry in" list for adding new contacts to the Address Book Using Outlook 1
M Retrieve data from GAL and put it in Clipboard Using Outlook 1
A Create Task from Email and put body & email as attachment into task notes Outlook VBA and Custom Forms 17
J Rule to put ONLY sent items in specific folder Using Outlook 1
R How do I create a macro to put text in certain emails? Outlook VBA and Custom Forms 1
M Grab info from attachment and put into SQL db Outlook VBA and Custom Forms 1
M How do I find Calendar events that have been put off with Snooze? Using Outlook 2
V What happens when "Resource" recipients are put in To/cc boxes? Outlook VBA and Custom Forms 3
L Duplicate calendar entries in Outlook 365 Using Outlook 2
V Outlook 2021 Can anyone explain why my Outlook views keep changing?! Using Outlook 2
AlphonseG Outlook 365 Outlook Crashes on setting SaveSentMessageFolder Outlook VBA and Custom Forms 2
S Outlook 2021 How to customize colors Outlook 2021 & Office 2021 on PC Using Outlook 0
D Outlook 2007 Recovering E-Mails Using Outlook 0
G Stop Outlook 365 adding meetings to calendar Using Outlook 0
HarvMan Using Emojis in Outlook 365 Using Outlook 3
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
Albert McCann Outlook 2021 Outlook Display of HTML Email from two senders is glitchy Using Outlook 0
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 1
K Outlook for Mac problems Using Outlook 0
D Outlook app 2021 & iCloud PST issues Using Outlook 2
M c# vsto Outlook.ApplicationEvents_11_NewMailEx Outlook VBA and Custom Forms 1
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
Christopher M Is it me, or is Outlook 365 BUGGY? Using Outlook 3
U Outlook on the iPhone cannot approve filtered Emails Using Outlook 0
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
K Outlook 365 After migrating to Outlook 365, some contacts display in emails with prefixes Using Outlook 1
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
M Understanding Outlook Identities Using Outlook 1
kburrows Outlook or Phone Combining Contacts? Using Outlook 0
P Outlook 2013 search no longer works Using Outlook 2
M Accessing ALL Outlook contact fields Outlook VBA and Custom Forms 3
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 0
R MailTips and older Outlook versions Using Outlook 0
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 9
C How to import Outlook calendar? Using Outlook 1
HarvMan Outlook 365 loses "outlook.com" exchange server settings Using Outlook 1
HarvMan Outlook.com Account Using Outlook 3
D Office 365 Outlook desktop app prompts for all account passwords on startup Using Outlook 6
D Alerts in outlook Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
L Recommendations for Utility to Backup Outlook 365 Account Settings Using Outlook 2
J Recommendations for Outlook Duplicate Email Remover Using Outlook 6
O Outlook - How to embed font ? (If at all possible) Using Outlook 2

Similar threads

Top