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
(Tcl) Sorting EmailHow to sort an email bundle.
load ./chilkat.dll set imap [new_CkImap] # Anything unlocks the component and begins a fully-functional 30-day trial. set success [CkImap_UnlockComponent $imap "Anything for 30-day trial"] if {[expr $success != 1]} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Connect to an IMAP server. # Use TLS CkImap_put_Ssl $imap 1 CkImap_put_Port $imap 993 set success [CkImap_Connect $imap "imap.someMailServer.com"] if {[expr $success != 1]} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Login set success [CkImap_Login $imap "myLogin" "myPassword"] if {[expr $success != 1]} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Select an IMAP mailbox set success [CkImap_SelectMailbox $imap "Inbox"] if {[expr $success != 1]} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # messageSet is a CkMessageSet # We can choose to fetch UIDs or sequence numbers. set fetchUids 1 # Pass any of the above strings here to test a search: set messageSet [CkImap_Search $imap "ALL" $fetchUids] if {[string equal $messageSet "NULL"]} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Fetch the email headers into a bundle object: # bundle is a CkEmailBundle set bundle [CkImap_FetchHeaders $imap $messageSet] if {[string equal $bundle "NULL"]} then { delete_CkMessageSet $messageSet puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Sort the email bundle by date, recipient, sender, or subject: set ascending 1 CkEmailBundle_SortByDate $bundle $ascending # To sort by recipient, sender, or subject, call # SortBySender, SortByRecipient, or SortBySubject. # Display the Subject and From of each email. for {set i 0} {$i <= [expr [CkEmailBundle_get_MessageCount $bundle] - 1]} {incr i} { # email is a CkEmail set email [CkEmailBundle_GetEmail $bundle $i] puts [CkEmail_getHeaderField $email Date] puts [CkEmail_subject $email] puts [CkEmail_from $email] puts "--" delete_CkEmail $email } # Disconnect from the IMAP server. set success [CkImap_Disconnect $imap] delete_CkMessageSet $messageSet delete_CkEmailBundle $bundle delete_CkImap $imap |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.