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) Fetch Oldest/Newest IMAP EmailEmails may be downloaded by sequence number. Assuming the selected mailbox is not empty, the oldest email is at sequence number 1, and the newest email is at sequence number N. The FetchSingle method may be used to download by sequence number.
' This example assumes 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("mail.testemail.net") 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 a mailbox, the NumMessages property ' contains the number of emails in the selected mailbox. n = imap.NumMessages If (n > 0) Then ' The oldest email is always at sequence number 1. isUid = False Set oldestEmail = imap.FetchSingle(1,isUid) If (imap.LastMethodSuccess = True) Then ' Display the From and Subject Debug.Print oldestEmail.FromAddress Debug.Print oldestEmail.Subject Debug.Print "--" End If ' The newest email is at sequence number N: Set newestEmail = imap.FetchSingle(n,isUid) If (imap.LastMethodSuccess = True) Then ' Display the From and Subject Debug.Print newestEmail.FromAddress Debug.Print newestEmail.Subject End If End If ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.