수퍼 유저로 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