Imports Microsoft.Office.Interop
Module mdlOffice
    Public Structure tp_PSTFiles
        Dim Bezeichnung As String
        Dim Dateiname As String
        Dim Groesse As String
    End Structure
 
    Public Function getPSTFiles() As List(Of tp_PSTFiles)
        Try
            Dim oApp As New Outlook.Application
            Dim ns As Outlook.NameSpace
            ns = oApp.GetNamespace("MAPI")
            ns.Logon(, , True, True)
 
            Dim PSTFiles As New List(Of tp_PSTFiles)
            Dim PSTFile As tp_PSTFiles = Nothing
 
            For Each PST As Outlook.Store In ns.Stores
                If Not IsNothing(PST.FilePath) Then
                    PSTFile.Dateiname = PST.FilePath
                    PSTFile.Bezeichnung = PST.DisplayName
                    PSTFile.Groesse = Format(FileIO.FileSystem.GetFileInfo( _
                      PST.FilePath).Length / 1024 / 1024 / 1024, "0.00") & " GB"
                    PSTFiles.Add(PSTFile)
                    PSTFile = Nothing
                End If
            Next
 
            oApp = Nothing
            Return PSTFiles
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return Nothing
        End Try
    End Function
End Module