问自动接受/自动暂定接受

EN

Sub AcceptDecline(oRequest As MeetingItem)

If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then
    Exit Sub 'if this messageclass isn't a meeting request
End If

Dim oAppt As AppointmentItem
Set oAppt = oRequest.GetAssociatedAppointment(True)

Dim myAcct As Outlook.Recipient
Dim myFB As String

Set myAcct = Session.CreateRecipient("roconnor@pattonair.com")

myFB = myAcct.FreeBusy(oAppt.Start, 5, False) 'gets the free or busy status of my calendar

Dim oResponse
Dim i As Long
Dim test As String

i = (TimeValue(oAppt.Start) * 288)
test = Mid(myFB, i - 2, (oAppt.Duration / 5) + 2)

If InStr(1, test, "1") Then
    Set oResponse = oAppt.Respond(olMeetingTentative, True)
    oResponse.Display
    oResponse.Send

Else
    Set oResponse = oAppt.Respond(olMeetingAccepted, True)
    oResponse.Display
    oResponse.Send
End If
End Sub