특정 폴더에서만 전자 메일 전달

수퍼 유저로 Outlook 전자 메일 전달에 관한 질문을 게시 한 게시물을 발견했습니다. 한 사용자가 활용할 스크립트를 제공했습니다.

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "email@email.com"
myFwd.Send
Set myFwd = Nothing 
End Sub

이것은 나에게 좋았지 만 특정 폴더에서만 전자 메일을 자동으로 전달하려는 경우 어떻게 작동합니까? 폴더에는 이미 수신시 전자 메일이 자동 전송됩니다. 어떤 아이디어?

규칙을 사용하여 전자 메일을 폴더로 리디렉션한다고 가정하면 동일한 규칙에서이 스크립트를 실행할 수 있으므로 동일한 조건에서만 적용됩니다.

그렇지 않으면 현재 폴더에서 읽지 않은 메시지를 찾아 전달할 수 있도록 매크로를 변경할 수 있습니다. 그런 다음 주기적으로 수동으로 매크로를 실행하여 (주기 쉽도록 단축키를 지정하십시오) 해당 폴더에서 주기적으로 매크로를 실행하면 포워드가 수행됩니다.

Sub ForwardUnreadInFolder()
  Dim CurItem As Outlook.MailItem
  Dim myFwd As Outlook.MailItem
  Dim strMsg As String

  Set CurFolder = Application.ActiveExplorer.CurrentFolder
  Set AllItems = CurFolder.Items
  NumItems = CurFolder.Items.Count

  For i = 1 To NumItems

    DoEvents

    Set CurItem = AllItems.Item(i)

    If (CurItem.UnRead) Then

        Set myFwd = CurItem.Forward
        myFwd.Recipients.Add "email@example.com"
        myFwd.Send
        Set myFwd = Nothing

    End If

  Next

   MsgBox "Done"
End Sub