Datamining PST Files using Microsoft.Office.Interop.Outlook

Question

I was wondering how to datamine a pst file beyond it's primary folders to see if an empty folder has content in a subfolder and add it to an existing psobject?
Cheers,
B.
$results = New-Object System.Collections.ArrayList # Empty Array
$null = Add-type -assembly Microsoft.Office.Interop.Outlook
$outlook = new-object -comobject outlook.application
$namespace = $outlook.GetNameSpace('MAPI')
$pstpath = "d:\sample.pst"
$namespace.AddStore($pstpath)
$PST = $namespace.Stores | ? {$_.FilePath -eq $pstpath}
$PSTRoot = $PST.GetRootFolder()
$PSTName = $PST.Displayname
Foreach ($folders in $PSTRoot.Folders) {
$x = $folders.Name
$y = $folders.FolderPath
$z = $folders.Items.Count
$Object = New-Object PSObject
$Object | Add-Member -Name 'Name' -MemberType Noteproperty -Value $x
$Object | Add-Member -Name 'Path' -MemberType Noteproperty -Value $y
$Object | Add-Member -Name 'Items' -MemberType Noteproperty -Value $z
$results += $object
$results | Format-Table 'Name','Path','Items' -Wrap -AutoSize | Out-Default
$results = $NULL

Answer 1

Hi B,
If you want to test the access of the .pst file, please refer to the function below:
function Test-PSTFile {
param(
[Parameter(Position=1, ValueFromPipeline=$true, Mandatory=$true)]
$FilePath,
[Parameter(Position=2, Mandatory=$false)]
$ErrorLog
process {
#Create an instance of Outlook
$null = Add-type -assembly Microsoft.Office.Interop.Outlook
$olFolders = 'Microsoft.Office.Interop.Outlook.olDefaultFolders' -as [type]
$outlook = new-object -comobject outlook.application
#Open the MAPI profile
$namespace = $outlook.GetNameSpace('MAPI')
try {
#Try to add the PST file to the profile
$namespace.AddStore($FilePath)
#Try to read the root folder name
$PST = $namespace.Stores | ? {$_.FilePath -eq $FilePath}
$PSTRoot = $PST.GetRootFolder()
if($PSTRoot) {
New-Object PSObject -Property @{
FileName = $FilePath
Valid = $True
#Disconnect the PST
$PSTFolder = $namespace.Folders.Item($PSTRoot.Name)
$namespace.GetType().InvokeMember('RemoveStore',[System.Reflection.BindingFlags]::InvokeMethod,$null,$namespace,($PSTFolder))
catch {
#If logging is on, save the error to the log
if($ErrorLog) {
Add-Content -Path $ErrorLog -Value ("Ran into a problem with {0} at {1}. The error was {2}" -f $FilePath, (Get-Date).ToString(),$_.Exception.Message)
#Output a failure record
New-Object PSObject -Property @{
FileName = $FilePath
Valid = $False
Refer to:
How to Test Outlook (PST) Personal Folder File Access with PowerShell
If there is anything else regarding this issue, please feel free to post back.
Best Regards,
Anna Wang