Outlook-da bir nechta jildlardagi narsalarni dublikatsiz qanday tezda birlashtirish mumkin

Agar siz bir nechta Outlook papkalaridagi barcha elementlarni birlashtirmoqchi bo'lsangiz va dublikat yo'qligini kafolatlamoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Uni mantar kabi bajarishga yordam berish uchun u VBA kodidan foydalanmoqda.

Ba'zida siz bir nechta Outlook papkalaridagi narsalarni birlashtirishni xohlashingiz mumkin, masalan, bir nechta Outlook kontaktlari papkalarining barcha kontaktlarini birlashtirish. Bunday holatda, agar ushbu papkalar orasida takrorlangan kontaktlar mavjud bo'lsa, birlashma paytida dublikatlar avtomatik ravishda olib tashlanishi mumkinligiga umid qilishingiz kerak. Bunday holda, siz uni osonlik bilan amalga oshirish uchun quyidagi VBA kodidan foydalanishingiz mumkin.

Bir nechta jildlardagi elementlarni takroriy holda birlashtirish

1. S gatart bilan Outlook ilovangizni ishga tushiring.
2. Keyin, Outlook asosiy ekranidagi "Alt + F11" tugmachalarini bosish orqali Outlook VBA muharririga kirishingiz kerak.
3. Keyinchalik, "Microsoft Visual Basic for Applications" oynasida foydalanilmayotgan modulni ochishingiz kerak.
4. Shundan so'ng, ushbu modulga quyidagi VBA kodini nusxalashingiz kerak.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Keyinchalik Outlook so'l sozlamalarini tekshirishingiz kerak, so'l yoqilganligiga ishonch hosil qiling.
6. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, yangi modul oynasiga qayting.
• Keyin ushbu makrosni ishga tushirish uchun F5 tugmachasini bosing.
• Keyin birlashtiriladigan ikkita papkani tanlashingiz kerak. Birinchisi manba, ikkinchisi esa tarbirini oling.
• Shundan so'ng, Outlook barcha elementlarni manba papkasidan ko'chirishni boshlaydi tarbirini oling. Bundan tashqari, shu vaqt ichida dublikatlar avtomatik ravishda o'chiriladi.
• Oxir-oqibat, siz quyidagi skrinshot kabi o'chirilgan dublikatlar soni haqida xabar olishingiz mumkin:

Kichik xatolar katta halokatlarga olib kelishi mumkin

Ajoyib funktsiyalar miqdori bilan yuklangan bo'lishiga qaramay, Outlook hali ham xatolar va buzilishlarga moyil. Ehtimol, siz turli xil Outlook muammolariga duch kelgansiz. Ko'pgina foydalanuvchilar tasodifiy xatolarga e'tibor bermaslikka moyil. Biroq, bu Outlook faylini xavf ostiga qo'yadigan jiddiy Outlook ishdan chiqishiga olib keladigan kichik xatodir. Shunday qilib, siz kichik xatolarni e'tiborsiz qoldirmasligingiz kerak. Aksincha, ularni imkon qadar tezroq yo'q qilishingiz kerak. Bundan tashqari, kvartirani saqlab qo'yganingiz ma'qul PST ta'mirlash kabi vosita DataNumen Outlook Repair. Yuqori tiklanish tezligi tufayli ushbu yordamchi dastur o'z tengdoshlaridan ustun keldi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com