Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Lianja) Determine the Number of Unseen Email MessagesDemonstrates how to determine how many unseen messages exist in an email account on an IMAP server.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loImap = createobject("CkImap") // Connect to an IMAP server. // Use TLS loImap.Ssl = .T. loImap.Port = 993 llSuccess = loImap.Connect("imap.someMailServer.com") if (llSuccess <> .T.) then ? loImap.LastErrorText release loImap return endif // Login llSuccess = loImap.Login("***","***") if (llSuccess <> .T.) then ? loImap.LastErrorText release loImap return endif // Select an IMAP mailbox llSuccess = loImap.SelectMailbox("Inbox") if (llSuccess <> .T.) then ? loImap.LastErrorText release loImap return endif // After selecting the mailbox. the total number of emails // is immediately available: lnTotalNum = loImap.NumMessages ? "Num messages = " + str(lnTotalNum) // To determine the number of unseen messages, a call // to Search is required, which returns the set of UIDs // of all unseen messages. // We can choose to fetch UIDs or sequence numbers. llFetchUids = .T. loMessageSet = loImap.Search("UNSEEN",llFetchUids) if (loImap.LastMethodSuccess = .F.) then ? loImap.LastErrorText release loImap return endif lnNumUnseen = loMessageSet.Count ? str(lnNumUnseen) ? "UIDs ----" // Display the UIDs i = 0 do while i < loMessageSet.Count lnMsgId = loMessageSet.GetId(i) ? str(lnMsgId) i = i + 1 enddo // Disconnect from the IMAP server. llSuccess = loImap.Disconnect() release loMessageSet release loImap |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.