Outlook တွင် ထပ်တူများမပါဘဲ ဖိုင်အများအပြားမှ အရာများကို အမြန်ပေါင်းစည်းနည်း

သင်သည် များစွာသော Outlook ဖိုင်တွဲများမှ အရာများအားလုံးကို ပေါင်းစည်းပြီး ထပ်တူမကျကြောင်း အာမခံလိုပါက၊ ဤဆောင်းပါးတွင် ဖော်ပြထားသော နည်းလမ်းကို အသုံးပြုနိုင်ပါသည်။ ၎င်းသည် ဖော့တစ်ခုကဲ့သို့ ပြီးမြောက်အောင်မြင်အောင် ကူညီရန် VBA ကုဒ်ကို အသုံးပြုနေသည်။

တစ်ခါတစ်ရံတွင် သင်သည် Outlook အဆက်အသွယ်များ ဖိုင်တွဲများစွာ၏ အဆက်အသွယ်အားလုံးကို ပေါင်းစည်းခြင်းကဲ့သို့သော Outlook ဖိုင်တွဲများစွာမှ အရာများကို ပေါင်းစည်းလိုနိုင်သည်။ ဤအခြေအနေမျိုးတွင်၊ ဤဖိုင်တွဲများကြားတွင် မိတ္တူပွားနေသောအဆက်အသွယ်အချို့ရှိနေပါက၊ ပေါင်းစည်းစဉ်အတွင်း ထပ်တူများကို အလိုအလျောက်ဖယ်ရှားနိုင်မည်ဟု သင်မျှော်လင့်ရပါမည်။ ဤအခြေအနေတွင်၊ သင်သည် လွယ်လွယ်ကူကူ သိရှိနိုင်ရန် အောက်ပါ VBA ကုဒ်ကို အသုံးပြုနိုင်သည်။

ထပ်တူများမပါဘဲ ဖိုင်တွဲများစွာမှ အရာများကို ပေါင်းစည်းပါ။

1. ၎tart ဖြင့် သင်၏ Outlook အက်ပ်ကို စတင်ပါ။
2. ထို့နောက်၊ Outlook ပင်မစခရင်ရှိ “Alt + F11” ခလုတ်ကိုနှိပ်ခြင်းဖြင့် Outlook VBA တည်းဖြတ်သူကို ဝင်ရောက်ကြည့်ရှုသင့်သည်။
3. ထို့နောက်၊ "Microsoft Visual Basic for Applications" window တွင်၊ သင်အသုံးမပြုသော module တစ်ခုကိုဖွင့်ရန်လိုအပ်သည်။
4. ထို့နောက်၊ သင်သည် အောက်ပါ VBA ကုဒ်ကို ဤ module သို့ ကူးယူသင့်သည်။

'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. Macro ကို ဖွင့်ထားကြောင်း သေချာစေရန် သင်၏ Outlook မက်ခရိုဆက်တင်များကို နောက်ပိုင်းတွင် စစ်ဆေးရန် လိုအပ်သည်။
6. နောက်ဆုံးတော့ သင်ကြိုးစားကြည့်နိုင်ပါတယ်။

• ပထမဦးစွာ module အသစ် window သို့ပြန်သွားပါ။
• ဤမက်ခရိုကိုစတင်ရန် နောက်တစ်ခု F5 ခလုတ်ကိုနှိပ်ပါ။
• ထို့နောက် ပေါင်းစည်းရန် ဖိုဒါနှစ်ခုကို သင်ရွေးချယ်ရပါမည်။ ပထမတစ်ခုသည် အရင်းအမြစ်တစ်ခုဖြစ်ပြီး ဒုတိယတစ်ခုသည် အရင်းအမြစ်ဖြစ်သည်။ tarတစ်ခုရ
• ထို့နောက်တွင်၊ Outlook သည် အရင်းအမြစ်ဖိုင်တွဲမှ အရာများအားလုံးကို အဆိုပါနေရာသို့ စတင်ရွှေ့ပေးမည်ဖြစ်သည်။ tarတစ်ခုရယူပါ။ ထို့အပြင်၊ ဤအတောအတွင်း၊ ထပ်တူများကို အလိုအလျောက် ဖယ်ရှားပါမည်။
• အဆုံးစွန်အားဖြင့်၊ အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ ဖယ်ရှားလိုက်သော ထပ်တူများအရေအတွက်ကို အချက်ပြသည့် စာတိုတစ်စောင်ကို သင်လက်ခံရရှိနိုင်ပါသည်။

သေးငယ်သော အမှားများသည် ကြီးမားသော ပျက်စီးမှုများဆီသို့ ဦးတည်သွားစေနိုင်သည်။

အလွန်ကောင်းမွန်သော လုပ်ဆောင်ချက်များစွာဖြင့် တင်ဆောင်ထားသော်လည်း Outlook သည် အမှားအယွင်းများနှင့် အကျင့်ပျက်ခြစားမှုများကို ခံရနိုင်ဆဲဖြစ်သည်။ အမျိုးမျိုးသော Outlook ပြဿနာများကို သင်ကြုံတွေ့ဖူးပေမည်။ သုံးစွဲသူအများအပြားသည် ကျပန်းအမှားများကို လျစ်လျူရှုရန် လိုလားကြသည်။ သို့သော်၊ ၎င်းသည် Outlook ဖိုင်ကို အန္တရာယ်ဖြစ်စေမည့် ပြင်းထန်သော Outlook ပျက်စီးမှုဖြစ်စေသည့် သေးငယ်သောအမှားတစ်ခုဖြစ်သည်။ ဒါကြောင့် သေးငယ်တဲ့ အမှားတွေကို လျစ်လျူမရှုသင့်ပါဘူး။ ယင်းအစား ၎င်းတို့ကို တတ်နိုင်သမျှ အမြန်ဆုံး ဖယ်ရှားသင့်သည်။ ထို့အပြင်၊ သင်သည် အရည်အချင်းရှိအောင် ထိန်းထားသင့်သည်။ PST ပြုပြင်ခြင်း။ အစရှိတဲ့ tool တွေ၊ DataNumen Outlook Repair. ၎င်း၏မြင့်မားသောပြန်လည်နာလန်ထူမှုနှုန်းအားဖြင့်၊ ဤအသုံးဝင်မှုသည်၎င်း၏လုပ်ဖော်ကိုင်ဖက်များအပေါ်တွင်သာရှိသည်။

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပျက်စီးနေသည်။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com