Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

  Dim pop3 As New POPClient


        pop3.Disconnect()
        pop3.Connect("pop.googlemail.com", 995)
        pop3.Authenticate("***********", "******")

        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()

Visual Basic Quellcode

Imports System.IO
Imports OpenPOP
Imports OpenPOP.POP3
Public Class Form1
    Dim Messages As New List(Of String)
    Dim AttachArray As New ArrayList
    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("smtp.web.de", 110)
        pop3.Authenticate("Benutzername", "Passwort")


        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
    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
    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
End Class

Visual Basic Quellcode

Structure EmailList
	Dim von As String
	Dim vonEmail As String
	Dim betreff As String
End Structure
Dim EmailLb() As EmailList

Private Sub BackgroundWorkerEmail_DoWork() Handles BackgroundWorkerEmail.DoWork
  Dim pop3 As New POPClient
  Dim subj As String = Nothing
  Dim fromn As String = Nothing
  'Try
  pop3.Connect("pop3.web.de", 110)
  pop3.Authenticate("***", "***")
  Dim max As Integer = 0
  If pop3.GetMessageCount > 5 Then max = 5 Else max = pop3.GetMessageCount
 	For i As Integer = 1 To max
    	Dim m As MIMEParser.Message = pop3.GetMessage(i, False)
    	fromn = m.From
    	fromn = fromn.Replace("ä", "ä")
    	fromn = fromn.Replace("Ä", "Ä")
    	fromn = fromn.Replace("ö", "ö")
    	fromn = fromn.Replace("Ö", "Ö")
    	fromn = fromn.Replace("ü", "ü")
    	fromn = fromn.Replace("Ãoe", "Ü")
    	fromn = fromn.Replace("ß", "ß")
    	subj = m.Subject
    	subj = subj.Replace("ä", "ä")
    	subj = subj.Replace("Ä", "Ä")
    	subj = subj.Replace("ö", "ö")
    	subj = subj.Replace("Ö", "Ö")
    	subj = subj.Replace("ü", "ü")
    	subj = subj.Replace("Ãoe", "Ü")
    	subj = subj.Replace("ß", "ß")
    	EmailLb(i).von = fromn ' Hier erscheint der Fehler
    	EmailLb(i).vonEmail = m.FromEmail
    	EmailLb(i).betreff = subj
    	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 = 0 To m.AttachmentCount - 1
             	Attach.Add(m.GetAttachment(ii))
         	Next
    	End If
	Next
	pop3.Disconnect()
	Me.Invoke(New EventHandler(AddressOf setControlsTrue))
	'Catch ex As Exception
	'	MessageBox.Show("Die Verbindung zum E-Mail-Konto konnte leider nicht hergestellt werden." & ex.Message)
	'	Me.Invoke(New EventHandler(AddressOf setControlsFalse))
	'End Try
 End Sub

Visual Basic Quellcode

EmailLb(i).von = fromn

Visual Basic Quellcode

EmailLb(i).von = fromn

Visual Basic Quellcode

If pop3.GetMessageCount > 5 Then max = 5 Else max = pop3.GetMessageCount
Redim EmailLb(max)

Visual Basic Quellcode

Imports System.IO
Imports OpenPOP
Imports OpenPOP.POP3
Public Class Form1
	Dim Messages As New List(Of String)
	Dim AttachArray As New ArrayList
	Dim password = ""
	Dim user = ""
	Dim pop = ""
	Private Sub CheckMails()
	
		If InvokeRequired Then
			Invoke(New MethodInvoker(CheckMails))
			Return
		End If

    	Dim pop3 As New POPClient

    	pop3.Disconnect()
    	pop3.Connect("pop.gmx.net", 110)
    	pop3.Authenticate("hans@gmx.net", "blauebergesindschöndasistnichtdasrichtigepasswort")

		
    	ListView1.Items.Clear()

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

        	Dim lst As New ListViewItem
        	lst.SubItems.Add(m.From)
        	lst.SubItems.Add(m.Subject)
        	lst.SubItems.Add(m.DateTimeInfo)
        	lst.SubItems.Add("")
        	If m.HasAttachment = True Then
            	lst.SubItems.Add("•")
        	End If


        	ListView1.Items.Add(lst)

        	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
	Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs)

	End Sub

	Private Sub ToolStrip2_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip2.ItemClicked

	End Sub
	Private Sub ListBox2_SelectedIndexChanged(ByVal sender As ListBox, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
    	Dim att As MIMEParser.Attachment = AttachArray(ListView1.FocusedItem.Index)(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
	Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
    	'Dim slc = ListView1.FocusedItem.SubItems.Item(4)
    	' Dim cnt = slc.ToString
    	'cnt = cnt.Replace("ListViewSubItem: {", "")
    	'cnt = cnt.Replace("}", "")
    	'WebBrowser1.DocumentText = cnt
    	WebBrowser1.DocumentText = 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

	Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	End Sub

	Private Sub NachrichtAbrufenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NachrichtAbrufenToolStripMenuItem.Click
    	BackgroundWorker1.RunWorkerAsync()
	End Sub

	Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    	CheckMails()
    	ToolStripProgressBar1.Value += 1
	End Sub

	Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked

	End Sub
End Class