Outlook дээр давхардалгүйгээр олон хавтаснаас зүйлсийг хэрхэн хурдан нэгтгэх вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Хэрэв та олон Outlook фолдеруудаас бүх зүйлийг нэгтгэж, давхардаагүй байхыг хүсч байвал энэ нийтлэлд танилцуулсан аргыг ашиглаж болно. Энэ нь үйсэн шиг үүнийг хийхэд тань туслах VBA кодыг ашиглаж байна.

Заримдаа та хэд хэдэн Outlook фолдеруудын бүх харилцагчдыг нэгтгэх гэх мэт хэд хэдэн Outlook хавтаснуудын зүйлсийг нэгтгэхийг хүсч болно. Энэ тохиолдолд эдгээр хавтаснуудын дунд давхардсан харилцагчид байгаа бол нэгтгэх явцад давхардсан файлуудыг автоматаар устгана гэж найдаж байна. Ийм нөхцөлд та дараах VBA кодыг ашиглан үүнийг хялбархан хэрэгжүүлэх боломжтой.

Олон хавтаснаас зүйлсийг давхардалгүйгээр нэгтгэх

Start хамт, Outlook програмаа ажиллуулна уу.
Дараа нь та Outlook-ийн үндсэн дэлгэц дээрх "Alt + F11" товчийг дарж Outlook VBA засварлагч руу хандах хэрэгтэй.
Дараа нь "Microsoft Visual Basic for Applications" цонхонд ашиглагдаагүй модулийг нээх хэрэгтэй.
Үүний дараа та дараахь VBA кодыг энэ модуль руу хуулах хэрэгтэй.

'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

Дараа нь та Outlook-ын макро тохиргоог шалгаж, макро идэвхжүүлсэн эсэхийг шалгах хэрэгтэй.
Эцэст нь та хичээгээд үзээрэй.

Нэгдүгээрт, шинэ модулийн цонх руу буцна уу.
Дараа нь энэ макрог идэвхжүүлэхийн тулд F5 товчийг дарна уу.
Дараа нь та нэгтгэх хоёр фолдерыг сонгох хэрэгтэй. Эхнийх нь эх сурвалж, хоёр дахь нь tarнэгийг нь ав.
Үүний дараа Outlook нь бүх зүйлийг эх хавтас руу шилжүүлж эхэлнэ tarнэгийг ав. Мөн энэ хооронд хуулбарыг автоматаар устгах болно.
Эцэст нь, та доорх дэлгэцийн зураг шиг устгагдсан давхардлын тоог зааж өгөх мессеж хүлээн авч магадгүй.

Өчүүхэн жижиг алдаанууд их хэмжээний сүйрэлд хүргэж болзошгүй

Хэдийгээр Outlook нь маш олон тооны функцүүдээр дүүрэн байсан ч алдаа, эвдрэлд өртөмтгий хэвээр байна. Магадгүй та Outlook дээр янз бүрийн асуудалтай тулгарсан байх. Олон хэрэглэгчид санамсаргүй алдааг үл тоомсорлох хандлагатай байдаг. Гэсэн хэдий ч, энэ нь Outlook файлыг эрсдэлд оруулах ноцтой Outlook сүйрэлд хүргэдэг өчүүхэн алдаа юм. Тиймээс та жижиг алдаануудыг үл тоомсорлож болохгүй. Үүний оронд та тэдгээрийг аль болох хурдан арилгах хэрэгтэй. Цаашилбал, та байртай байсан нь дээр PST засвар гэх мэт хэрэгсэл DataNumen Outlook Repair. Сэргээх өндөр хурдаараа энэ хэрэгсэл нь үе тэнгийнхнээсээ давсан.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com