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
(Tcl) Read All Email from POP3 Inbox by Message NumbersDemonstrates how to read all of the email from a POP3 inbox by fetching each email by it's message number.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set mailman [new_CkMailMan] # Set the POP3 server's hostname CkMailMan_put_MailHost $mailman "pop.someMailServer.com" # Set the POP3 login/password. CkMailMan_put_PopUsername $mailman "myLogin" CkMailMan_put_PopPassword $mailman "myPassword" # Get the number of messages in the mailbox. set numMessages [CkMailMan_GetMailboxCount $mailman] # Message numbers are specific to a POP3 session. # If a maildrop (i.e. inbox) contains 10 messages, # the message numbers will be 1, 2, 3, ... 10. # If message number 1 is deleted and a new POP3 session # is established, there will be 9 messages numbered 1, 2, 3, ... 9. set i 1 # email is a CkEmail while {$i <= $numMessages} { set email [CkMailMan_FetchByMsgnum $mailman $i] if {[CkMailMan_get_LastMethodSuccess $mailman] != 1} then { puts [CkMailMan_lastErrorText $mailman] delete_CkMailMan $mailman exit } puts [CkEmail_from $email]: [CkEmail_subject $email]\n delete_CkEmail $email set i [expr $i + 1] } delete_CkMailMan $mailman |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.