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
(AutoIt) Get IMAP UID from Email HeaderDemonstrates how to get the IMAP UID from an email header. After fetching an email or header using IMAP, the UID is contained in the ckx-imap-uid header field.
; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. $oImap = ObjCreate("Chilkat.Imap") ; Connect to an IMAP server. ; Use TLS $oImap.Ssl = True $oImap.Port = 993 Local $bSuccess = $oImap.Connect("imap.someMailServer.com") If ($bSuccess <> True) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; Login $bSuccess = $oImap.Login("login","password") If ($bSuccess <> True) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; Select an IMAP mailbox $bSuccess = $oImap.SelectMailbox("Inbox") If ($bSuccess <> True) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf Local $bFetchUids = True ; Get the message UIDs of all the emails in the mailbox Local $oMessageSet = $oImap.Search("ALL",$bFetchUids) If ($oImap.LastMethodSuccess <> True) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf Local $oBundle = $oImap.FetchHeaders($oMessageSet) If ($oImap.LastMethodSuccess <> True) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; The UID of each fetched email header is available ; in the ckx-imap-uid header field. Local $i = 0 Local $iSzBundle = $oBundle.MessageCount $oMsOneMsg = ObjCreate("Chilkat.MessageSet") While $i < $iSzBundle Local $oEmail = $oBundle.GetEmail($i) ; Build a message set containing one UID Local $sUidStr = $oEmail.GetHeaderField("ckx-imap-uid") $oMsOneMsg.FromCompactString($sUidStr) ; Move this message to some other folder. $bSuccess = $oImap.MoveMessages($oMsOneMsg,"someOtherFolder") If ($bSuccess <> True) Then ConsoleWrite($oImap.LastErrorText & @CRLF) ; Exit the loop... $i = $iSzBundle EndIf $i = $i + 1 Wend ; Disconnect from the IMAP server. $bSuccess = $oImap.Disconnect() |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.