OutlookのVBAで自動返信の挙動がなぜか変わる

Question

Outlook2010を使用している環境です。
会議出席依頼が来たら問答無用で自動承諾したく、以下の様なVBAを書いてみています。
原因がはっきりしないのですが、予定表には追記されるのですが、普通に会議が承諾される場合と仮の予定どちらかになってしまいます。

仮の予定である必要性はないため、自動承諾されればいいだけなのですが・・・
まだ、確定はできないのですが仮の予定になるときは承諾メールが飛んでいないようです。
なぜなのでしょうか？

自動承諾した時点で、送受信を実行させてみて確かめたいのですが、送受信するコードが探せず悩んでいるというのもあります。
どなたか詳しい方教えて頂けませんでしょうか？
よろしくお願い致します。
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Set objItem = Session.GetItemFromID(EntryIDCollection)
If TypeName(objItem) = "MeetingItem" Then
Set myAppt = objItem.GetAssociatedAppointment(True)
Set myMtg = myAppt.Respond(olResponseAccepted, True)
myMtg.Send
End If
End Sub

ちなみに・・・このコードは会議出席依頼が来た時に動くVBAとおもっていますがいいでしょうか？
会議のキャンセル通知が来た時点ではこのコードだと予定表を消してはくれないですよね？？

Answer 1

仮の予定になるときは承諾メールが飛んでいないようです。

なぜなのでしょうか？

仮の予定ですと、olResponseAcceptedではなく、olMeetingTentativeですね。
私の環境では勝手に仮予定になることはありませんでした。
何か別のロジック(仕訳ルールとか、送信の仕方とか)が邪魔しているのではないでしょうか。
Respondの後に、Debug.Printで時刻を挟んでみると、マクロが実行されたかどうか分かるかと思います。

検証段階では、Send前にMsgBoxを出しておくのも良いかと思います。

=追記=
あ、コードのおかしなところに気付いてしまいました。

元コードはolResponseAcceptedになってますが、型指定するとolMeetingAcceptedが候補に出てきます。
どちらも定数値は3なので一応動きますが、直した方が良いです。

送受信するコードが探せず悩んでいるというのもあります。

Session.SendAndReceive(True or False)です。
Trueだとダイアログが出ます。最初はちゃんと動いているのを確かめるために、出しといたほうが良いですね。

会議のキャンセル通知が来た時点では

試したところ、消さないどころか、キャンセルに対してAcceptしてしまいます。
objItemのSubjectがCanceledから始まる場合は、別の処理にしておいた方が良いでしょう。

Comments

[TakefusaBoku]

返信が遅くなり大変申し訳ありません。
また、補足も頂きましてありがとうございます。

しっかり検証する時間が取れていないのできちんと返信が出来ないのですが、今の状況は症状が変わらずどう修正すればいいか迷っています。

今は、一切承諾が済んだメールが返信されませんし、仮の予定にしかなりません。

また、再度検証をして書き込みをいたしますが、ひとまず回答に対するお礼だけさせていただければと思い書き込みました。ありがとうございます。