Scheduled appointment needs prompt for outlook resource

Dim WithEvents olkRoomA As Outlook.Items
Dim WithEvents olkRoomB As Outlook.Items
Dim WithEvents olkRoomC As Outlook.Items
 
Private Sub Application_Quit()
    Set olkRoomA = Nothing
    Set olkRoomB = Nothing
    Set olkRoomC = Nothing
End Sub
 
Private Sub Application_Startup()
    'Change the mailbox paths on the next three lines.'
    Set olkRoomA = OpenOutlookFolder("Mailbox - Conference Room A")
    Set olkRoomB = OpenOutlookFolder("Mailbox - Conference Room B")
    Set olkRoomC = OpenOutlookFolder("Mailbox - Conference Room C")
End Sub
 
Private Sub olkRoomA_ItemAdd(ByVal Item As Object)
    SendMessage "AV Needs", "Please remember to send us your AV needs.", Item.Organizer
End Sub
 
Private Sub olkRoomB_ItemAdd(ByVal Item As Object)
    If IsBooked(olkRoomA, Item.Start, Item.End) Then
        SendMessage "AV Needs", "Conference room A is in use.  Please send us your AV needs.", Item.Organizer
    End If
End Sub
 
Private Sub olkRoomC_ItemAdd(ByVal Item As Object)
    If IsBooked(olkRoomA, Item.Start, Item.End) Then
        SendMessage "AV Needs", "Conference room A is in use.  Please send us your AV needs.", Item.Organizer
    End If
End Sub
 
Private Sub SendMessage(strSubject As String, strMessage As String, strRecipient As String)
    Dim olkMsg As Outlook.MailItem
    Set olkMsg = Outlook.Application.CreateItem(olMailItem)
    With olkMsg
        .subject = strSubject
        .HTMLBody = strMessage
        .Recipients.Add strRecipient
        .Recipients.ResolveAll
        'Change the address on the next line.  This is the person that will receive the AV requests.'
        .ReplyRecipients.Add "John.Doe@company.com"
        .ReplyRecipients.ResolveAll
        .Send
    End With
End Sub
 
Private Function IsBooked(olkCalendar As Outlook.Items, datStart As Date, datEnd As Date) As Boolean
    Dim olkMatch As Outlook.AppointmentItem
    olkCalendar.Sort "Start"
    olkCalendar.IncludeRecurrences = True
    Set olkMatch = olkCalendar.Find("[Start] <= '" & Format(datStart, "ddddd h:nn AMPM") & "' AND [End] >= '" & Format(datStart, "ddddd h:nn AMPM") & "'")
    If TypeName(olkMatch) = "Nothing" Then
        Set olkMatch = olkCalendar.Find("[Start] <= '" & Format(datEnd, "ddddd h:nn AMPM") & "' AND [End] >= '" & Format(datEnd, "ddddd h:nn AMPM") & "'")
        If TypeName(olkMatch) = "Nothing" Then
            IsBooked = False
        Else
            IsBooked = True
        End If
    Else
        IsBooked = True
    End If
End Function
 
Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
    ' Purpose: Opens an Outlook folder from a folder path.'
    ' Written: 4/24/2009'
    ' Author:  BlueDevilFan'
    ' Outlook: All versions'
    Dim arrFolders As Variant, _
        varFolder As Variant, _
        bolBeyondRoot As Boolean
    On Error Resume Next
    If strFolderPath = "" Then
        Set OpenOutlookFolder = Nothing
    Else
        Do While Left(strFolderPath, 1) = "\"
            strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
        Loop
        arrFolders = Split(strFolderPath, "\")
        For Each varFolder In arrFolders
            Select Case bolBeyondRoot
                Case False
                    Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
                    bolBeyondRoot = True
                Case True
                    Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
            End Select
            If Err.Number <> 0 Then
                Set OpenOutlookFolder = Nothing
                Exit For
            End If
        Next
    End If
    On Error GoTo 0
End Function

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97: