

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

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

[code]

        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
    
[/code]


CC BY-SA 3.0
2016-03-26T15:03:34.977
23493
2016-03-26T17:01:38.607
2016-03-26T17:01:38.607
6092
14953
question
vba
OutlookのVBAで予定表削除がされない