Public Class Form1
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim objOutlook As New Outlook.Application
        Dim mapi As Outlook.NameSpace = objOutlook.GetNamespace("MAPI")
        Dim mail As Outlook.MailItem
        For i As Integer = 1 To mapi.Folders.Item(1).Folders.Count
            For y As Integer = 1 To mapi.Folders.Item(1).Folders.Item( _
              i).Items.Count
                Try
                    mail = mapi.Folders.Item(1).Folders.Item(i).Items.Item(y)
                    With ListView1.Items
                        Dim betreff As String = mail.Subject
                        If betreff = "" Then
                            With .Add("Ohne Betreff")
                                .SubItems.Add(mail.SentOn)
                                .SubItems.Add(mail.SenderName)
                                .SubItems.Add(mapi.Folders.Item(1).Folders.Item( _
                                  i).Name)
                            End With
                        Else
                            With .Add(mail.Subject)
                                .SubItems.Add(mail.SentOn)
                                .SubItems.Add(mail.SenderName)
                                .SubItems.Add(mapi.Folders.Item(1).Folders.Item( _
                                  i).Name)
                            End With
                        End If
                    End With
                Catch
                End Try
            Next
        Next
 
    End Sub
End Class