Hallo.
Ich bekomme einen Fehler wenn ich eine E-Mail in einer ListBox löschen möchte, die den Indexwert 0 hat.
(Also das Oberste Item in der ListBox)
Das löschen von Emails in der ListBox mit dem Index 0 funktioniert nicht.
Alle anderen Mails die über dem ersten Eintrag (Index 0) liegen werden problemlos gelöscht. (1, 2, 3 usw)
Fehlermeldung: [ The messageNumber argument cannot have a value of zero or less. Valid messageNumber is in the range [1, messageCount] ]
Hier der Code:
Hiermit rufe ich die E-Mails vom Server ab:
Ich bekomme einen Fehler wenn ich eine E-Mail in einer ListBox löschen möchte, die den Indexwert 0 hat.
(Also das Oberste Item in der ListBox)
Das löschen von Emails in der ListBox mit dem Index 0 funktioniert nicht.
Alle anderen Mails die über dem ersten Eintrag (Index 0) liegen werden problemlos gelöscht. (1, 2, 3 usw)
Fehlermeldung: [ The messageNumber argument cannot have a value of zero or less. Valid messageNumber is in the range [1, messageCount] ]
Hier der Code:
VB.NET-Quellcode
- Try
- Using pop As New Pop3Client()
- pop.Connect("pop.gmx.net", "995", True)
- pop.Authenticate(SetEmailAdresse.Text, SetEmailPasswort.Text)
- pop.DeleteMessage(EmfpangeneEmailsListe.SelectedIndex)
- BetreffPreview.Text = ""
- AbsenderPreview.Text = ""
- ErhaltenAmPreview.Text = ""
- End Using
- Button53.PerformClick()
- Catch ex As Exception
- MessageBox.Show("Beim löschen der E-Mail ist ein Fehler aufgetreten: " & vbCrLf & ex.Message)
- End Try
Hiermit rufe ich die E-Mails vom Server ab:
VB.NET-Quellcode
- Try
- los_EmailListe.Clear()
- EmfpangeneEmailsListe.Items.Clear()
- BetreffPreview.Clear()
- AbsenderPreview.Clear()
- ErhaltenAmPreview.Clear()
- WebBrowser2.DocumentText = Nothing
- Dim iAnzahlEmails As Integer = 0
- pop = New Pop3Client
- pop.Connect("pop.gmx.net", "995", True)
- pop.Authenticate(SetEmailAdresse.Text, SetEmailPasswort.Text)
- iAnzahlEmails = pop.GetMessageCount
- For i As Integer = 1 To iAnzahlEmails
- los_EmailListe.Add(New Email With {.sBetreff = pop.GetMessage(i).ToMailMessage.Subject, .sText = pop.GetMessage(i).ToMailMessage.Body, .sAbsender = pop.GetMessage(i).ToMailMessage.From.ToString, .sErhaltenAm = pop.GetMessage(i).Headers.Date})
- Next
- For Each obj In los_EmailListe
- EmfpangeneEmailsListe.Items.Add("Betreff: " & obj.sBetreff & " | Ansender: " & obj.sAbsender & " | Erhalten am: " & obj.sErhaltenAm)
- BetreffPreview.Text = obj.sBetreff
- AbsenderPreview.Text = obj.sAbsender
- ErhaltenAmPreview.Text = obj.sErhaltenAm
- Next
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try