การส่งต่ออีเมลในโฟลเดอร์เฉพาะเท่านั้น

ฉันวิ่งข้ามโพสต์ใน Super User ที่ตอบคำถามเกี่ยวกับการส่งต่ออีเมล 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