Outlook2010のVBAで会議開催通知を自動承諾出来ない

Outlookのルールに該当する会議開催通知を受信した時に自動承諾するマクロともし相手が会議開催をキャンセルしてきたときに
自動で予定表から削除するマクロを組んでいます。

いろんな文献を参考にしてみているのですが、どうしても動いてくれません。
初心者向けに解説願えませんでしょうか？

Public Sub DisplaySubjectByRule(ByRef objItem As MeetingItem)

Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myMtgReq As Outlook.MeetingItem
Dim myAppt As Outlook.AppointmentItem
Dim myMtg As Outlook.MeetingItem

　Set myNameSpace = Application.GetNamespace("MAPI")
　 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
　 Set myMtgReq = myFolder.Items.Find("[MessageClass] = 'IPM.Schedule.Meeting.Request'")
Set myMtgReq2 = myFolder.Items.Find("[MessageClass] = 'IPM.Schedule.Meeting.Canceled'")

If TypeName(myMtgReq) <> "Nothing" Then
　Set myAppt = myMtgReq.GetAssociatedAppointment(True)
　 Set myMtg = myAppt.Respond(olResponseAccepted, True)
　myMtg.Send
ElseIf TypeName(myMtgReq2) = "Nothing" Then
　Set myAppt = myMtgReq2.GetAssociatedAppointment(False)
　 Set myMtg = myAppt.Respond(olResponseAccepted, False)
　myMtg.Send
myMtg.Delete
End If
End Sub