특정 사람을 포함하는 이메일을 정리하기 위해 Outlook에서 폴더를 만드는 방법은 무엇입니까?

Author: Amanda Li Last Modified: 2025-08-06

복잡한 받은 편지함에 압도당하고 있습니까? 이 튜토리얼에서는 특정 사람을 포함하는 이메일을 정리하기 위한 세 가지 방법을 소개하겠습니다. 이를 통해 Outlook에서 더 나은 효율성을 얻을 수 있습니다.

특정 사람의 이메일을 항상 생성된 폴더로 이동

특정 사람의 이메일을 자동으로 정리하기 위한 검색 폴더 만들기

VBA를 사용하여 모든 이메일 계정에 대한 이메일을 정리하기 위한 폴더 일괄 생성

특정 사람의 이메일을 항상 생성된 폴더로 이동

1. 이메일을 정리할 폴더를 만들 이메일 계정을 마우스 오른쪽 버튼으로 클릭하고, 마우스 오른쪽 버튼 메뉴에서 "새 폴더"를 선택한 다음 폴더 이름을 지정합니다.

the steps of always moving emails containing certain people to a created folder

2. 받은 편지함 또는 보낸 편지함 폴더에서 특정 이메일 주소를 포함하는 이메일 중 하나를 선택하여 해당 이메일을 생성된 폴더로 모두 이동합니다.

3. "홈" 탭에서 "이동" 그룹의 "규칙" > "항상 다음의 메시지 이동: 특정 이메일 주소" 및/또는 "규칙" > "항상 다음의 메시지로 이동: 특정 이메일 주소"를 필요에 따라 클릭합니다.

4. 팝업되는 규칙 및 알림 대화 상자에서 메시지를 이동할 폴더를 지정한 다음 "확인"을 클릭합니다.

5. 조건을 충족하는 받은 편지함 또는 보낸 편지함 폴더의 이메일은 이제 방금 생성한 폴더로 이동됩니다. 또한 조건을 충족하는 미래의 이메일 메시지도 동일하게 해당 폴더로 직접 이동됩니다.

특정 사람의 이메일을 자동으로 정리하기 위한 검색 폴더 만들기

메시지를 폴더로 이동하지 않고 쉽게 볼 수만 있게 하고 싶다면, Outlook에서 검색 폴더를 생성할 수 있습니다. 검색 폴더를 사용하면 여러 폴더에 걸쳐 지정된 기준과 일치하는 이메일 메시지를 찾을 수 있지만, 원래 폴더에 남겨둡니다.

1. "폴더" 탭에서 "새로 만들기" 그룹의 "새 검색 폴더"를 클릭합니다.

the steps of creating a search folder to automatically organize emails for specific people

2. 팝업되는 새 검색 폴더 대화 상자에서 다음 단계를 수행하십시오.

1) 검색 폴더 선택 상자에서 "사람 및 목록으로부터의 메일" 목록에서 "특정 사람에게서 온 메일", 또는 "특정 사람에게서 온 메일"을 필요에 따라 선택합니다.
2) 검색 폴더 사용자 정의 상자에서 "선택"을 클릭하여 주소록에서 사람을 선택합니다.
3) 이메일을 검색할 이메일 계정을 지정합니다.
4) "확인"을 클릭합니다.

3. 검색 폴더 아래에 조건을 충족하는 이메일 메시지를 포함하는 검색 폴더가 생성됩니다.

VBA를 사용하여 모든 이메일 계정에 대한 이메일을 정리하기 위한 폴더 일괄 생성

Outlook에 여러 이메일 계정이 있고 각 이메일 계정에 대해 특정 사람들을 위한 폴더를 일괄적으로 생성하려면 VBA 방법을 사용하여 이메일 계정의 받은 편지함이나 보낸 편지함에서 특정 사람들의 메시지를 이동할 수 있습니다. 다음과 같이 진행하십시오.

1. Outlook에서 "파일" > "옵션" > "신뢰 센터"를 클릭한 다음 "신뢰 센터 설정"을 클릭합니다.

2. 팝업 대화 상자에서 "매크로 설정"으로 전환하고 "모든 매크로 사용"을 선택한 후 "설치된 추가 기능에 매크로 보안 설정 적용"을 체크합니다.

3. 대화 상자를 닫기 위해 "확인" 버튼을 클릭합니다.

4. "Alt" + "F11" 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

5. "삽입" > "모듈"을 클릭합니다. 그런 다음 위의 모듈 창에 다음 VBA 코드 중 하나를 복사합니다.

VBA 코드 1: 모든 이메일 계정의 받은 편지함에서 특정 발신자의 이메일을 정리하기 위한 폴더 일괄 생성

Sub MailArchiveSenderInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder" 'Replace "NewFolder" with desired folder name
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      If xMail.Sender.Type = "EX" Then
        xSenderAddress = xMail.Sender.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
      Else
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If xSenderAddress = "" Then
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

참고: 위의 VBA 코드의 12행, 16행, 35행에 있는 주석에 따라 특정 부분을 교체해야 합니다.

VBA 코드 2: 모든 이메일 계정의 받은 편지함에서 특정 수신자의 이메일을 정리하기 위한 폴더 일괄 생성

Sub MailArchiveRecipientInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder"
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      For Each xRecipient In xMail.Recipients
'        If xRecipient.Type = olCC Then
            xSenderAddress = xSenderAddress & ", " & xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
            If xSenderAddress = "" Then
              xSenderAddress = xSenderAddress & ", " & xRecipient.Address
            End If
'        End If
      Next
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

참고: