VBA မှတစ်ဆင့် သင့် Local Drive တွင် Outlook PST ဖိုင်များစာရင်းကို အမြန်ရယူနည်း

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

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

သင်၏ Local Drive တွင် Outlook PST ဖိုင်များစာရင်းကို ရယူပါ။

1. အစပြုရန်အတွက်၊ သင်၏ Outlook ပရိုဂရမ်ကိုဖွင့်ပါ။
2. ထို့နောက် ကျွန်ုပ်၏ယခင်ဆောင်းပါးကို ကိုးကား၍ သင်၏ Outlook VBA တည်းဖြတ်သူကို ဝင်ရောက်ကြည့်ရှုပါ – “သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
3. ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို “ThisOutlookSession” သို့မဟုတ် အသုံးမပြုသော module တစ်ခုသို့ ကူးယူပြီး ကူးထည့်ပါ။

Sub FindAllOutlookPSTFiles()
    Dim objWMIService As Object
    Dim objPSTFiles As Object
    Dim objPSTFile As Object
    Dim i As Long
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    'Find All PST Files on Drive C
    'You can change "C:" to the other drive letter as per your needs
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set objPSTFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' AND Drive = 'C:'")
 
    If objPSTFiles.count > 0 Then
 
       'Create a text file
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTextFile = "E:\PST_Files_on_Drive_C.txt"
       Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
       i = 1
 
       For Each objPSTFile In objPSTFiles
           'Input the PST file name, size and path into the text file
           objTextFile.Write (i & ". " & objPSTFile.filename & "." & objPSTFile.Extension & vbCrLf & " Size: " & objPSTFile.FileSize / 1024 & "KB" & vbCrLf & " Path: " & objPSTFile.Drive & objPSTFile.Path & vbCrLf & vbCrLf)
           i = i + 1
       Next
 
       objTextFile.Close
 
       'Open this text file
       Shell "C:\Windows\Notepad.exe " & strTextFile, 1
    Else
       MsgBox "There isn't PST file on this drive!", vbExclamation + vbOKOnly
    End If
End Sub

4. ၎င်းနောက်၊ သင်သည် ယခု macro ကို စမ်းသုံးနိုင်သည်။ “F5” ခလုတ်ကိုနှိပ်ရုံပါပဲ။
5. Macro ပြီးသွားသောအခါတွင်၊ အောက်ပါစခရင်ပုံစခရင်ပုံနှင့်တူသည့် စာသားဖိုင်ကို သင်မြင်ရလိမ့်မည်-

Outlook ပျက်ကျမှုများတွင် ပြုပြင်ရေးတူးလ်ကို အသုံးပြုပါ။

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

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

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