Public WithEvents GItems As Outlook.Items
Private Sub Application_Startup()
        Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
        Set xMtRequest = Item
        Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
        If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
                With xAppointmentItem
                        .ReminderMinutesBeforeStart = 45
                        .Categories = "Orange Category"
                        .Save
                End With
                Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
                xMtResponse.Send
                xMtRequest.Delete
        End If
End If
End Sub