Outlookの再送信フォームにてマクロで宛先を取得する方法について

質問

Outlookの再送信フォームにてマクロで宛先を取得する方法について

メールサーバーにEXCHANGE SERVER、メールクライアントにOutlook 2003を利用しています。
TOとCCに社外ドメインのアドレスが含まれていないか送信前にチェックするマクロを作成しました。
通常のメールの送信時には問題なく動作しているのですが、
配信不能のメールを再送信する際にエラーが出ます。

再送信フォームにて、メールの送信前に宛先を取得する方法をご存知の方がいらっしゃれば、
ご回答をお願いいたします。

【ソース】
ThisOutlookSessionにマクロを記述

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
　　Dim i As Integer

　　For i = 1 To Item.Recipients.Count　　　← この行でエラーが出ます。
　　　　With Item.Recipients.Item(i)

　　　　～　省略　～

　　　　End With
　　Next
End Sub

【エラーメッセージの内容】
実行時エラー '438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

回答No.1

10CubeLeaf

For 文の前に以下のような記述を追加してみてください。

If TypeName(Item) = "ReportItem" Then
Item.Save
Set Item = Session.GetItemFromID(Item.EntryID)
End If

お礼

お返事が遅くなり申し訳ありません。
いまテストができる環境がないので、次の機会に早速試してみます。
ありがとうございました。