MESSAGES FOR MAC SPECIFIC DATES CODE

To use the macro code in ThisOutlookSession: Now open the VBA Editor by pressing Alt+F11 on your keyboard. Note: after you test the macro and see that it works, you can either leave macro security set to low or sign the macro. If Outlook tells you it needs to be restarted, close and reopen Outlook. In Outlook 2007 and older, it’s at Tools, Macro Security. To check your macro security in Outlook 2010 or 2013, go to File, Options, Trust Center and open Trust Center Settings, and change the Macro Settings.

If obj.ReceivedTime => DateValue('') And obj.ReceivedTime = 8 And Hour(obj.ReceivedTime) < 10 Thenįirst: You will need macro security set to low during testing. In this example, messages received between 8 AM and 10 AM from through. This macro will add a category to messages received at specific times between specific dates. This macro runs on the messages in the selected folder.Īdd a Category to messages received at specific dates and times In this code sample, I'm adding a category to messages that arrived after 6 PM during the last 30 days. However, you can use VBA to 'do something' messages that fall within a certain time period. While you can 'do something' with messages (or any Outlook item) between two dates, you can't filter by time too. Outlook's Rules and Search functions can't search by times. Private Sub olInboxItems_ItemAdd(ByVal Item As Object)ĭayname = WeekdayName(Weekday(Item.ReceivedTime)) Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items ' instantiate objects declared WithEvents Select one or two messages, then Ctrl+C, V to copy and paste them in place. To test it without restarting Outlook, click in the Application_Startup macro and click Run. This macro is added to ThisOutlookSession and runs when Outlook starts. In this sample, we're using Select Case to check the day of the week and assign a different category based on the date. This means it run when a message is added to the folder the macro is watching. This version of the macro is an ItemAdd macro. Set mail = ĭatefri = WeekdayName(Weekday(aItem.ReceivedTime))ĪItem.Move Session.GetDefaultFolder(olFolderInbox).Folders('Friday') To use this code sample select the folder then run the macro

Messages for mac specific dates