Bagaimana cara memindahkan berbagai jenis item yang dihapus ke folder yang berbeda secara otomatis di Outlook?

Di Outlook, semua jenis item yang dihapus (email, tugas, kontak, dll.) akan dipindahkan ke folder Item Terhapus. Jika Anda ingin memindahkan item ke folder yang berbeda berdasarkan jenis item di bawah folder Item Terhapus seperti gambar di bawah ini, bagaimana Anda bisa membuatnya di Outlook?

Pindahkan berbagai jenis item yang dihapus ke folder yang berbeda secara otomatis dengan kode VBA

Kode VBA di bawah ini dapat membantu Anda untuk memindahkan item yang dihapus ke folder yang berbeda secara otomatis, lakukan seperti ini:

1. Luncurkan Outlook, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu, klik dua kali Sesi Pandangan ini dari Proyek-Proyek1 panel, dan kemudian, salin dan tempel kode di bawah ini ke dalam jendela kode kosong:

Kode VBA: Pindahkan berbagai jenis item yang dihapus ke folder yang berbeda secara otomatis

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

3. Kemudian, simpan kode ini, dan mulai ulang Outlook untuk mengaktifkan kode ini.

4. Mulai sekarang, saat Anda menghapus item, item tersebut akan dipindahkan ke jenis folder yang sesuai di bawah Deleted Items folder secara otomatis.

5. Untuk melihat hasilnya, silakan klik ikon di bagian bawah panel folder, lalu klik Folder untuk memperluas semua folder di panel, lihat tangkapan layar: