Outlook'ta farklı türlerde silinen öğeleri otomatik olarak farklı klasörlere nasıl taşıyabilirim?

Outlook'ta her türlü silinen öğe (postalar, görev, kişiler vb.) Silinmiş Öğeler klasörüne taşınacaktır. Aşağıdaki ekran görüntüsü gibi Silinmiş Öğeler klasörü altındaki öğe türüne göre öğeleri farklı klasörlere taşımak istiyorsanız, bunu Outlook'ta nasıl yapabilirsiniz?

VBA koduyla farklı türlerde silinen öğeleri otomatik olarak farklı klasörlere taşıyın

Aşağıdaki VBA kodu, silinen öğeleri otomatik olarak farklı klasörlere taşımanıza yardımcı olabilir, lütfen şu şekilde yapın:

1. Outlook'u başlatın ve ardından basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Ardından çift tıklayın Bu OutlookOturumu itibaren Proje-Proje1 bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş kod penceresine yapıştırın:

VBA kodu: Farklı türlerde silinen öğeleri otomatik olarak farklı klasörlere taşıyın

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. Ardından, bu kodu kaydedin ve bu kodu etkinleştirmek için Outlook'u yeniden başlatın.

4. Şu andan itibaren, bir öğeyi sildiğinizde, altındaki ilgili klasör türüne taşınacaktır. Silinmiş öğeler otomatik olarak klasör.

5. Sonucu görmek için lütfen tıklayın klasör bölmesinin altındaki simgesine ve ardından Klasörler bölmedeki tüm klasörleri genişletmek için ekran görüntülerine bakın: