Hallo,
ich habe da ein Problem/Frage. Unzwar komme ich bei meinem Script nicht weiter.
Ich möchte meine E-Mails via Openpop3 runterladen und in einer Listview ausgeben.
Klappt eigendlich wunderbar. Nur weiß ich nicht wie ich den Body auslesen kann, sprich die eigendliche Nachricht.
Bisheriger Versuch:
ich habe da ein Problem/Frage. Unzwar komme ich bei meinem Script nicht weiter.
Ich möchte meine E-Mails via Openpop3 runterladen und in einer Listview ausgeben.
Klappt eigendlich wunderbar. Nur weiß ich nicht wie ich den Body auslesen kann, sprich die eigendliche Nachricht.
Bisheriger Versuch:
VB.NET-Quellcode
- Dim pop3 As New Pop3Client
- Dim Benutzer As String() = Split(ComboBox3.Text, "@")
- pop3.Connect("0.0.0.0", "000", False)
- pop3.Authenticate(Benutzer(0), "xxxxxx")
- ListView12.Items.Clear()
- Dim messagecount As Integer = pop3.GetMessageCount()
- For i As Integer = messagecount To 1 Step -1
- Dim message1 = pop3.GetMessage(i)
- Dim subject = message1.Headers.Subject
- Dim from = message1.Headers.From
- Dim Datum = message1.Headers.Date
- 'Ansätze
- Dim messagepart = message1.FindFirstPlainTextVersion()
- Dim nachricht As String
- messagepart.Save(New FileInfo("plainText.txt"))
- Dim attachments = message1.FindAllAttachments
- For Each attachment In attachments
- Dim fileExtension = Path.GetExtension(attachment.FileName)
- Dim fileName = Path.GetFileNameWithoutExtension(attachment.FileName)
- With ListView13
- .Items.Add(fileName.ToString)
- With .Items(.Items.Count - 1).SubItems
- .Add(fileExtension)
- End With
- End With
- Next
- With ListView12
- .Items.Add(from.MailAddress.ToString)
- With .Items(.Items.Count - 1).SubItems
- .Add(subject.ToString)
- .Add(nachricht)
- .Add(Datum.ToString)
- End With
- End With
- Next
- pop3.Disconnect()
Hochachtungsvoll
MindFreak
MindFreak