![]() |
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) Download POP3 Email to MIMEDownload the email from a POP3 mailbox directly into MIME, without parsing into email objects. Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Mailman oleobject loo_StUidls oleobject loo_BdMime oleobject loo_Email integer li_Count integer i li_Success = 0 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // The mailman object is used for receiving (POP3) // and sending (SMTP) email. loo_Mailman = create oleobject li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan") if li_rc < 0 then destroy loo_Mailman MessageBox("Error","Connecting to COM object failed") return end if // Set the POP3 server's hostname loo_Mailman.MailHost = "pop.example.com" // Set the POP3 login/password. loo_Mailman.PopUsername = "myLogin" loo_Mailman.PopPassword = "myPassword" // First, get the complete set of UIDLs for the email in the POP3 mailbox: loo_StUidls = create oleobject li_rc = loo_StUidls.ConnectToNewObject("Chilkat.StringTable") li_Success = loo_Mailman.FetchUidls(loo_StUidls) if li_Success = 0 then Write-Debug loo_Mailman.LastErrorText destroy loo_Mailman destroy loo_StUidls return end if // Download each email as MIME. // If desired, the MIME can be loaded into an email object. loo_BdMime = create oleobject li_rc = loo_BdMime.ConnectToNewObject("Chilkat.BinData") loo_Email = create oleobject li_rc = loo_Email.ConnectToNewObject("Chilkat.Email") li_Count = loo_StUidls.Count i = 0 do while i < li_Count li_Success = loo_Mailman.FetchMimeBd(loo_StUidls.StringAt(i),loo_BdMime) if li_Success = 0 then Write-Debug loo_Mailman.LastErrorText destroy loo_Mailman destroy loo_StUidls destroy loo_BdMime destroy loo_Email return end if loo_Email.SetFromMimeBd(loo_BdMime) Write-Debug "From: " + loo_Email.From Write-Debug "Subject: " + loo_Email.Subject i = i + 1 loop destroy loo_Mailman destroy loo_StUidls destroy loo_BdMime destroy loo_Email |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.