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

어수선한 받은 편지함에 압도당했습니까? 이 자습서에서는 효율성을 높이기 위해 Outlook에서 특정 사람이 포함된 전자 메일을 구성하는 세 가지 방법을 소개합니다.

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

특정인의 이메일을 자동으로 구성하는 검색 폴더 만들기

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

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

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

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

3. 에 홈 탭에서 무브 그룹, 클릭 규칙 > 항상 다음에서 메시지 이동: 특정 이메일 주소 및 / 또는 규칙 > 항상 메시지 이동 대상: 특정 이메일 주소 당신의 필요에 따라.

4. 팝업 규칙 및 경고 대화 상자에서 메시지를 이동할 폴더를 지정한 다음 클릭 OK.

5. 받은 편지함 또는 보낸 편지함 폴더에서 조건을 충족하는 이메일이 이제 방금 생성한 폴더로 이동됩니다. 그리고 향후 이메일 메시지도 조건을 충족하는 경우 폴더로 직접 이동합니다.

특정인의 이메일을 자동으로 구성하는 검색 폴더 만들기

메시지를 폴더로 이동하지 않고 쉽게 보고 싶을 때. Outlook에서 검색 폴더를 만들면 여러 폴더에서 지정된 기준과 일치하는 전자 메일 메시지를 찾을 수 있지만 원래 폴더에 보관할 수 있습니다.

1. 에 폴더 탭에서 신제품 그룹, 클릭 새 검색 폴더.

2. 팝업된 새 검색 폴더 대화 상자에서 다음과 같이 하십시오.

1) 검색 폴더 선택 상자의 사람 및 목록 목록에서 메일을 선택합니다. 특정인과 주고받는 메일및 특정인의 메일 필요에 따라
2) 검색 폴더 사용자 지정 상자에서 다음을 클릭합니다. 왼쪽 메뉴에서 주소 목록에서 사람을 선택합니다.
3) 이메일을 검색할 이메일 계정을 지정합니다.
4) 클릭 OK.

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

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

Outlook에 여러 개의 전자 메일 계정이 있고 특정 사람에 대해 각 전자 메일 계정의 폴더를 일괄적으로 만들려는 경우 VBA 방법을 사용하여 전자 메일 계정의 받은 편지함 또는 보낸 편지함 폴더에서 특정 사람이 포함된 메시지를 이동할 수 있습니다. 다음과 같이 하십시오.

1. Outlook에서 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 > 보안 센터, 다음을 클릭하십시오 보안 센터 설정.

2. 팝업 대화 상자에서 매크로 설정, 고르다 모든 매크로 사용, 확인 설치된 추가 기능에 매크로 보안 설정 적용.

3. 클릭 OK 버튼을 눌러 대화 상자를 닫습니다.

4. 누르세요 다른 + 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) 'Replace "olFolderInbox" with "olFolderSentMail" if you want to find messages in Sent folders
  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, "") <> 0 Then 'Replace the email address in double quotes
        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" '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(olFolderSentMail) 'Replace "olFolderInbox" with "olFolderSentMail" if you want to find messages in Sent folders
  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   'To find CC recipients. Replace "olCC" with "olBCC" to find BCC recipients
            xSenderAddress = xSenderAddress & ", " & xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
            If xSenderAddress = "" Then
              xSenderAddress = xSenderAddress & ", " & xRecipient.Address
            End If
'        End If
      Next
      If VBA.InStr(xSenderAddress, "") <> 0 Then 'Replace the email address in double quotes
        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

참고 :