-1

特定のアドレスがアウトバウンドメッセージの「宛先」または「CC」フィールドにあるかどうかに基づいて、アウトバウンド電子メールの返信先アドレスを設定しようとしています。ここまでは、「SetmyCounter...」行の「Objectrequired」エラーに遭遇しただけです。任意の支援をいただければ幸いです。

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
4

2 に答える 2

0

あなたのエラーはオンです

Set myCounter = oMyItem.Recipients.Count

VBはSet、整数を取得しているときにオブジェクト（クラス）を割り当てるために使用するためです。
だからあなたはそれをに変えることができます

Dim myCounter As Integer

myCounter = oMyItem.Recipients.Count
于 2012-04-10T14:43:15.223 に答える
0

myCounterは整数として宣言されているため、。は必要ありませんSet。

交換

Set myCounter = oMyItem.Recipients.Count

と

myCounter = oMyItem.Recipients.Count
于 2012-04-10T14:55:50.297 に答える