![]() |
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
(PowerBuilder) IMAP Download All Email One at a TimeDemonstrates how to download every email in an IMAP mailbox one at a time as a MIME string or as an email object. (The MIME contains the full contents of the email including all attachments.) Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Imap integer li_BUid string ls_MimeStr integer i integer n oleobject loo_Email li_Success = 0 loo_Imap = create oleobject li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap") if li_rc < 0 then destroy loo_Imap MessageBox("Error","Connecting to COM object failed") return end if // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Connect to an IMAP server. // Use TLS loo_Imap.Ssl = 1 loo_Imap.Port = 993 li_Success = loo_Imap.Connect("imap.example.com") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Login li_Success = loo_Imap.Login("myLogin","myPassword") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Select an IMAP mailbox li_Success = loo_Imap.SelectMailbox("Inbox") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Once the mailbox is selected, the NumMessages property // will contain the number of messages in the mailbox. // You may loop from 1 to NumMessages to // fetch each message by sequence number. li_BUid = 0 n = loo_Imap.NumMessages for i = 1 to n // Download the email by sequence number. ls_MimeStr = loo_Imap.FetchSingleAsMime(i,li_BUid) // ... your application may process each MIME string... next // An alternative is to download each email in the form of an // email object, like this: loo_Email = create oleobject li_rc = loo_Email.ConnectToNewObject("Chilkat.Email") for i = 1 to n // Download the email by sequence number. li_Success = loo_Imap.FetchEmail(0,i,li_BUid,loo_Email) // ... your application may process the email object... next // Disconnect from the IMAP server. li_Success = loo_Imap.Disconnect() destroy loo_Imap destroy loo_Email |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.