![]() |
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
(PowerBuilder) Scan for Emails with Attachments and Save Attachments to FilesScan for emails with attachments and save attachments. Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Imap integer li_FetchUids oleobject loo_MessageSet oleobject loo_Bundle integer li_HeadersOnly oleobject loo_FullEmail oleobject loo_EmailHeader integer i integer li_NumAttach string ls_UidStr integer li_Uid integer j string ls_Filename li_Success = 0 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Imap = create oleobject li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap") if li_rc < 0 then destroy loo_Imap MessageBox("Error","Connecting to COM object failed") return end if // Connect to an IMAP server. // Use TLS loo_Imap.Ssl = 1 loo_Imap.Port = 993 li_Success = loo_Imap.Connect("imap.someMailServer.com") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Login li_Success = loo_Imap.Login("myLogin","myPassword") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Select an IMAP mailbox li_Success = loo_Imap.SelectMailbox("Inbox") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // We can choose to fetch UIDs or sequence numbers. li_FetchUids = 1 // Get the message IDs of all the emails in the mailbox loo_MessageSet = create oleobject li_rc = loo_MessageSet.ConnectToNewObject("Chilkat.MessageSet") li_Success = loo_Imap.QueryMbx("ALL",li_FetchUids,loo_MessageSet) if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_MessageSet return end if // Fetch the email headers into a bundle object: loo_Bundle = create oleobject li_rc = loo_Bundle.ConnectToNewObject("Chilkat.EmailBundle") li_HeadersOnly = 1 li_Success = loo_Imap.FetchMsgSet(li_HeadersOnly,loo_MessageSet,loo_Bundle) if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_MessageSet destroy loo_Bundle return end if // Scan for emails with attachments, and save the attachments // to a sub-directory. loo_FullEmail = create oleobject li_rc = loo_FullEmail.ConnectToNewObject("Chilkat.Email") loo_EmailHeader = create oleobject li_rc = loo_EmailHeader.ConnectToNewObject("Chilkat.Email") i = 0 do while i < loo_Bundle.MessageCount // The bundle contains email headers.. loo_Bundle.EmailAt(i,loo_EmailHeader) // Does this email have attachments? // Use GetMailNumAttach because the attachments // are not actually in the email object because // we only downloaded headers. // (Had we downloaded the full emails by // calling mailman.FetchBundle, we could look // at the email object's NumAttachments property.) li_NumAttach = loo_Imap.GetMailNumAttach(loo_EmailHeader) if li_NumAttach > 0 then // Download the entire email and save the // attachments. (Remember, we // need to download the entire email because // only the headers were previously downloaded. // If the entire emails were downloaded by // calling FetchBundle instead of FetchHeaders, // this would not be necessary. // The ckx-imap-uid header field is added when // headers are downloaded. This makes it possible // to get the UID from the email object. ls_UidStr = loo_EmailHeader.GetHeaderField("ckx-imap-uid") li_Uid = Integer(ls_UidStr) li_Success = loo_Imap.FetchEmail(0,li_Uid,1,loo_FullEmail) if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_MessageSet destroy loo_Bundle destroy loo_FullEmail destroy loo_EmailHeader return end if li_Success = loo_FullEmail.SaveAllAttachments("attachmentsDir") for j = 0 to li_NumAttach - 1 ls_Filename = loo_Imap.GetMailAttachFilename(loo_EmailHeader,j) Write-Debug ls_Filename next end if i = i + 1 loop // Disconnect from the IMAP server. li_Success = loo_Imap.Disconnect() destroy loo_Imap destroy loo_MessageSet destroy loo_Bundle destroy loo_FullEmail destroy loo_EmailHeader |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.