![]() |
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
(Perl) Fetch 1st N Headers of Search ResultsCalls Search to get a message set, then downloads the 1st N messages in the message set. There are two equivalent ways of doing it: (1) iterate from 0 to N-1 and download each message individually, or (2) create a new message set that contains the 1st N messages and pass it to FetchHeaders. Both are demonstrated here. Note: This example requires Chilkat v11.0.0 or greater.
use chilkat(); $success = 0; # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $imap = chilkat::CkImap->new(); # Connect to an IMAP server. # Use TLS $imap->put_Ssl(1); $imap->put_Port(993); $success = $imap->Connect("imap.example.com"); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Login $success = $imap->Login("****","****"); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Select an IMAP mailbox $success = $imap->SelectMailbox("Inbox"); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Get the message IDs of all the emails in the mailbox # We can choose to fetch UIDs or sequence numbers. $fetchUids = 1; $messageSet = chilkat::CkMessageSet->new(); $success = $imap->QueryMbx("ALL",$fetchUids,$messageSet); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } $numFound = $messageSet->get_Count(); if ($numFound == 0) { print "No messages found." . "\r\n"; exit; } # Get the 1st 10 messages in messageSet. $upperBound = 10; if ($numFound < $upperBound) { $upperBound = $numFound; } $i = 0; $bUid = $messageSet->get_HasUids(); $headerOnly = 1; $email = chilkat::CkEmail->new(); while ($i < $upperBound) { $success = $imap->FetchEmail($headerOnly,$messageSet->GetId($i),$bUid,$email); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } print $i . ": " . $email->subject() . "\r\n"; $i = $i + 1; } # Disconnect from the IMAP server. $success = $imap->Disconnect(); |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.