Read POP3 Email with Progress Monitoring

Download: Chilkat .NET Assemblies

Read email with progress monitoring and abort capability.

    ' If we want to use events, we must declare the mailman as a member of the class.
    Private WithEvents mailman As New Chilkat.MailMan()

    Private Sub mailman_OnReadPercentDone(ByVal sender As Object, ByVal args As Chilkat.MailPercentDoneEventArgs) Handles mailman.OnReadPercentDone

        ' args.Abort is an output argument.  If we set it to True the mail reading will
        ' be aborted.
        ProgressBar1.Value = args.PercentDone

        ' Uncomment this to abort reading after 50% completion.
        'If (args.PercentDone >= 50) Then
        'args.Abort = True
        'End If

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        mailman.UnlockComponent("Anything for 30-day trial")

        ' We need to enable events to get the callbacks...
        mailman.EnableEvents = True

        mailman.MailHost = "mail.chilkatsoft.com"
        mailman.PopUsername = "***"
        mailman.PopPassword = "***"

        Dim bundle As Chilkat.EmailBundle
        bundle = mailman.CopyMail()

        Dim i As Integer
        Dim n As Integer
        Dim email As Chilkat.Email

        n = bundle.MessageCount
        For i = 0 To n - 1
            email = bundle.GetEmail(i)
            ListBox1.Items.Add(email.Subject)
        Next

        MsgBox(mailman.LastErrorText)

    End Sub