Таны Outlook дээр олон Outlook PST файлуудыг нэг дор хэрхэн нээх вэ

Анхдагч байдлаар Outlook нь хэд хэдэн Outlook PST файлыг бөөнөөр нээхэд таныг дэмждэггүй. Энэ нийтлэлд бид олон тооны Outlook өгөгдлийн файлуудыг Outlook дээр нэг дор задлахад VBA ашиглан хэрхэн ашиглахыг заах болно.

Та Outlook дээрээ нэмэлт Outlook PST файл нээхийг хүсч байгаа бол ерөнхийдөө танд хоёр арга байна. Үүний нэг нь "Бүртгэлийн тохиргоо" харилцах цонх руу ороод "Мэдээллийн файлууд" таб руу шилжиж, "Нэмэх" товчийг дарж Outlook файлыг нээнэ үү. Нөгөөх нь Outlook цонхноос "File" цэс рүү ороод "Open" табын доор байрлах "Open Outlook Data File" товчийг дарж файл сонгоно уу. Эдгээр нь хоёулаа ашиглахад тохиромжтой. Гэсэн хэдий ч, хоёр арга зам нь зөвхөн нэг удаа PST файл нээх боломжийг олгодог. Танд хэдийг нээхийг зөвшөөрөхгүй. Тиймээс, хэрэв та нэгээс олон PST файлыг бөөнөөр нээхийг хүсвэл өөр аргыг хайх хэрэгтэй. VBA-г богино хугацаанд ашиглахын тулд үүнийг ашиглахыг бид танд заах болно.

Багцаар олон Outlook PST файлуудыг нэг дор нээнэ үү

1. Эхлээд Outlook програмаа эхлүүлнэ үү.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчлууруудыг дар.
3. Дараа нь Outlook VBA редактор дээр та шинэ модулийг нээх хэрэгтэй.
4. Дараа нь дараахь VBA кодыг хуулж модульд буулгана уу.

Sub BatchOpenMultiplePSTFiles()
 
    'You can change the path as per your needs
    'You can also specify a folder other than a drive
    'For instance - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files")
    Call LoopFolders("E:\")
    MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPSTFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)
 
    For Each objFile In objFolder.Files
        'Find the pst file by file extension
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "pst" Then
           Set objPSTFile = objFile
           'Open the PST file
           Outlook.Application.Session.AddStore (objPSTFile.Path)
        End If
    Next
 
    'Process all folders and subfolders in the Local Drive E
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

5. Үүний дараа Outlook-ын макро аюулгүй байдлын түвшинг бага болгож өөрчил.
6. Эцэст нь та VBA редакторын хэрэгслийн самбар дээрх "Ажиллуулах" дүрс дээр дарах эсвэл F5 товчийг дарахад энэ шинэ VBA төслийг эхлүүлэх боломжтой.
7. Урьдчилан тодорхойлсон локал фолдер доторх бүх Outlook PST файлуудыг нэг дор багцлан нээх болно.

Vexing PST алдаатай тэмцэх

Outlook нь алдаа, авлигад өртөмтгий тул вирусын халдвар, Outlook-ийн буруу унтраалт, Outlook-ийн буруу тохиргоо зэрэг болзошгүй бүх аюулд анхаарлаа хандуулах хэрэгтэй. Тэд бүгдээрээ үүсгэж болно Авлигын төлөв байдал хөлс гаргалгүй. Тиймээс та өөрийн PST файлын нөөцлөлтийг тогтмол хийж байх ёстой. Энэ нь дараачийн өгөгдлийг сэргээхэд маш их туслах болно.

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

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