Read Email Headers with Filtering

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

VB.NET sample code to read POP3 email headers with filtering.

        textBox1.Text = ""

        ' Create a mailman object for reading email.
        Dim mailman As New Chilkat.MailMan()

        ' Any string passed to UnlockComponent automatically begins a 30-day trial.
        Dim success As Boolean
        success = mailman.UnlockComponent("Hello World")
        If (success <> true) Then
            MsgBox(mailman.LastErrorText)
            Exit Sub
        End If

        ' Set our POP3 hostname, login and password
        mailman.MailHost = "mail.chilkatsoft.com"
        mailman.PopUsername = "login"
        mailman.PopPassword = "password"

        ' Connecting via SSL is possible by adding these lines:
        'mailman.PopSsl = true;
        ' Set the POP3 port to 995, the standard MS Exchange Server SSL POP3 port.
        'mailman.MailPort = 995;

        ' Set our filter to only return PayPal payment notification emails.
        mailman.Filter = "Subject like ""*Notification of Payment Received*"""

        ' Use GetAllHeaders to fetch each email header and the 1st N lines of
        ' the body from a POP3 server. 
        ' Note: Attachment information will not be available.  This is a shortfall
        ' of the POP3 protocol because attachment information is not included
        ' in POP3 headers. An entire POP3 email must be read in order to get complete
        ' attachment information.
        Dim bundle As Chilkat.EmailBundle = mailman.GetAllHeaders(2) ' Get 2 body lines...
        If bundle Is Nothing Then
            MessageBox.Show(mailman.LastErrorText)
            Return
        End If

        Dim i As Integer
        Dim n As Integer = bundle.MessageCount
        For i = 0 To n - 1
            Dim email As Chilkat.Email = bundle.GetEmail(i)

            textBox1.Text = textBox1.Text + email.From + ControlChars.Cr + ControlChars.Lf
            textBox1.Text = textBox1.Text + email.Subject + ControlChars.Cr + ControlChars.Lf
        Next i