VBA မှတစ်ဆင့် Folder တစ်ခုရှိ Duplicate Outlook ပစ္စည်းများကို အမြန်ဖယ်ရှားနည်း

Outlook ဖြေရှင်းချက် စက်တင်ဘာလ 29, 2025

Outlook မှာ ထပ်နေတဲ့ item တွေကို ဖယ်ရှားချင်ရင် တစ်ခုပြီးတစ်ခု ရှာဖွေဖယ်ရှားတာက အတော်လေး ခက်ခဲပါလိမ့်မယ်။ ဒီပို့စ်က Outlook VBA နဲ့ ဘယ်လိုလုပ်ရမလဲဆိုတာ သင်ကြားပေးပါလိမ့်မယ်။

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

ဖိုင်တွဲတစ်ခုရှိ မိတ္တူပွားနေသော Outlook အရာများကို ဖယ်ရှားပါ။

အစပိုင်းမှာ Outlook ပရိုဂရမ်ကိုဖွင့်ပါ။
ထို့နောက် “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
နောက်ဆက်တွဲ VBA တည်းဖြတ်ဝင်းဒိုးတွင်၊ အသုံးပြုနေသော မော်ဂျူးတစ်ခုကို ဖွင့်ရန် သို့မဟုတ် “ထည့်သွင်းရန်” > “မော်ဂျူး” ဖြင့် မော်ဂျူးအသစ်ကို တိုက်ရိုက်ထည့်သွင်းရန် နှစ်ချက်နှိပ်ပါ။
နောက်တစ်ခု ကော်ပီကူးပြီး အောက်ပါ VBA ကုဒ်များကို မော်ဂျူးထဲသို့ ကူးထည့်ပါ။

Sub RemoveDuplicateItems()
    Dim objFolder As Folder
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("scripting.dictionary")
    'Select a source folder
    Set objFolder = Outlook.Application.Session.PickFolder

    If Not (objFolder Is Nothing) Then
       For i = objFolder.Items.Count To 1 Step -1
           Set objItem = objFolder.Items.Item(i)
 
           Select Case objFolder.DefaultItemType
                  'Check email subject, body and sent time
                  Case olMailItem
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  'Check appointment subject, start time, duration, location and body
                  Case olAppointmentItem
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  'Check contact full name and email address
                  Case olContactItem
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  'Check task subject, start date, due date and body
                  Case olTaskItem
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           'Remove the duplicate items
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
           Else
              objDictionary.Add strKey, True
           End If
       Next i
    End If
End Sub

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

အားနည်းချက်ရှိသော PST ဒေတာကို ကာကွယ်ပါ။

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

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

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

မှတ်ချက်များကိုပိတ်ထားကြသည်။