Private Sub cmdMAbruf_Click()
    Dim mailkopf As sevMailActiveX.HeaderInfo
    frmMServerWahl.MousePointer = 11
    If lstMServer.SelCount <> 0 Then
        For i = 0 To lstMServer.ListIndex Step 1
            mailservd = Split(mservdata(i + 1), "|")
            If InStr(lstMServer.Text, mailservd(2)) <> 0 Then
                sevPop3.TimeoutConnect = 20
                sevPop3.ServerName = mailservd(0)
                sevPop3.ServerPort = mailservd(1)
                sevPop3.UserName = mailservd(2)
                sevPop3.Password = mailservd(3)
                If Not sevPop3.Connect Then
                    MsgBox ("Fehler bei dem Konto " & mailservd(2) & "!" & _
                      vbCrLf & sevPop3.POP3ErrorText), , "Achtung!"
                Else
                    neumailzaehl = sevPop3.NewMailsAvailable(IngSize)
                    MsgBox (neumailzaehl)
                    If neumailzaehl > 0 Then
                        Dim Dbems As DAO.Database
                        Dim tabinheingad As DAO.Recordset
                        Set Dbems = DBEngine.OpenDatabase(dbname, False, False)
                        Set tabinheingad = Dbems.OpenRecordset("Maileingang")
                        For j = 1 To neumailzaehl Step 1
                            If mailservd(7) = "Falsch" Then
                                mail = sevPop3.FetchMail(j, App.Path & _
                                  "\mailtext.mst", True)
                            Else
                                mail = sevPop3.FetchMail(j, App.Path & _
                                  "\mailtext.mst", False)
                            End If
                            Set mailkopf = sevPop3.HeaderInfo(j)
                            With mailkopf
                            tabinheingad.AddNew
                            tabinheingad.Fields("Datum").Value = .MailDate
                            tabinheingad.Fields("Absender").Value = .MailFrom
                            tabinheingad.Fields("Empfaenger").Value = .MailTo
                            tabinheingad.Fields("Betreff").Value = .Subject
                            tabinheingad.Fields("Mailinhalt").Value = _
                              sevMail.Message.Message(j)
                            tabinheingad.Update
                            End With
                            MsgBox (mail)
                        Next j
                        tabinheingad.Close
                        Dbems.Close
                        MsgBox (neumailzaehl & " Mails wurden abgeholt!"), , _
                          "Achtung!"
                    End If
                End If
                sevPop3.Disconnect
            End If
        Next i
        frmMServerWahl.MousePointer = 0
        Call cmdAbbruch_Click
        Exit Sub
    Else
        MsgBox ("Bitte wählen Sie ein Mailaccount aus!"), , "Achtung!"
    End If
    frmMServerWahl.MousePointer = 0
End Sub