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: 1280
Product: EasyMail .Net Edition
Description: Download envelopes and display in a data grid (VB.Net) - IMAP4 Assembly

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

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

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
    
        Dim imap4Obj As New IMAP4()
        Dim env As Envelope
        Dim envelopes As EnvelopeCollection
        Dim dr As DataRow
        Dim dv As DataView
    
        'Create table
        Dim table As New DataTable("Envelopes")
    
   
        '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 IMAP4 mail server
            imap4Obj.Connect("mail.domain.com")
    
            'Log onto mail server
            imap4Obj.Login("user", "password")
    
            'Select mailbox
            imap4Obj.SelectMailbox("inbox")
    
            'Download the all envelopes
            envelopes = imap4Obj.GetEnvelopes()
    
            For Each env In envelopes
    
                'Create new row
                dr = table.NewRow()
    
                If (Not (env.Date Is Nothing)) Then
                    dr("Date") = env.Date.Date.ToString()
                End If
    
                If (Not (env.From Is Nothing)) Then
                    dr("From") = env.From(0).EmailAddress
                End If
    
                dr("Message Number") = env.MessageNumber
                dr("Subject") = env.Subject
                dr("Priority") = env.Priority
    
                table.Rows.Add(dr)
            Next
    
            'Logout and disconnect
            imap4Obj.Logout()
    
            dv = New DataView(table)
    
            'Sort grid by message number
            dv.Sort = "Message Number"
            dataGrid.DataSource = dv
            dataGrid.DataBind()
    
            'Catch exception errors
        Catch BadExcep As Quiksoft.EasyMail.IMAP4.IMAP4BadException
            Response.Write("IMAP4 server retruned a bad response. " + BadExcep.Message)
        Catch ConnectExcep As Quiksoft.EasyMail.IMAP4.IMAP4ConnectionException
            Response.Write("Connection error: " + ConnectExcep.Message)
        Catch NoExcep As Quiksoft.EasyMail.IMAP4.IMAP4NoException
            Response.Write("IMAP4 server returned a no response." + NoExcep.Message)
        Catch ProtoclExcep As Quiksoft.EasyMail.IMAP4.IMAP4ProtocolException
            Response.Write("Protocol error: " + ProtoclExcep.Message)
        Catch LicenseExcep As Quiksoft.EasyMail.IMAP4.LicenseException
            Response.Write("License key error. " + LicenseExcep.Message)
        Catch ParseExcep As Quiksoft.EasyMail.IMAP4.ParsingException
            Response.Write("Parse error: " + ParseExcep.Message)
        Catch InProgressExcep As Quiksoft.EasyMail.IMAP4.OperationInProgressException
            Response.Write("Operation in progress: " + InProgressExcep.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 envelopes from the IMAP4 mail server and display the information in a data grid.

The IMAP4.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...