Highlight mail in Outlook depending on appointment [closed] - outlook

Question

Closed. This question does not meet Stack Overflow guidelines. It is not currently accepting answers.
This question does not appear to be about a specific programming problem, a software algorithm, or software tools primarily used by programmers. If you believe the question would be on-topic on another Stack Exchange site, you can leave a comment to explain where the question may be able to be answered.
Closed 4 years ago.
Improve this question
I would like to highlight incoming mails if it's received during a certain appointment in the calendar.
To be more precise: everyone in our team is responsible for support on a weekly basis. I use my Outlook calendar to know when I'm responsible for support. Now I would like to hightlight incoming support mails if they arrive during this support appointment.
I doubt that it's possible to do this with Rules or Conditional Formatting. But: am I right? And if I'm right, perhaps there is an add-in? Or if not, could you give me a kickstart how I could write such a hook?

Answer 1

You could create a rule on “Inbox” Folder.
First, you should make Important Email Standout in Outlook with Color Coding.
You could refer to this link:
Make Important Email Standout in Outlook with Color Coding
When you select "Condition…", You should select “Advanced”
Click on FieId -> Frequently-used -> importance, “importance” select Low. Click on Add to List, click “OK”
Second, you could create a Rule.
Click Rules -> create Rule, select “Advanced Options”
Select received in a specific data span, then selected your supported time periods.
Select make it as importance. Change high to Low
Finally, select “run this rule…” and “Turn on this rule” , click Finish.

Answer 2

To be honest, I didn't test if the following code works if I'm currently not responsible for support. I'll check this on Monday :) And the isSupportDay function still needs some refactoring.
Option Explicit
Private WithEvents inboxItems As Outlook.Items
Private isTodaySupport As Boolean
Private Sub Application_Startup()
isTodaySupport = isSupportDay()
Dim outlookApp As Outlook.Application
Dim objectNS As Outlook.NameSpace
Set outlookApp = Outlook.Application
Set objectNS = outlookApp.GetNamespace("MAPI")
Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub inboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
If TypeName(Item) = "MailItem" And isTodaySupport And isSupportMail(Item) Then
Item.Importance = OlImportance.olImportanceHigh
'Item.MarkAsTask (OlMarkInterval.olMarkToday)
Item.Save
End If
ExitNewItem:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ExitNewItem
End Sub
Function isSupportDay() As Boolean
Dim myStart As Date
Dim myEnd As Date
Dim oCalendar As Outlook.Folder
Dim oItems As Outlook.Items
Dim oItemsInDateRange As Outlook.Items
Dim oFinalItems As Outlook.Items
Dim oAppt As Outlook.AppointmentItem
Dim strRestriction As String
myStart = Date
myEnd = DateAdd("h", 1, myStart)
'Construct filter
strRestriction = "[Start] >= '" & _
Format$(myStart, "mm/dd/yyyy hh:mm AMPM") _
& "' AND [End] <= '" & _
Format$(myEnd, "mm/dd/yyyy hh:mm AMPM") & "'"
Set oCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
Set oItems = oCalendar.Items
oItems.IncludeRecurrences = True
oItems.Sort "[Start]"
'Restrict the Items collection for the date range
Set oItemsInDateRange = oItems.Restrict(strRestriction)
'Construct filter for Subject containing 'team'
Const PropTag As String = "https://schemas.microsoft.com/mapi/proptag/"
strRestriction = "#SQL=" & Chr(34) & PropTag _
& "0x0037001E" & Chr(34) & " = 'Support'"
'Restrict the last set of filtered items for the subject
Set oFinalItems = oItemsInDateRange.Restrict(strRestriction)
isSupportDay = oFinalItems.Count > 0
End Function
Function isSupportMail(Item As Outlook.mailItem) As Boolean
isSupportMail = Item.Subject Like "Support - (*"
End Function