Outlook에서 삭제된 항목의 유형에 따라 자동으로 다른 폴더로 이동하는 방법은?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서는 모든 종류의 삭제된 항목(메일, 항목, 【联系人】 등)이 삭제된 항목 폴더로 이동됩니다. 아래 스크린샷과 같이 삭제된 항목 폴더 아래에서 항목 유형에 따라 항목을 다른 폴더로 이동하고 싶다면, Outlook에서 어떻게 할 수 있을까요?

doc-move-different-deleted-items-1

VBA 코드를 사용하여 삭제된 항목의 유형에 따라 자동으로 다른 폴더로 이동하기

아래 VBA 코드는 삭제된 항목을 자동으로 다른 폴더로 이동하는 데 도움이 될 수 있습니다. 다음과 같이 하십시오:

1. Outlook을 실행한 다음, ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 그런 다음, Project-Project1 패널에서 ThisOutlookSession을 더블 클릭하고, 아래 코드를 빈 코드 창에 복사하여 붙여넣습니다:

VBA 코드: 삭제된 항목의 유형에 따라 자동으로 다른 폴더로 이동하기

Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
  Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
  Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
  Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
    End If
  Case "AppointmentItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
    End If
  Case "ContactItem", "DistListItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
    End If
  Case "TaskItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
    End If
  Case "JournalItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
    End If
  Case "NoteItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
    End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub

doc-move-different-deleted-items-2