Search Examples

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

ASP example code to load a utf-8 text file, convert it to Shift-JIS, and display it in a Japanese ASP page.

<html>
<head>
<title>ASP Script Showing IMAP Search Examples</title>
</head>
<body>
<%
' ASP Script Showing IMAP Search Examples
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("ALL", 1)
    
    ' Search since a specific date
    'Set msgSet = imap.Search("SINCE 1-Aug-2004", 1)
    
    ' Search for messages from "yahoo.com" or "hotmail.com"
    'Set msgSet = imap.Search("OR (FROM yahoo.com) (FROM hotmail.com)", 1)
    
    ' Search for messages from "yahoo.com" AND since a specific date
    'Set msgSet = imap.Search("SINCE 12-Dec-2002 FROM yahoo.com", 1)
    
    ' Emails with "scott" found anywhere in the FROM header field.
    'Set msgSet = imap.Search("FROM scott", 1)
    
    ' Emails larger than 10K
    'Set msgSet = imap.Search("LARGER 10000", 1)
    
    ' Emails smaller than 10K
    'Set msgSet = imap.Search("SMALLER 10000", 1)
    
    ' Emails sent on a specific day.
    ' Date format is day-month-year
    ' Month can be: Jan, Feb, Mar, Apr, May, Jun,
    ' Jul, Aug, Sep, Oct, Nov, Dec
    'Set msgSet = imap.Search("SENTON 27-Aug-2003", 1)
    
    ' Emails sent after a specific day.
    'Set msgSet = imap.Search("SENTSINCE 27-Aug-2003", 1)

    ' Emails sent before a specific day.
    'Set msgSet = imap.Search("SENTBEFORE 27-Aug-2003", 1)

    ' Emails having V1agra anywhere in the subject.
    'Set msgSet = imap.Search("SUBJECT V1agra", 1)
    
    ' Emails having V1agra anywhere in the header or body.
    'Set msgSet = imap.Search("TEXT V1agra", 1)
    
    ' Emails having "support" in the TO header field.
    'Set msgSet = imap.Search("TO support", 1)
    
    ' Emails that are unanswered
    'Set msgSet = imap.Search("UNANSWERED", 1)
    
    ' 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>