outlook2010で自動仕分けをした際に会議開催通知の場合、自動返信させようとしています。
★印のところに来ると変数が設定されいないといったエラーが発生します。
初心者な質問で申し訳ありませんが、どなか解説いただけないでしょうか・・・
よろしくお願い致します。
Public Sub DisplaySubjectByRule(ByRef objItem As MeetingItem)
Dim tmpItem
Dim buf
Dim i
buf = Split(objItem.EntryID, ",")
For i = LBound(buf) To UBound(buf)
Print #1, i
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.Resp.Neg" Then Set tmpAppoint = tmpItem.GetAssociatedAppointment(False) tmpAppoint.MeetingStatus = olMeetingCanceled tmpAppoint.Send tmpAppoint.Delete End If
Next
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/03/22 13:13
2016/03/23 21:19
2016/03/26 14:48
2016/03/27 10:44
2016/04/02 05:24