Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
Sub OpenPSTs() Dim objFSO As Object, objFolder As Object, objFile As Object Set objFSO = CreateObject("Scripting.FileSystemObject") 'Change the folder path on the next line' Set objFolder = objFSO.GetFolder("C:\SomeFolderName") For Each objFile In objFolder.Files If LCase(objFSO.GetExtensionName(objFile.Name)) = "pst" Then Outlook.Application.Session.AddStore objFile.Path End If Next Set objFolder = Nothing Set objFSO = Nothing MsgBox "Done" End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!