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
(Tcl) Process New Email by Scanning for SendersScan email and save application-selected emails to EML files with unique filenames.
load ./chilkat.dll # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set imap [new_CkImap] # 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 {$success != 1} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Login set success [CkImap_Login $imap "myLogin" "myPassword"] if {$success != 1} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Select an IMAP mailbox set success [CkImap_SelectMailbox $imap "Inbox"] if {$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 # Fetch messages from the mailbox using a search criteria. # This example finds NEW emails: these are emails that have the RECENT flag set, but not the SEEN flag: set messageSet [CkImap_Search $imap "NEW" $fetchUids] if {[CkImap_get_LastMethodSuccess $imap] == 0} then { puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # This example will download headers, and then download # the full email for those emails sent from a contact # in our database. # When downloading headers, each email object contains # (obviously) the headers, but the body will be missing. # Also, attachments will not be included. However, it is # possible to get information about the attachments # as well as the complete size of the email. # bundle is a CkEmailBundle set bundle [CkImap_FetchHeaders $imap $messageSet] if {[CkImap_get_LastMethodSuccess $imap] == 0} then { delete_CkMessageSet $messageSet puts [CkImap_lastErrorText $imap] delete_CkImap $imap exit } # Loop over the email objects... set i 0 set numEmails [CkEmailBundle_get_MessageCount $bundle] while {$i < $numEmails} { # email is a CkEmail set email [CkEmailBundle_GetEmail $bundle $i] # The sender's email address and name are available # in the From, FromAddress, and FromName properties. # If the sender is "Chilkat Support <support@chilkatsoft.com", # then the From property will hold the entire string. # the FromName property contains"Chilkat Support", # and the FromAddress property contains "support@chilkatsoft.com" puts [CkEmail_from $email] puts [CkEmail_fromAddress $email] puts [CkEmail_fromName $email] # Assume at this point your code checks to see if the sender # is one in your contacts database. If so, this is # the code you would write to download the entire # email and save it to a file. # The ckx-imap-uid header field is added when # headers are downloaded. This makes it possible # to get the UID from the email object. set uidStr [CkEmail_getHeaderField $email "ckx-imap-uid"] set uid $uidStr # fullEmail is a CkEmail set fullEmail [CkImap_FetchSingle $imap $uid 1] if {[CkImap_get_LastMethodSuccess $imap] == 1} then { # You may use the GenerateFilename method to # generate a unique filename... set filename [CkEmail_generateFilename $fullEmail] # SaveEml saves the entire email, including attachments. set success [CkEmail_SaveEml $fullEmail $filename] delete_CkEmail $fullEmail } puts "--" delete_CkEmail $email set i [expr $i + 1] } # Disconnect from the IMAP server. set success [CkImap_Disconnect $imap] delete_CkMessageSet $messageSet delete_CkEmailBundle $bundle delete_CkImap $imap |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.