Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) 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. Dim imap As Chilkat.Imap Set imap = Chilkat.NewImap ' Connect to an IMAP server. ' Use TLS imap.Ssl = True imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login success = imap.Login("***","***") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' After selecting the mailbox. the total number of emails ' is immediately available: totalNum = imap.NumMessages Debug.Print "Num messages = "; totalNum ' 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. fetchUids = True Set messageSet = imap.Search("UNSEEN",fetchUids) If (imap.LastMethodSuccess = False) Then Debug.Print imap.LastErrorText Exit Sub End If numUnseen = messageSet.Count Debug.Print numUnseen Debug.Print "UIDs ----" ' Display the UIDs i = 0 Do While i < messageSet.Count msgId = messageSet.GetId(i) Debug.Print msgId i = i + 1 Loop ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.