Sample

Home Buy Now Products Downloads Support Resellers Contact Site Map

Home Buy Now Download Support

Email Component, SMTP Component, POP3 Component, IMAP Component, bulk mail

Home
Purchase
Upgrade

Products
Downloads

Support
Samples
KB
Forum

Newsletter

Customers
Current List
Comments

Resellers
Jobs
Contact Us

ASP Sample

ID: 1282
Product: EasyMail .Net Edition
Description: Download message headers and display in a data grid (VB.Net) - POP3 & Parse Assemblies

Cut and paste. The following sample code can be pasted into your application.

<%@ Page Language="VB" %>
<%@ import Namespace="Quiksoft.EasyMail.POP3" %>
<%@ import Namespace="Quiksoft.EasyMail.Parse" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.IO" %>
<script runat="server">

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
    
        Dim pop3Obj As New POP3()
        Dim memStream As MemoryStream
        Dim msgObj As EmailMessage
        Dim msgCount As Integer
        Dim dr As DataRow
        Dim dv As DataView
        Dim i as Integer
    
        'Create table
        Dim table As New DataTable("MessageHeaders")
    
          
        'Add columns
        table.Columns.Add("Message Number", System.Type.GetType("System.Int32"))
        table.Columns.Add("From", System.Type.GetType("System.String"))
        table.Columns.Add("Subject", System.Type.GetType("System.String"))
        table.Columns.Add("Date", System.Type.GetType("System.String"))
        table.Columns.Add("Priority", System.Type.GetType("System.String"))
    
        dataGrid.HeaderStyle.BackColor = System.Drawing.Color.LightGray
        dataGrid.BackColor = System.Drawing.Color.WhiteSmoke
    
        Try
    
           'Connect to the mail server
           pop3Obj.Connect("mail.domain.com")
    
           'Log onto the POP3 mail server
           pop3Obj.Login("user", "password", AuthMode.Plain)
    
           'Get the message count and download all message headers
           msgCount = pop3Obj.GetMessageCount()
           For i = 1 To msgCount
    
                'Message headers will be stored in memory
                memStream = new MemoryStream()

'Download header
                pop3Obj.DownloadHeader(i,memStream,1)
 
                memStream.Position=0

'Parse message header
                msgObj = new EmailMessage(memStream)

'Create new row
                dr = table.NewRow()
    
                If (Not (msgObj.Date Is Nothing)) Then
                    dr("Date") = msgObj.Date.Date.ToString()
                End If
    
                If (Not (msgObj.From Is Nothing)) Then
                    dr("From") = msgObj.From(0).EmailAddress
                End If
    
                dr("Message Number") = i
                dr("Subject") = msgObj.Subject
                dr("Priority") = msgObj.Priority
    
                table.Rows.Add(dr)
                memStream.Close()
    
            Next
    
            pop3Obj.Disconnect()
    
            dv = New DataView(table)
    
            'Sort grid by message number
            dv.Sort = "Message Number"
            dataGrid.DataSource = dv
            dataGrid.DataBind()
    
            'Catch POP3 exception errors
        Catch POP3LicenseExcep As Quiksoft.EasyMail.POP3.LicenseException
            Response.Write("POP3 License Exception: " + POP3LicenseExcep.Message)
        Catch AuthExcep As Quiksoft.EasyMail.POP3.POP3AuthenticationException
            Response.Write("Authentication Exception: " + AuthExcep.Message)
        Catch ConnectExcep As Quiksoft.EasyMail.POP3.POP3ConnectionException
            Response.Write("Connection Exception: " + ConnectExcep.Message)
        Catch ProtocolExcep As Quiksoft.EasyMail.POP3.POP3ProtocolException
            Response.Write("Protocol Exception: " + ProtocolExcep.Message)
    
            'Catch Parse exception errors
        Catch ParseLicenseExcep As Quiksoft.EasyMail.Parse.LicenseException
            Response.Write("Parse License Exception: " + ParseLicenseExcep.Message)
        Catch InputStreamExcep As Quiksoft.EasyMail.Parse.InputStreamException
            Response.Write("Input Stream Exception: " + InputStreamExcep.Message)
        Catch OutputStreamExcep As Quiksoft.EasyMail.Parse.OutputStreamException
            Response.Write("Output Stream Exception: " + OutputStreamExcep.Message)
        Catch ParseExcep As Quiksoft.EasyMail.Parse.ParsingException
            Response.Write("Parsing Exception: " + ParseExcep.Message)
        End Try
    
    End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:DataGrid id="dataGrid" runat="server"></asp:DataGrid>
    </form>
</body>
</html>

Notes:

This sample will download the message headers from a POP3 account and display the information in a data grid.

The POP3.Net.dll must be placed in the /bin directory, which is located immediately under the root directory for the application. The benefit of using the bin directory is that no registration is required to make the component available to the ASP.NET Framework application.

Did you find this sample useful? Yes No

Back to Search Page...