![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Determine the Number of Unseen Email MessagesDemonstrates how to determine how many unseen messages exist in an email account on an IMAP server. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loImap LOCAL lnTotalNum LOCAL lnFetchUids LOCAL loMessageSet LOCAL lnNumUnseen LOCAL i lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loImap = CreateObject('Chilkat.Imap') * Connect to an IMAP server. * Use TLS loImap.Ssl = 1 loImap.Port = 993 lnSuccess = loImap.Connect("imap.example.com") IF (lnSuccess = 0) THEN ? loImap.LastErrorText RELEASE loImap CANCEL ENDIF * Login lnSuccess = loImap.Login("***","***") IF (lnSuccess = 0) THEN ? loImap.LastErrorText RELEASE loImap CANCEL ENDIF * Select an IMAP mailbox lnSuccess = loImap.SelectMailbox("Inbox") IF (lnSuccess = 0) THEN ? loImap.LastErrorText RELEASE loImap CANCEL 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. lnFetchUids = 1 loMessageSet = CreateObject('Chilkat.MessageSet') lnSuccess = loImap.QueryMbx("UNSEEN",lnFetchUids,loMessageSet) IF (lnSuccess = 0) THEN ? loImap.LastErrorText RELEASE loImap RELEASE loMessageSet CANCEL ENDIF lnNumUnseen = loMessageSet.Count ? STR(lnNumUnseen) ? "UIDs ----" * Display the UIDs i = 0 DO WHILE i < loMessageSet.Count ? STR(loMessageSet.GetId(i)) i = i + 1 ENDDO * Disconnect from the IMAP server. lnSuccess = loImap.Disconnect() RELEASE loImap RELEASE loMessageSet |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.