Outlook 에서 알 수 없는 발신자의 이메일을 특정 폴더로 이동하는 방법은 무엇인가요？

업무 중 연락처에 저장되지 않은 알 수 없는 발신자로부터 많은 이메일을 받을 수 있습니다. 이러한 이메일은 스팸이나 악성 메일일 가능성이 있으므로, 받은 편지함(Inbox) 대신 특정 폴더로 자동으로 이동시키고 싶을 수 있습니다. Outlook 에서 이 작업을 어떻게 해결할 수 있을까요？

규칙 생성을 통해 알 수 없는 발신자의 이메일을 특정 폴더로 이동하기

VBA 코드를 적용하여 알 수 없는 발신자의 이메일을 특정 폴더로 이동하기

---

규칙 생성을 통해 알 수 없는 발신자의 이메일을 특정 폴더로 이동하기

사실 알 수 없는 발신자의 이메일을 특정 폴더로 자동으로 이동하는 규칙을 생성할 수 있습니다。 다음 단계에 따라 진행하세요：

1。 알 수 없는 발신자의 이메일을 저장할 받은 편지함(Inbox) 아래에 새 폴더를 생성합니다。 다음 스크린샷과 같이 표시됩니다：

2。 그런 다음홈(Home)>규칙(Rules)>규칙 및 알림 관리(Manage Rules & Alerts)를 클릭합니다。 스크린샷 참조：

3.규칙 및 알림(Rules and Alerts)대화 상자에서새 규칙(New Rule)을 클릭합니다。이메일 규칙(E-mail Rules)탭 아래에 있습니다。 스크린샷 참조：

4。 그리고확인(OK)버튼을 클릭하여규칙 마법사(Rule Wizard)로 이동한 후，받은 메시지에 규칙 적용(Apply rule on message I receive)옵션을 선택합니다。빈 규칙부터 시작(Start from a blank rule)섹션 상자 내에 있습니다。 스크린샷 참조：

5。 그런 다음다음(Next)버튼을 클릭합니다。 이 단계에서는 아무 옵션도 선택하지 말고 바로다음(Next)버튼을 클릭하세요。 경고 창이 나타나면예(Yes)버튼을 클릭합니다。 스크린샷 참조：

6。 다음 대화 상자에서지정된 폴더로 이동(move it to the specified folder)옵션을 체크합니다。1 단계： 작업 선택(Step1: Select action(s))목록 상자 내에 있으며， 연결된 텍스트지정된(specified)을 클릭합니다。 열리는규칙 및 알림(Rules and Alerts)대화 상자에서 이메일을 이동할 폴더를 지정합니다。 스크린샷 참조：

7.확인(OK)버튼을 클릭하고 계속해서다음(Next)버튼을 클릭합니다。 이때 나타나는예외 조건이 있습니까？(Are there any exceptions)대화 상자에서발신자가 지정된 주소록에 포함되지 않는 경우를 제외(except if sender is in specified 주소록)옵션을 체크합니다。1 단계： 예외 조건 선택(Step1: Select exception(s))목록 상자 내에 있으며， 연결된 텍스트지정된(specified)을 클릭하면주소록 추가(Add 주소록)상자가 나타납니다。 예외 처리할 연락처가 포함된 연락처 폴더를 선택합니다。 스크린샷 참조：

8。 그런 다음추가(Add)버튼을 클릭하고다음(Next)을 클릭하여 마지막 마법사 대화 상자로 이동합니다。1 단계： 이 규칙의 이름 지정(Step1: Specify a name for this rule)텍스트 상자에 규칙 이름를 입력하고，이 규칙 켜기(Turn on this rule)옵션을 체크합니다。2 단계： 규칙 설정(Step2: Setup rule)옵션 섹션 내에 있습니다。 스크린샷 참조：

9。 그런 다음마침(Finish)및확인(Ok)버튼을 클릭하여 대화 상자를 닫습니다。 이제부터 알 수 없는 발신자로부터 오는 이메일은 자동으로 지정된 폴더로 이동됩니다。

---

VBA 코드를 적용하여 알 수 없는 발신자의 이메일을 특정 폴더로 이동하기

위의 방법이 번거롭게 느껴진다면， 여기서는 코드를 적용하여 더 빠르게 처리할 수 있습니다。

1.ALT + F11키를 누른 상태로 유지하여Microsoft Visual Basic for Applications창을 엽니다。

2.Microsoft Visual Basic for Applications창에서ThisOutlookSession을 더블클릭합니다。Project1(VbaProject.OTM)패널에서 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

VBA 코드： 알 수 없는 발신자의 이메일을 특정 폴더로 자동 이동：

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

3. 그런 다음 코드를 저장하고 코드 창을 닫은 후 Outlook 을 다시 시작하여 코드를 적용합니다。 이제부터 알 수 없는 발신자로부터 오는 이메일은 자동으로 ‘Unknown‘ 폴더로 이동됩니다。 스크린샷 참조：

참고:Unknown폴더는 알 수 없는 이메일이 수신될 때 자동으로 생성됩니다。 스크립트 내의 폴더 이름 “Unknow”를 다른 이름으로 변경할 수 있습니다。