Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PHP ActiveX) Copy Email from one IMAP Account to AnotherDemonstrates how to copy the email in a mailbox from one account to another.
<?php // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Imap') $imapSrc = new COM("Chilkat.Imap"); // This example assumes Chilkat Imap to have been previously unlocked. // See Unlock Imap for sample code. // Connect to our source IMAP server. $imapSrc->Ssl = 1; $imapSrc->Port = 993; $success = $imapSrc->Connect('MY-IMAP-DOMAIN'); if ($success != 1) { print $imapSrc->LastErrorText . "\n"; exit; } // Login to the source IMAP server $success = $imapSrc->Login('MY-IMAP-LOGIN','MY-IMAP-PASSWORD'); if ($success != 1) { print $imapSrc->LastErrorText . "\n"; exit; } // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Imap') $imapDest = new COM("Chilkat.Imap"); // Connect to our destination IMAP server. $imapDest->Ssl = 1; $imapDest->Port = 993; $success = $imapDest->Connect('MY-IMAP-DOMAIN2'); if ($success != 1) { print $imapDest->LastErrorText . "\n"; exit; } // Login to the destination IMAP server $success = $imapDest->Login('MY-IMAP-LOGIN2','MY-IMAP-PASSWORD2'); if ($success != 1) { print $imapDest->LastErrorText . "\n"; exit; } // Select a source IMAP mailbox on the source IMAP server $success = $imapSrc->SelectMailbox('Inbox'); if ($success != 1) { print $imapSrc->LastErrorText . "\n"; exit; } $fetchUids = 1; // Get the set of UIDs for all emails on the source server. // mset is a Chilkat.MessageSet $mset = $imapSrc->Search('ALL',$fetchUids); if ($imapSrc->LastMethodSuccess != 1) { print $imapSrc->LastErrorText . "\n"; exit; } // Load the complete set of UIDs that were previously copied. // We dont' want to copy any of these to the destination. // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.FileAccess') $fac = new COM("Chilkat.FileAccess"); // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.MessageSet') $msetAlreadyCopied = new COM("Chilkat.MessageSet"); $strMsgSet = $fac->readEntireTextFile('qa_cache/saAlreadyLoaded.txt','utf-8'); if ($fac->LastMethodSuccess == 1) { $msetAlreadyCopied->FromCompactString($strMsgSet); } $numUids = $mset->Count; // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.StringBuilder') $sbFlags = new COM("Chilkat.StringBuilder"); $i = 0; while ($i < $numUids) { // If this UID was not already copied... $uid = $mset->GetId($i); if (!$msetAlreadyCopied->ContainsId($uid)) { print 'copying ' . $uid . '...' . "\n"; // Get the flags. $flags = $imapSrc->fetchFlags($uid,1); if ($imapSrc->LastMethodSuccess == 0) { print $imapSrc->LastErrorText . "\n"; exit; } $sbFlags->SetString($flags); // Get the MIME of this email from the source. $mimeStr = $imapSrc->fetchSingleAsMime($uid,1); if ($imapSrc->LastMethodSuccess == 0) { print $imapSrc->LastErrorText . "\n"; exit; } $seen = $sbFlags->Contains('\\Seen',0); $flagged = $sbFlags->Contains('\\Flagged',0); $answered = $sbFlags->Contains('\\Answered',0); $draft = $sbFlags->Contains('\\Draft',0); $success = $imapDest->AppendMimeWithFlags('Inbox',$mimeStr,$seen,$flagged,$answered,$draft); if ($success != 1) { print $imapDest->LastErrorText . "\n"; exit; } // Update msetAlreadyCopied with the uid just copied. $msetAlreadyCopied->InsertId($uid); // Save at every iteration just in case there's a failure.. $strMsgSet = $msetAlreadyCopied->toCompactString(); $fac->WriteEntireTextFile('qa_cache/saAlreadyLoaded.txt',$strMsgSet,'utf-8',0); } $i = $i + 1; } // Disconnect from the IMAP servers. $success = $imapSrc->Disconnect(); $success = $imapDest->Disconnect(); ?> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.