Open a Mailbox Read-Only
ASP script showing how to open a mailbox for read-only.
<html>
<head>
<title>Open an IMAP Mailbox Read-Only</title>
</head>
<body>
<%
' ASP Script to Open an IMAP Mailbox Read-Only
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 read-only.
' Use ExamineMailbox instead of SelectMailbox
success = imap.ExamineMailbox("Inbox")
if (success = 1) then
Response.write "Opened mailbox read-only"
else
Response.write imap.LastErrorHtml
end if
'...
imap.Logout
imap.Disconnect
end if
%>
</body>
</html>
|
