Note: The other languages of the website are Google-translated. Back to English
English English

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

في 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

3. ثم احفظ هذا الرمز وأعد تشغيل Outlook لتنشيط هذا الرمز.

4. من الآن فصاعدًا ، عندما تحذف عنصرًا ، سيتم نقله إلى نوع المجلد المقابل الموجود أسفل حذف العناصر المجلد تلقائيًا.

5. لعرض النتيجة ، الرجاء الضغط في الجزء السفلي من جزء المجلدات ، ثم انقر فوق "موافق" المجلدات لتوسيع جميع المجلدات في الجزء ، انظر لقطات الشاشة:

 

 


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة