Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim Messages As New List(Of String)
 Dim AttachArray As New ArrayList

Visual Basic Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim pop3 As New POPClient

    pop3.Disconnect()
    pop3.Connect("pop.host.de", 110)
    pop3.Authenticate("benutzeraccount", "benutzerpasswort")

    ListBox1.Items.Clear()

    For i As Integer = 1 To pop3.GetMessageCount
        Dim m As MIMEParser.Message = pop3.GetMessage(i, False)

        ListBox1.Items.Add("From: " & m.From & " <" & m.FromEmail & "> - " & m.Subject)

        If m.MessageBody.Count > 0 Then
            Dim Attach As New List(Of MIMEParser.Attachment)
            Messages.Add(m.MessageBody(m.MessageBody.Count - 1))

            For ii As Integer = 1 To m.AttachmentCount - 1
                Attach.Add(m.GetAttachment(ii))
            Next

            AttachArray.Add(Attach)
        End If

        ' pop3.DeleteMessage(i)        ' Wenn die Message nach abholung gelöscht werden soll 
    Next
    pop3.Disconnect()
End Sub

Visual Basic Quellcode

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As ListBox, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    TextBox1.Text = Messages(sender.SelectedIndex)

    ListBox2.Items.Clear()
    For Each att As MIMEParser.Attachment In AttachArray(sender.SelectedIndex)
        ListBox2.Items.Add(att.ContentFileName & " " & att.ContentLength & " Byte")
    Next
End Sub

Visual Basic Quellcode

Private Sub ListBox2_SelectedIndexChanged(ByVal sender As ListBox, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
    Dim att As MIMEParser.Attachment = AttachArray(ListBox1.SelectedIndex)(sender.SelectedIndex)
    Dim fs As FileStream = File.Create(Application.StartupPath & "/attach/" & att.ContentFileName)
    Dim da() As Byte

    da = att.DecodedAttachment

    fs.Write(da, 0, da.Length)

    MsgBox("'" & att.ContentFileName & "' wurde gespeichert!")

    fs.Close()
End Sub

Quellcode

String m.AttachmentBoundry
String m.AttachmentBoundry2
Integer m.AttachmentCount
Array(Of String) m.BCC
Array(Of String) m.CC
Array(Of String m.TO
String m.ContentEncoding
String m.ContentType
String m.From
String m.FromEmail
Boolean m.HasAttachment
String m.MessageID
String m.Subject
String m.Date
String m.Received
Boolean m.HTML
String m.Importance
String m.ReplyTo
String m.ReplyToEmail
Function(att As MIME.Parser.Attachment, Filename) m.SaveAttachment
Function(Path) m.SacheAttachments