Sub mailslesen()
        Button6.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        ListView1.Items.Clear()
        ListView1.Columns.Clear()
        ListView1.Visible = False
        Label12.Visible = True
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        With ListView1.Columns
            .Add("Betreff:")
            .Add("Erhalten am:")
            .Add("Absender:", 100)
            .Add("Ordner:", 200)
        End With
        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
        ListView1.Columns(0).Width = -1
        ListView1.Columns(1).Width = -1
        ListView1.Columns(2).Width = -1
        ListView1.Columns(3).Width = -2
        Label12.Visible = False
        ListView1.Visible = True
        PictureBox3.Visible = True
        PictureBox4.Visible = True
        Button6.Visible = True
    End Sub