نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية دمج مجلدين دون تكرار في مجلد واحد في Outlook؟

في Outlook ، قد يكون لديك العديد من حسابات البريد الإلكتروني مع العديد من المجلدات ، وفي بعض الحالات ، تريد دمج مجلدين في واحد وإزالة العناصر المكررة. كيف يمكنك حل هذه الوظيفة بسرعة؟ في هذه المقالة ، أعرض رمز VBA لمساعدتك في التعامل معها في أسرع وقت ممكن في Outlook.

دمج مجلدين دون تكرار في واحد بواسطة رمز VBA

دمج مجلدات متعددة وإزالة العناصر المكررة مع Kutools لبرنامج Outlook

توحيد عدة مجلدات في مجلد واحد في التوقعات

في Outlook ، قد يكون هناك مجلدات متعددة ، من أجل دمجها بسهولة ، قد تحتاج إلى دمج مجلدات نفس النوع في مجلد واحد ، على سبيل المثال ، دمج جميع صناديق الوارد عبر الحسابات في مجلد واحد. ال توحيد المجلدات of كوتولس ل أوتلوك يعمل من أجل هذا. تحتاج فقط إلى نقرات سريعة ، وسيتم دمج المجلدات المحددة في واحد. انقر للحصول على الإصدار التجريبي المجاني من 45 في المستقبل!
وثيقة توحيد وإزالة مكررة 1
كوتولس ل أوتلوك: مع العشرات من مفيد توقعات الإضافية الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

دمج مجلدين دون تكرار في واحد بواسطة رمز VBA

لدمج مجلدين في واحد وإزالة العناصر المكررة ، يمكنك التعامل معها برمز VBA كخطوات تالية:

1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة

2. انقر مرتين على ThisOutlookSession تبدأ من Project1 في الجزء الأيمن ، ثم انسخ وألصق تحت الرمز إلى النص البرمجي الصحيح.

VBA: دمج مجلدين دون diplicates

Sub MergeOutlookFolders_WithoutDuplicates () 'UpdatebyExtendoffice20180521 Dim xSourceFolder As Outlook.Folder Dim xTargetFolder As Outlook.Folder Dim xCount، i As Dim Dim xItem As Object Dim xSourceItem As Object Dim xTargetItem As Object Dim xDartem باسم Scripting.Dictionary' Object Dim xStr As String On Error استئناف التالي تعيين xDictionary = New Scripting.Dictionary Set xSourceFolder = Application.Session.PickFolder Set xTargetFolder = Application.Session.PickFolder xCount = 0 إذا كان xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType ثم MsgBox "خطأ: لا يكون المجلدان في نفس النوع ! "، vbExclamation + vbOKOnly،" Kutools for Outlook "قم بإنهاء Sub End If لـ i = xSourceFolder.Items.Count إلى 1 Step -1 Set xSourceItem = xSourceFolder.Items.Items.Item (i) xSourceItem.Move xTargetFolder Next لـ i = xTargetFolder. Items.Count إلى 1 Step -1 Set xTargetItem = xTargetFolder.Items.Items.Item (i) حدد الحالة xTargetItem.Class حالة olMail باستخدام xTargetItem xStr = .Subject & .Body & .S entOn End with Case olAppointment with xTargetItem xStr = .Subject & .Start & .Duration & .Location & .Body End with Case olContact with xTargetItem xStr = .FullName & .Email1Address & .Email2Address & .Email3Address End with Case olTask ​​with xTargetItem xStr = .Subject & .StartDate & .DueDate & .Body End بـ End Select If xDictionary.Exists (xStr) = True Then xTargetItem.Delete xCount = xCount + 1 Else xDictionary.Add xStr، True End If Next i If xCount <> 0 Then MsgBox xCount & "إزالة المكررة عند دمج!" ، vbInformation + vbOKOnly ، "Kutools لـ Outlook" End If End Sub

وثيقة دمج المجلدات دون تكرار 1

3. انقر الأدوات > المراجع وفي مربع حوار popping ، تحقق مايكروسوفت البرمجة وقت التشغيل مربع.

وثيقة دمج المجلدات دون تكرار 2 دوك سهم لليمين وثيقة دمج المجلدات دون تكرار 3

4. انقر OK. الآن اضغط F5 مفتاح لتشغيل التعليمات البرمجية. يظهر مربع حوار لتذكيرك بتحديد المجلد الأول الذي تريد دمجه (ملاحظة: ستتم إزالة جميع العناصر الموجودة في المجلد الأول بعد الدمج مع المجلد الثاني).
وثيقة دمج المجلدات دون تكرار 4

5. انقر OK، في مربع حوار popping الثاني ، اختر المجلد الثاني الذي تريد مقارنته ودمجه.
وثيقة دمج المجلدات دون تكرار 5

6. انقر OK، الآن ، سيتم نقل كافة العناصر الموجودة في المجلد الأول إلى المجلد الثاني ، وستتم إزالة العناصر المكررة أيضًا.
وثيقة دمج المجلدات دون تكرار 6


دمج مجلدات متعددة وإزالة العناصر المكررة مع Kutools لبرنامج Outlook

إذا لم تكن على دراية بكود VBA ، فحاول استخدامه كوتولس ل أوتلوك، الوظيفة الإضافية في متناول اليد ، مع توحيد المجلدات و تكرار رسائل البريد الإلكتروني المرافق التي يمكن بسهولة وبسرعة التعامل مع هذه المهمة.

Kutools for Outlook , ويشمل 100 + ميزات قوية وأدوات ل ميكروسوفت أوتلوك شنومكس، شنومكس، شنومك ومكتب شنومكس.

تثبيت مجاني كوتولس فور أوتلوك، ثم قم بالخطوات التالية:

دمج عدة مجلدات

1. انقر كوتولس بلاس > توحيد المجلدات، ثم في دمج عدة مجلدات في واحد الحوار، انقر فوق إضافة: لإضافة المجلدات إلى القائمة التي سيتم دمجها ، اختر مجلدًا كمجلد الوجهة.
وثيقة توحيد وإزالة مكررة 1

2. انقر OK > OK. الآن تم دمج كل العناصر الموجودة في المجلدات المحددة في مجلد واحد محدد.
وثيقة توحيد وإزالة مكررة 2

إزالة العناصر المكررة

3. انقر Kutools > حذف مكرر > تكرار رسائل البريد الإلكتروني. ثم في رسائل مكررة الحوار ، تحقق من المجلد الذي تريد إزالة التكرارات.
وثيقة توحيد وإزالة مكررة 3

4. انقر التالى، في تكرار إعدادات الرسائل الحوار ، حدد المعايير التي تستخدمها لمقارنة رسائل البريد الإلكتروني ، ثم تحقق حذف الرسائل المكررة الخيار وحدد مقارنة للرسائل المكررة داخل مجلد واحد.
وثيقة توحيد وإزالة مكررة 4

5. انقر التالى > التالى، تم تصفية رسائل البريد الإلكتروني المكررة. انقر حذف الرسالة المكررة زر> OK لإزالة رسائل البريد الإلكتروني المكررة بنجاح.
وثيقة توحيد وإزالة مكررة 5 وثيقة دمج المجلدات دون تكرار 6


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

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.