VBA 기본값이 아닌 편지함에있는 메일에 회신하기

Question

Outlook에 많은 편지함이 있으며 기본이 아닌 편지함 (requests@address.com) 중 하나에서 수신 메일을 처리하도록 다음 코드를 설정했습니다.

코드가이 상자에 도착하는 모든 메일을 처리하고 콘텐츠에 대한 작업을 수행 한 다음 해당 메일에 대해 ReplyAll을 실행합니다.

문제는 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