![]() |
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) Process New Email by Scanning for SendersScan email and save application-selected emails to EML files with unique filenames. 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.someMailServer.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; # Fetch messages from the mailbox using a search criteria. # This example finds NEW emails: these are emails that have the RECENT flag set, but not the SEEN flag: $messageSet = chilkat::CkMessageSet->new(); $success = $imap->QueryMbx("NEW",$fetchUids,$messageSet); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # This example will download headers, and then download # the full email for those emails sent from a contact # in our database. # When downloading headers, each email object contains # (obviously) the headers, but the body will be missing. # Also, attachments will not be included. However, it is # possible to get information about the attachments # as well as the complete size of the email. $bundle = chilkat::CkEmailBundle->new(); $headersOnly = 1; $success = $imap->FetchMsgSet($headersOnly,$messageSet,$bundle); if ($success == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Loop over the email objects... $emailHeader = chilkat::CkEmail->new(); $fullEmail = chilkat::CkEmail->new(); $i = 0; $numEmails = $bundle->get_MessageCount(); while ($i < $numEmails) { $bundle->EmailAt($i,$emailHeader); # The sender's email address and name are available # in the From, FromAddress, and FromName properties. # If the sender is "Chilkat Support <support@chilkatsoft.com", # then the From property will hold the entire string. # the FromName property contains"Chilkat Support", # and the FromAddress property contains "support@chilkatsoft.com" print $emailHeader->ck_from() . "\r\n"; print $emailHeader->fromAddress() . "\r\n"; print $emailHeader->fromName() . "\r\n"; # Assume at this point your code checks to see if the sender # is one in your contacts database. If so, this is # the code you would write to download the entire # email and save it to a file. # 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; } # You can use the GenerateFilename method to # generate a unique filename... $filename = $fullEmail->generateFilename(); # SaveEml saves the entire email, including attachments. $success = $fullEmail->SaveEml($filename); print "--" . "\r\n"; $i = $i + 1; } # Disconnect from the IMAP server. $success = $imap->Disconnect(); |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.