كيفية نقل أنواع مختلفة من العناصر المحذوفة إلى مجلدات مختلفة تلقائيًا في Outlook؟

المؤلف: شياويانغ آخر تعديل: 2022-10-19

في Outlook ، سيتم نقل جميع أنواع العناصر المحذوفة (رسائل البريد والمهمة وجهات الاتصال وما إلى ذلك) إلى مجلد العناصر المحذوفة. إذا كنت تريد نقل العناصر إلى مجلدات مختلفة بناءً على نوع العنصر الموجود ضمن مجلد العناصر المحذوفة كما هو موضح أدناه ، فكيف يمكنك إجراؤه في Outlook؟

انقل أنواعًا مختلفة من العناصر المحذوفة إلى مجلدات مختلفة تلقائيًا باستخدام رمز VBA

يمكن أن يساعدك رمز VBA أدناه في نقل العناصر المحذوفة إلى مجلدات مختلفة تلقائيًا ، يرجى القيام بذلك على النحو التالي:

1. قم بتشغيل Outlook ، ثم اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم ، انقر نقرًا مزدوجًا هذه الجلسة من مشروع- مشروع 1 جزء ، ثم انسخ الكود أدناه والصقه في نافذة الكود الفارغة:

رمز فبا: انقل أنواعًا مختلفة من العناصر المحذوفة إلى مجلدات مختلفة تلقائيًا

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