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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Perl) Delete Email Individually (One at a time) from an IMAP MailboxDownloads email from an IMAP mailbox and deletes emails individually (one by one).
use chilkat(); # 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 != 1) { print $imap->lastErrorText() . "\r\n"; exit; } # Login $success = $imap->Login("myLogin","myPassword"); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } # Select an IMAP mailbox $success = $imap->SelectMailbox("Inbox"); if ($success != 1) { 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 is a MessageSet $messageSet = $imap->Search("ALL",$fetchUids); if ($imap->get_LastMethodSuccess() == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # Fetch the emails into a bundle object: # bundle is a EmailBundle $bundle = $imap->FetchBundle($messageSet); if ($imap->get_LastMethodSuccess() == 0) { print $imap->lastErrorText() . "\r\n"; exit; } # To mark a complete set of emails for deletion, call SetFlags: $success = $imap->SetFlags($messageSet,"Deleted",1); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } # Messages can also be marked for deletion individually: # Loop over the bundle and mark each message for deletion. $i = 0; $numEmails = $bundle->get_MessageCount(); while ($i < $numEmails) { # email is a Email $email = $bundle->GetEmail($i); print $email->ck_from() . "\r\n"; print $email->subject() . "\r\n"; # To delete this email, set the "Deleted" flag to 1. # The email is not actually deleted until Expunge or # ExpungeAndClose is called. $success = $imap->SetMailFlag($email,"Deleted",1); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } print "--" . "\r\n"; $i = $i + 1; } $success = $imap->ExpungeAndClose(); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } # Disconnect from the IMAP server. $success = $imap->Disconnect(); |
© 2000-2019 Chilkat Software, Inc. All Rights Reserved.