Posted at

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

More than 3 years have passed since last update.

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