|
分類:[Microsoft Office 全般]
メールサーバーに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':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
|