VBAデフォルト以外のメールボックスでのメールへの返信

Question

Outlookには多くのメールボックスがあり、デフォルト以外のメールボックス（requests@address.com）のいずれかで受信メールを処理するために次のコードを設定しています。

このボックスに到着したすべてのメールを処理し、コンテンツに対してアクションを実行してから、そのメールに返信します。

問題は、ReplyAllは送信者ではなく受信者（requests@address.com）としてのみメールボックスを含むことです。その結果、送信者は応答を得られませんが、ボックスはループ内で単独で送受信を続けます。元の人に複数の人がいる場合は、メールのコピーを取得しますが、送信者は取得しません。

ReplyAllを使用している場合、メールボックス自体ではなく受信者として送信者を正しく識別できるようにするにはどうすればよいですか？ 洞察力がありがとう！送信者を確保するため

Option Explicit 
Private WithEvents Items As Outlook.Items 

Private Sub Application_Startup() 
    Dim olNs As Outlook.NameSpace 
    Dim Inbox As Outlook.MAPIFolder 
    Dim olRecip As Recipient 

    Set olNs = Application.GetNamespace("MAPI") 
    Set olRecip = olNs.CreateRecipient("requests@address.com") '// Owner's Name or email address 
    Set Inbox = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox) 
    Set Items = Inbox.Items 
End Sub 

Private Sub Items_ItemAdd(ByVal Item As Object) 
    If TypeOf Item Is Outlook.MailItem Then 
     Debug.Print Item.Subject 
     Dim myReply As Outlook.MailItem 

     Set myReply = Item.ReplyAll 
     myReply.htmlbody = "Replied At: "& Now() 
     myReply.SentOnBehalfOfName = "requests@address.com" 
     myReply.Send 

    End If 
End Sub 

Answer 1

:)事前に感謝をmyReplyに含まれている、あなたはmyReply.ToにItem.SenderEmailAddressを追加することができます。

Item.SenderEmailAddressが "requests@address.com"の場合は終了できます。

Answer 2

この

Private Sub Items_ItemAdd(ByVal Item As Object) 
    Dim Recip As Recipient 

    If TypeOf Item Is Outlook.MailItem Then 

     Debug.Print Item.Subject 

     Set Item = Item.ReplyAll 
     Set Recip = olReply.Recipients.Add Item.SenderEmailAddress 
      Recip.Type = olTo 

     Item.HTMLBody = "Replied At: " & Now() 
     Item.display 
    End If 

End Sub