![]() |
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) Scan for Emails with Attachments and Save Attachments to FilesScan for emails with attachments and save attachments. Note: This example requires Chilkat v11.0.0 or greater.
use chilkat(); $success = 0; # This example requires 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("myLogin","myPassword"); 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; } # We can choose to fetch UIDs or sequence numbers. $fetchUids = 1; # Get the message IDs of all the emails in the mailbox $messageSet = chilkat::CkMessageSet->new(); $success = $imap->QueryMbx("ALL",$fetchUids,$messageSet); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Fetch the email headers into a bundle object: $bundle = chilkat::CkEmailBundle->new(); $headersOnly = 1; $success = $imap->FetchMsgSet($headersOnly,$messageSet,$bundle); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Scan for emails with attachments, and save the attachments # to a sub-directory. $fullEmail = chilkat::CkEmail->new(); $emailHeader = chilkat::CkEmail->new(); $i = 0; while ($i < $bundle->get_MessageCount()) { # The bundle contains email headers.. $bundle->EmailAt($i,$emailHeader); # Does this email have attachments? # Use GetMailNumAttach because the attachments # are not actually in the email object because # we only downloaded headers. $numAttach = $imap->GetMailNumAttach($emailHeader); if ($numAttach > 0) { # Download the entire email and save the # attachments. (Remember, we # need to download the entire email because # only the headers were previously downloaded. # The ckx-imap-uid header field is added when # headers are downloaded. This makes it possible # to get the UID from the email object. $uidStr = $emailHeader->getHeaderField("ckx-imap-uid"); $uid = $uidStr; $success = $imap->FetchEmail(0,$uid,1,$fullEmail); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } $success = $fullEmail->SaveAllAttachments("attachmentsDir"); for ($j = 0; $j <= $numAttach - 1; $j++) { $filename = $imap->getMailAttachFilename($emailHeader,$j); print $filename . "\r\n"; } } $i = $i + 1; } # Disconnect from the IMAP server. $success = $imap->Disconnect(); |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.