![]() |
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) List Yahoo Mail IMAP MailboxesSee more Yahoo Mail ExamplesList Yahoo Mail mailboxes.Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll set success 0 # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. # See Get Yahoo Mail OAuth2 Access Token for Desktop App # for sample code showing how to obtain a Yahoo Mail access token. # In this example, our access token was previously saved to the following file which contains JSON like this: # { # "access_token": "kCVQdnOdul...LHucA--", # "refresh_token": "AIenVXETSo0jklFBVkPS8vVm8E.Ej9ToRG.xDbDYmZ65WIs5t6CZhDrD", # "expires_in": 3600, # "token_type": "bearer", # "xoauth_yahoo_guid": "HGDQCVF5JB4YDOWHITQJFBHCWA" # } set json [new_CkJsonObject] set success [CkJsonObject_LoadFile $json "qa_data/tokens/yahooMail.json"] if {$success != 1} then { puts "Failed to load Yahoo Mail access token file." delete_CkJsonObject $json exit } set accessToken [CkJsonObject_stringOf $json "access_token"] # Do OAuth2 authentication by using the access token as the password in the Login method below... set imap [new_CkImap] CkImap_put_Ssl $imap 1 CkImap_put_Port $imap 993 # Connect to the Yahoo IMAP server. set success [CkImap_Connect $imap "imap.mail.yahoo.com"] if {$success == 0} then { puts [CkImap_lastErrorText $imap] delete_CkJsonObject $json delete_CkImap $imap exit } # Indicate that XOAUTH2 authentication is to be used: CkImap_put_AuthMethod $imap "XOAUTH2" # Login # Use the email address of the Yahoo Mail account that granted authorization. set success [CkImap_Login $imap "user@yahoo.com" $accessToken] if {$success != 1} then { puts [CkImap_lastErrorText $imap] } else { puts "Successfully authenticated with Yahoo IMAP using XOAUTH2!" } # Get the list of mailboxes. set refName "" set wildcardedMailbox "*" set subscribed 0 set mboxes [new_CkMailboxes] set success [CkImap_MbxList $imap $subscribed $refName $wildcardedMailbox $mboxes] if {$success == 0} then { puts [CkImap_lastErrorText $imap] delete_CkJsonObject $json delete_CkImap $imap delete_CkMailboxes $mboxes exit } set i 0 while {$i < [CkMailboxes_get_Count $mboxes]} { puts [CkMailboxes_getName $mboxes $i] set i [expr $i + 1] } # Sample output looks like this: # Archive # Bulk Mail # Draft # Inbox # Inbox/emailsWithAttach # Inbox/test # Sent # Trash # Disconnect from the IMAP server. set success [CkImap_Disconnect $imap] delete_CkJsonObject $json delete_CkImap $imap delete_CkMailboxes $mboxes |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.