![]() |
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
(AutoIt) Process New Email by Scanning for SendersScan email and save application-selected emails to EML files with unique filenames. Note: This example requires Chilkat v11.0.0 or greater.
Local $bSuccess = False ; This example assumes 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 $bSuccess = $oImap.Connect("imap.someMailServer.com") If ($bSuccess = False) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; Login $bSuccess = $oImap.Login("myLogin","myPassword") If ($bSuccess = False) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; Select an IMAP mailbox $bSuccess = $oImap.SelectMailbox("Inbox") If ($bSuccess = False) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; We can choose to fetch UIDs or sequence numbers. Local $bFetchUids = True ; 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: $oMessageSet = ObjCreate("Chilkat.MessageSet") $bSuccess = $oImap.QueryMbx("NEW",$bFetchUids,$oMessageSet) If ($bSuccess = False) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; 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. $oBundle = ObjCreate("Chilkat.EmailBundle") Local $bHeadersOnly = True $bSuccess = $oImap.FetchMsgSet($bHeadersOnly,$oMessageSet,$oBundle) If ($bSuccess = False) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; Loop over the email objects... $oEmailHeader = ObjCreate("Chilkat.Email") $oFullEmail = ObjCreate("Chilkat.Email") Local $i = 0 Local $iNumEmails = $oBundle.MessageCount While $i < $iNumEmails $oBundle.EmailAt($i,$oEmailHeader) ; 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" ConsoleWrite($oEmailHeader.From & @CRLF) ConsoleWrite($oEmailHeader.FromAddress & @CRLF) ConsoleWrite($oEmailHeader.FromName & @CRLF) ; 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. Local $sUidStr = $oEmailHeader.GetHeaderField("ckx-imap-uid") Local $iUid = Int($sUidStr) $bSuccess = $oImap.FetchEmail(False,$iUid,True,$oFullEmail) If ($bSuccess = False) Then ConsoleWrite($oImap.LastErrorText & @CRLF) Exit EndIf ; You can use the GenerateFilename method to ; generate a unique filename... Local $sFilename = $oFullEmail.GenerateFilename() ; SaveEml saves the entire email, including attachments. $bSuccess = $oFullEmail.SaveEml($sFilename) ConsoleWrite("--" & @CRLF) $i = $i + 1 Wend ; Disconnect from the IMAP server. $bSuccess = $oImap.Disconnect() |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.