Outlook에서 알 수 없는 발신자로부터 온 이메일을 특정 폴더로 이동하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

일상적인 업무 중에 연락처 폴더에 저장되지 않은 알 수 없는 발신자로부터 많은 이메일을 받을 수 있습니다. 이러한 이메일은 스팸 또는 악성 메일일 수 있으며, 이런 경우 받은 편지함 대신 특정 폴더로 자동으로 이동시키고 싶을 수 있습니다. Outlook에서 이 작업을 어떻게 해결할 수 있을까요?

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

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

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

사실, 알 수 없는 발신자로부터 온 이메일을 특정 폴더로 자동으로 이동시키기 위해 규칙을 만들 수 있습니다. 다음 단계를 따라주세요:

1. 아래 스크린샷과 같이 알 수 없는 발신자로부터 온 이메일을 담을 새 폴더를 받은 편지함 하위에 만듭니다:

doc move emails from unknown 1

2. 그런 다음 홈 > 규칙 > 규칙 및 경고 관리 를 클릭하세요. 스크린샷을 참조하세요:

doc move emails from unknown 2

3. 규칙 및 경고 대화 상자에서 이메일 규칙 탭 아래의 새 규칙 을 클릭하세요. 스크린샷을 참조하세요:

doc move emails from unknown 3

4. 확인 버튼을 클릭하여 규칙 마법사로 이동한 후, 빈 규칙에서 시작 섹션에서 내가 받은 메시지에 규칙 적용 옵션을 선택하세요. 스크린샷을 참조하세요:

doc move emails from unknown 4

5. 다음 버튼을 클릭하고, 이 단계에서는 아무 옵션도 선택하지 않고 바로 다음 버튼을 클릭하세요. 경고 창이 나타나면 예 버튼을 클릭하세요. 스크린샷을 참조하세요:

doc move emails from unknown 5

6. 다음 대화 상자에서 1단계: 조치 선택 목록 상자에서 지정된 폴더로 이동 옵션을 체크하고, 연결된 지정된 텍스트를 클릭한 후 열린 규칙 및 경고 대화 상자에서 이메일을 이동할 폴더를 지정하세요. 스크린샷을 참조하세요:

doc move emails from unknown 6

7. 확인 버튼을 클릭하고 계속해서 다음 버튼을 클릭하세요. 예외가 있습니까? 대화 상자에서 1단계: 예외 선택 목록 상자에서 보낸 사람이 지정된 주소록에 있는 경우 제외 옵션을 체크하고, 연결된 지정된 텍스트를 클릭하면 주소 목록 추가 상자가 나타납니다. 제외하고자 하는 연락처가 포함된 연락처 폴더를 선택하세요. 스크린샷을 참조하세요:

doc move emails from unknown 7

8. 추가 버튼을 클릭한 다음 마지막 마법사 대화 상자로 이동하기 위해 다음 을 클릭하세요. 1단계: 이 규칙에 이름 지정 텍스트 상자에 규칙 이름을 입력하고, 2단계: 규칙 옵션 설정 섹션에서 이 규칙 켜기 옵션을 체크하세요. 스크린샷을 참조하세요:

doc move emails from unknown 8

9. 완료 및 확인 버튼을 클릭하여 대화 상자를 닫습니다. 이제부터 알 수 없는 발신자로부터 온 이메일은 자동으로 특정 폴더로 이동됩니다.

아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료

Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.

이 기능은 다음을 지원합니다:

스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.

이 기능은 다음을 지원합니다:

스마트 이메일 답장
최적화된 콘텐츠
키워드 기반 초안 작성
지능적인 콘텐츠 확장
이메일 요약
다국어 번역

가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!

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

위의 방법이 번거로울 수 있습니다. 여기에서는 가능한 한 빨리 처리할 수 있도록 코드를 적용할 수 있습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Project1(VbaProject.OTM) 창에서 ThisOutlookSession 을 두 번 클릭하여 모듈을 열고, 다음 코드를 빈 모듈에 복사하여 붙여넣으세요.

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

doc move emails from unknown 9