Search Email Since a Date

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

ASP script showing how to download a full email after reading only the header.

<html>
<head>
<title>Download IMAP Email Since a Specified Date</title>
</head>
<body>
<%
' ASP Script to Download IMAP Email Received Since a Specified Date
set imap = Server.CreateObject("Chilkat_9_5_0.Imap")

' Any value passed to UnlockComponent begins the 30-day trial.
unlocked = imap.UnlockComponent("30-day trial")
if unlocked then

    ' Connect to the IMAP server and login
    ' Returns 0 if failed, but for the example we are not handling it.
    ' Extended error information is available in the
    ' imap.LastErrorHtml property
    success = imap.Connect("localhost")
    success = imap.Login("chilkat","chilkat")
    
    ' Select a mailbox for reading.
    success = imap.SelectMailbox("Inbox")
    
    ' Get all the messages
    Set msgSet = imap.Search("SINCE ""1-Aug-2004""", 1)
	Response.write imap.LastErrorHtml
	
    ' Fetch all the mail into a bundle object.
    Set bundle = imap.FetchHeaders(msgSet)
    
    ' Loop over the bundle and display the From and Subject.
    Response.write "<table>"
    For i = 0 To bundle.MessageCount - 1
        Set email = bundle.GetEmail(i)
        
        Response.write "<tr>"
        Response.write "<td>" & Left(email.FromName,40) & "</td>"
        Response.write "<td>" & email.FromAddress & "</td>"
        Response.write "<td>" & email.LocalDate & "</td>"
        Response.write "<td>" & Left(email.Subject, 40) & "</td>"
        Response.write "<td>" & email.NumAttachments & "</td>"
        
        Response.write "</tr>"
    Next
    Response.write "</table>"
	
    imap.Logout
    imap.Disconnect
	
end if

%>
</body>
</html>