Outlook에서 특정 참조 수신자와 함께 전자 메일을 자동으로 이동하는 방법

Outlook 솔루션 2025 년 9 월 29 일

In reality, most of you may hope to create an Outlook rule to auto move the emails with specific CC recipients. But Outlook rule doesn’t support checking CC recipients. So this article will teach you how to realize it with Outlook VBA.

분명히 특정 참조 수신자를 검색하는 Outlook 규칙을 만드는 것은 불가능합니다. 다음 스크린 샷과 같이 수신 된 이메일의 경우 자신의 이름이 CC 상자에 있는지 만 확인할 수 있습니다. 마찬가지로 보낸 이메일의 경우에도 CC 확인란을 선택하는 규칙 조건이 없습니다.

따라서 특정 참조 수신자가있는 전자 메일을 자동으로 이동하도록 Outlook을 구성하려면 다른 방법을 찾아야합니다. 그때. 여기에서는 Outlook VBA를 통해이를 달성하는 방법을 알려드립니다.

특정 참조 수신자와 함께 보낸 이메일 자동 이동

먼저 "개발자"탭으로 이동하여 "Visual Basic"버튼을 클릭합니다.
그런 다음 "ThisOutlookSession"프로젝트를 열고 다음 VBA 코드를 여기에 복사하십시오.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim ccRecip As String
    Dim desFolder As Folder
 
    'Replace "test" with your desired CC'd recipient name or address
    ccRecip = "test"
    'The "Test" folder is a subfolder under "Sent Items" folder
    Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
 
    If InStr(LCase(Mail.CC), ccRecip) > 0 Then
       Mail.Move desFolder
    End If
End Sub

이후에이 코드에 서명하고 평소와 같이 매크로 설정을 변경해야합니다.
마지막으로 "Visual Basic"창을 종료 할 수 있습니다. 그 후 특정 참조 수신자가있는 이메일은 지정된 메일 폴더로 이동됩니다.

수신 된 이메일을 특정 참조 수신자로 자동 이동

위의 VBA 코드는 특정 CC 수신자와 함께 보낸 이메일을 이동하기위한 것이므로 수신 된 이메일에서 특정 CC 수신자를 찾아서 이동하려면 대신 다음 코드를 사용해야합니다.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim Recips As Recipients
    Dim Recip As Recipient
    Dim ccRecip As String
    Dim desFolder As Folder
 
    Set Recips = Mail.Recipients
    'Replace "test" with the specific words in your desired CC recipient address
    ccRecip = "test"
 
    For Each Recip In Recips
        If Recip.Type = olCC Then
           If InStr(LCase(Recip.Address), ccRecip) > 0 Then
              'The "Test" folder is a subfolder under "Inbox" folder
              Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
              Mail.Move desFolder
           End If
        End If
    Next
End Sub

Outlook 손상에 대해 잘 준비하십시오.

Outlook은 기능이 풍부하지만 여전히 손상에 영향을받지 않습니다. 따라서 모든 잠재적 위험에 대해 경계해야합니다. 의심 할 여지없이 중요한 단계는 Outlook 데이터에 대한 일관된 최신 백업을 만드는 것입니다. 또한, 당신은 손상된 Outlook 복구 도구 근처. 백업과 Scanpst.exe가 모두 실패하는 경우 유용합니다.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 수리 SQL Server mdf 파일 오류 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM