လက်ခံရရှိသူများသည် သင့်အီးမေးလ်ကို ဖတ်ပြီးကြောင်း အတည်ပြုရန်အတွက် အီးမေးလ်ရေးသားသည့်အခါ ဖတ်ရှုကြောင်း လက်ခံရရှိကြောင်း တောင်းဆိုနိုင်ပါသည်။ ဤအခြေအနေတွင် သင့်မေးလ်ဘောက်စ်တွင် ထိုကဲ့သို့သော ဖတ်ရှုကြောင်း လက်ခံရရှိကြောင်း လက်ခံရရှိမှုများ ပြည့်နှက်နေနိုင်ပါသည်။ ယခု ဤပို့စ်တွင် ၎င်းတို့ကို အပြီးအပိုင် မည်သို့အသုတ်လိုက် ဖျက်ရမည်ကို သင်ကြားပေးပါမည်။
ဆောင်းပါးကိုဖတ်ပြီးနောက် "သင့် Outlook ရှိ ပေးပို့မှုလက်ခံဖြတ်ပိုင်းအားလုံးကို အစုလိုက် ဖျက်နည်း“ဖတ်ပြီးတဲ့ပြေစာအားလုံးကို အစုလိုက်ဖျက်ပစ်ဖို့ ချဉ်းကပ်နည်းကို သင်စဉ်းစားနိုင်ပါတယ်။ တကယ်တော့ ပြေစာနှစ်မျိုးကြား ထင်ရှားသော ကွာခြားချက်မှာ ၎င်းတို့၏ ဘာသာရပ်ဖြစ်သည်။ ပေးပို့မှုပြေစာတွင် အကြောင်းအရာတွင် "ပေးပို့ထားသည်" ပါသော်လည်း ဖတ်ပြေစာတွင် "ဖတ်ရန်" အစား ပါရှိသည်။ ထို့ကြောင့်၊ ဖတ်ပြီးသောပြေစာများအားလုံးကို batch ဖျက်ရန် အလားတူနည်းလမ်းကို အသုံးပြုနိုင်သည်။ အောက်ပါတို့၌ တိကျသေချာသော အဆင့်များကို သင်ပေးပါမည်။
အသုတ်လိုက်ဖတ်ပြီး ပြေစာအားလုံးကို ဖျက်ပါ။
- အစပိုင်းမှာ သင့်ရဲ့ Outlook ကို စတင်ပါ။
- ထို့နောက် "Alt + F11" မှတစ်ဆင့် Outlook VBA တည်းဖြတ်သူသို့ သွားပါ။သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
- ထို့နောက်၊ ဝင်းဒိုးအသစ်တွင် ဗလာ module တစ်ခုကိုဖွင့်ပြီး အောက်ပါကုဒ်ကို ၎င်းထဲသို့ထည့်ပါ။
Dim objOutlookFile As Outlook.Folder
Sub BatchDeleteAllReadReceipts()
Dim objStore As Outlook.Store
Dim objFolder As Outlook.Folder
Dim lTotalCount As Long
lTotalCount = 0
'Process all Outlook files
For Each objStore In Outlook.Application.Session.Stores
Set objOutlookFile = objStore.GetRootFolder
For Each objFolder In objOutlookFile.Folders
If objFolder.DefaultItemType = olMailItem Then
Call ProcessFolders(objFolder, lTotalCount)
End If
Next
Next
'Prompt you of the results
MsgBox lTotalCount & " read receipts are deleted!", vbInformation + vbOKOnly
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, lCount As Long)
Dim i As Long
Dim objDeliveryReceipt As Outlook.ReportItem
Dim objSubfolder As Outlook.Folder
Dim objDeletedItems As Outlook.Items
Dim objItem As Object
For i = objCurrentFolder.Items.Count To 1 Step -1
'Find read receipts
If (TypeOf objCurrentFolder.Items(i) Is ReportItem) And (Left(objCurrentFolder.Items(i).Subject, 5) = "Read:") Then
Set objDeliveryReceipt = objCurrentFolder.Items.Item(i)
objDeliveryReceipt.Delete
lCount = lCount + 1
'Permanently delete them
Set objDeletedItems = objOutlookFile.Folders("Deleted Items").Items
For Each objItem In objDeletedItems
If (TypeOf objItem Is ReportItem) And (Left(objItem.Subject, 5) = "Read:") Then
objItem.Delete
End If
Next
End If
Next
'Loop subfolders recursively
If objCurrentFolder.Folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.Folders
Call ProcessFolders(objSubfolder, lCount)
Next
End If
End Sub
- ပြီးနောက်၊ ပထမဆုံးလုပ်ရိုးလုပ်စဉ်ကို နှိပ်ပါ။
- နောက်ဆုံးအနေနဲ့ "F5" ခလုတ်ကိုနှိပ်ပါ။
- တစ်ချိန်တည်းတွင်၊ Macro သည် သင်၏ Outlook မှ ဖတ်ရှုထားသော လက်ခံဖြတ်ပိုင်းအားလုံးကို ဖျက်ပစ်ရန် လုပ်ဆောင်ပါလိမ့်မည်။
- ပြီးသွားသောအခါတွင်၊ အောက်ပါ screenshot ကဲ့သို့ ရလဒ်နှင့်ပတ်သက်သော အချက်ပြချက်တစ်ခု ရရှိမည်ဖြစ်သည်။
- လက်ရှိတွင် သင့်မေးလ်ဖိုင်တွဲများကို စစ်ဆေးနိုင်ပါသည်။ ဖတ်ပြီးသော ပြေစာများ အားလုံး ပျက်သွားပါသည်။
Outlook ဒေတာကို ကာကွယ်ပါ။
Outlook ဖိုင်သည် အကျင့်ပျက်ခြစားမှု ဖြစ်နိုင်ကြောင်း ဝန်ခံသော်လည်း ၎င်းကို ကာကွယ်ရန် ကျွန်ုပ်တို့ လုပ်ဆောင်နိုင်ပါသည်။ ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့သည် Outlook ဖိုင်ကို သေးငယ်သောအရွယ်အစားဖြင့် သိမ်းဆည်းထားသင့်ပြီး ၎င်းကို အန္တရာယ်ရှိသောအချက်များမှ ကာကွယ်ကာ ၎င်းကို ပုံမှန်အရန်သိမ်းဆည်းသင့်သည်။ နောက်ဆုံးအနေနဲ့၊ သင်ဟာ အားကောင်းတဲ့ ပြင်ပ PST ပြုပြင်ရေးကိရိယာလိုမျိုး ပြင်ဆင်ထားရင် ပိုကောင်းပါတယ်။ DataNumen Outlook Repair. ပြုပြင်ခြင်းတွင် ကြီးမားသော သက်ရောက်မှုများ ရှိလိမ့်မည်။ ယိုယွင်းနေသော Outlook ဖိုင်။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပြုပြင်ခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com


