Fehler bei Auflistung aller eingebundenen .pst Files in Outlook

function Export-MappedPstFiles
{
    $outlook = New-Object -ComObject Outlook.Application
    $stores = $outlook.Session.Stores | Where-Object { ($_.FilePath -like '*.pst')}   
    if ($stores -ne $null)
    {
      $stores | Select-Object -Property DisplayName, FilePath | Export-Csv -Path $env:USERPROFILE\mappedPSTFiles.csv -Encoding UTF8 -NoTypeInformation -UseCulture 
      Write-Host 'Es wurde eine Datei mit allen gerade eingebundenen pst-Files erstellt.'  
    }  
}