Outlook 2007のVBAアドレス一覧

Question

特定のアドレスが送信メッセージの "To"または "CC"フィールドにあるかどうかに基づいて、送信メールの返信先アドレスを設定しようとしています。私はこれまで、 "Set myCounter ..."行の "Object required"エラーでつまずくだけでした。どのような援助をいただければ幸いです：あなたは、整数を取得している間、VBは、オブジェクト（クラス）を割り当てるためにSetを使用しているため

Option Explicit 

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
Dim oMyItem As Outlook.MailItem 
Dim i As Integer 
Dim AddressEntry As AddressEntry 
Dim myCounter As Integer 
Set oMyItem = Item 
Set myCounter = oMyItem.Recipients.Count 

For i = 1 To myCounter 
    Set AddressEntry = oMyItem.Recipients(i).AddressEntry 
    If (AddressEntry = "someuser@someaddress") Then 
     oMyItem.ReplyRecipients.Add "replytouser@someaddress" 
    End If 
Next i 
End Sub 

Answer 1

あなたのエラーが

Set myCounter = oMyItem.Recipients.Count 

にあります！
だから、Setの必要がないので、Integer型として宣言されています

Dim myCounter As Integer 

myCounter = oMyItem.Recipients.Count 

Answer 2

myCounterにそれを変更することができます。

myCounter = oMyItem.Recipients.Count