Ordnerstruktur aus Outlook 2016 in CSV-Datei exportieren

Add-Type -A System.Windows.Forms

function Get-OutlookFolders{
    [void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
    $objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
    if (!$objOL){$objOL = New-Object -Com Outlook.Application}
    $getfolder = {
        param($folder)
        [pscustomobject]@{FolderPath=$folder.FolderPath}
        foreach($subfolder in $folder.Folders){&$getfolder $subfolder}
    }
    write-host "Bitte wählen sie nun den Startordner ... " -F Green  
    $startfolder = $objOL.Session.PickFolder()
    write-host "Daten werden abgefragt, bitte warten ... " -F Green  
    if($startfolder){
        &$getfolder -folder $startfolder
    }
    [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($objOL)
}

$result = Get-OutlookFolders
if ($result){
    write-host "Wählen sie nun den Ausgabepfad für die CSV-Datei ..." -F Green  
    $dlg = New-Object System.Windows.Forms.SaveFileDialog -P @{
        Title = "Pfad zur Speicherung der CSV angeben"  
        FileName = "folderstructure.csv"  
        Filter = 'CSV (Trennzeichen getrennt)|*.csv'  
    }
    if($dlg.ShowDialog() -eq 'OK'){  
        $result | export-csv -LiteralPath $dlg.FileName -Delimiter ";" -NoType -Encoding UTF8  
    }
}

timeout /t 2