알 수없는 보낸 사람의 전자 메일을 Outlook의 특정 폴더로 이동하는 방법은 무엇입니까?

일상 업무에서 연락처 폴더에 저장되지 않은 알 수없는 발신자로부터 많은 이메일을받을 수 있습니다. 정크 또는 악성 이메일 일 수 있습니다.이 경우 이러한 이메일을받은 편지함이 아닌 특정 폴더로 자동 이동하려고합니다. Outlook에서이 작업을 어떻게 해결할 수 있습니까?

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

VBA 코드를 적용하여 알 수없는 보낸 사람의 이메일을 특정 폴더로 이동

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

실제로 알 수없는 발신자의 이메일을 특정 폴더로 자동 이동하는 규칙을 만들 수 있습니다. 다음과 같이하십시오.

1. 받은 편지함 폴더 아래에 다음 스크린 샷과 같이 알 수없는 보낸 사람이 보낸 전자 메일을 저장할 새 폴더를 만듭니다.

알 수없는 문서 이동 이메일 1

2. 그런 다음 홈 > 규칙 > 규칙 및 경고 관리, 스크린 샷 참조 :

알 수없는 문서 이동 이메일 2

3. 에서 규칙 및 경고 대화 상자에서 새로운 규칙 아래 이메일 규칙 탭, 스크린 샷 참조 :

알 수없는 문서 이동 이메일 3

4. 클릭 OK 버튼으로 이동 규칙 마법사클릭 받은 메시지에 규칙 적용 옵션에서 빈 규칙에서 시작 섹션 상자, 스크린 샷 참조 :

알 수없는 문서 이동 이메일 4

5. 그런 다음 다음 보기 이 단계에서는 아무 옵션도 선택하지 말고 다음 보기 버튼을 누르시면 경고창이 뜹니다. 가능 버튼, 스크린 샷 참조 :

알 수없는 문서 이동 이메일 5

6. 그리고 다음 대화 상자에서 지정된 폴더로 이동 에서 옵션 1 단계 : 작업 선택 목록 상자를 클릭 한 다음 링크 된 텍스트를 클릭합니다. 지정, 그리고 열린 규칙 및 경고 대화 상자에서 이메일을 이동할 폴더를 지정하고 스크린 샷을 참조하십시오.

알 수없는 문서 이동 이메일 6

7. 딸깍 하는 소리 OK 버튼을 클릭하고 다음 보기 버튼, 이것에 예외가 있습니까? 대화 상자, 확인 보낸 사람이 지정된 주소록에있는 경우 제외 에서 옵션 1 단계 : 예외 선택 목록 상자를 클릭 한 다음 링크 된 텍스트를 클릭합니다. 지정및 주소 목록 추가 상자가 나타나면 제외 할 연락처가 포함 된 연락처 폴더를 선택합니다. 스크린 샷을 참조하십시오.

알 수없는 문서 이동 이메일 7

8. 그런 다음 추가 버튼을 클릭 한 다음 다음 보기 마지막 마법사 대화 상자로 이동하려면 1 단계 :이 규칙의 이름 지정 텍스트 상자 및 확인 이 규칙 사용 옵션에서 2 단계 : 설정 규칙 옵션 섹션. 스크린 샷보기 :

알 수없는 문서 이동 이메일 8

9. 그런 다음 마감재 과 Ok 버튼을 눌러 대화 상자를 닫습니다. 이제부터 알 수없는 발신자로부터 이메일이 오면 자동으로 특정 폴더로 이동합니다.

VBA 코드를 적용하여 알 수없는 보낸 사람의 이메일을 특정 폴더로 이동

위의 방법이 번거로울 수 있습니다. 여기서 코드를 적용하여 최대한 빨리 처리 할 수 있습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (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

알 수없는 문서 이동 이메일 9