VB.NET Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript



VB.NET Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML to XML
HTTP
IMAP
Encryption
MHT / HTML Email
PFX
RSA Encryption
S/MIME
Socket
Spider
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
SSH Key
SSH
SSH Tunnel
SFTP

Byte Array
VB.NET FTPS
System.IO

Unreleased...
Bzip2
LZW
Bz2
Icon

 

 

 

 

 

 

Read Email Headers with Filtering

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 argument automatically begins the 30-day trial.
        mailman.UnlockComponent("30-day trial")

        ' 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



Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp

 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser