OutlookのVBAで予定表削除がされない

OutlookのVBAを使って、会議開催通知の予約をキャンセルを受信したら予定表から予定を自動的に削除するコードを書いてみています。
しかし、★印のところからエラーに成って動かないようです。

VBAの超初心者ですが教えて頂けませんでしょうか？

    Set tmpItem = Application.Session.GetItemFromID(buf(i))
    If tmpItem.MessageClass = "IPM.Schedule.Meeting.Request" Then
        Set tmpAppoint = tmpItem.GetAssociatedAppointment(True)
        Set tmpMeeting = tmpAppoint.Respond(olResponseAccepted, True)
        tmpMeeting.Send
    ElseIf tmpItem.MessageClass = "IPM.Schedule.Meeting.Canceled" Then
        Dim meetItem As MeetingItem
        Dim apptItem As AppointmentItem
        Set meetItem = objItem
        Set apptItem = meetItem.GetAssociatedAppointment(False)★
        apptItem.MeetingStatus = olMeetingCanceled
        apptItem.Send
        apptItem.Delete
    End If