Chilkat Examples

ChilkatHOMEAndroid™AutoItCC#C++Chilkat2-PythonCkPythonClassic ASPDataFlexDelphi DLLGoJavaNode.jsObjective-CPHP ExtensionPerlPowerBuilderPowerShellPureBasicRubySQL ServerSwiftTclUnicode CUnicode C++VB.NETVBScriptVisual Basic 6.0Visual FoxProXojo Plugin

DataFlex Examples
Web API Categories

ASN.1
AWS KMS
AWS Misc
Amazon EC2
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Key Vault
Azure Service Bus
Azure Table Service
Base64
Box
CAdES
CSR
CSV
Cert Store
Certificates
Cloud Signature CSC
Code Signing
Compression
DKIM / DomainKey
DNS
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
EBICS
ECC
Ed25519
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
GMail SMTP/IMAP/POP
Geolocation
Google APIs
Google Calendar
Google Cloud SQL
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text
HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
Misc
NTLM
OAuth1
OAuth2
OIDC
Office365
OneDrive
OpenSSL
Outlook
Outlook Calendar
Outlook Contact
PDF Signatures
PEM
PFX/P12
PKCS11
POP3
PRNG
REST
REST Misc
RSA
SCP
SCard
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
ScMinidriver
Secrets
SharePoint
SharePoint Online
Signing in the Cloud
Socket/SSL/TLS
Spider
Stream
Tar Archive
ULID/UUID
Upload
WebSocket
X
XAdES
XML
XML Digital Signatures
XMP
Zip
curl
uncategorized

 

 

 

(DataFlex) Download and Save Email Attachments (POP3)

See more POP3 Examples
Downloads emails from a POP3 mailbox and saves all attachments.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    Variant vBundle
    Handle hoBundle
    Boolean iKeepOnServer
    Boolean iHeadersOnly
    Integer iNumBodyLines
    String sDirPath
    Variant vEmail
    Handle hoEmail
    Integer iBundleIndex
    Integer iNumMessages
    Integer iNumAttachments
    Integer iAttachIndex
    String sTemp1

    Move False To iSuccess

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    // The mailman object is used for receiving (POP3) 
    // and sending (SMTP) email.
    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    // Set the POP3 server's hostname
    Set ComMailHost Of hoMailman To "pop.yourserver.com"

    // Set the POP3 login/password.
    Set ComPopUsername Of hoMailman To "***"
    Set ComPopPassword Of hoMailman To "***"

    // Copy the all email from the user's POP3 mailbox 
    // into a bundle object.  The email remains on the server.
    // FetchAll is a reasonable choice for POP3 maildrops that don't have too many
    // emails. For larger mail drops, one might download emails one at a time..
    Get Create (RefClass(cComChilkatEmailBundle)) To hoBundle
    If (Not(IsComObjectCreated(hoBundle))) Begin
        Send CreateComObject of hoBundle
    End
    Move True To iKeepOnServer
    Move False To iHeadersOnly
    // Irrelevent because we are NOT downloading headers-only
    Move 0 To iNumBodyLines
    Get pvComObject of hoBundle to vBundle
    Get ComFetchAll Of hoMailman iKeepOnServer iHeadersOnly iNumBodyLines vBundle To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The directory path can be relative or absolute.
    // This shows a Windows style directory path.  On other operating systems, the path
    // would be different..
    Move "c:/myAttachments" To sDirPath

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Move 0 To iBundleIndex
    Get ComMessageCount Of hoBundle To iNumMessages

    While (iBundleIndex < iNumMessages)
        Get pvComObject of hoEmail to vEmail
        Get ComEmailAt Of hoBundle iBundleIndex vEmail To iSuccess

        // Save all attachments to the specified directory.
        // The directory is automatically created if it does not yet exist.
        Get ComSaveAllAttachments Of hoEmail sDirPath To iSuccess
        If (iSuccess = False) Begin
            Get ComLastErrorText Of hoEmail To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        // The OverwriteExisting property controls whether already-existing files
        // are automatically overwritten.  By default, it is set to True so that existing
        // files will be overwritten.

        // Setting OverwriteExisting = False will cause the attachment-saving methods to generate
        // unique filenames if a file with the same name already exists.  The actual filename(s)
        // saved will be present by calling GetAttachmentFilename for each attachment *after*
        // saving.
        // For example...
        Set ComOverwriteExisting Of hoEmail To False
        Get ComSaveAllAttachments Of hoEmail sDirPath To iSuccess
        If (iSuccess = False) Begin
            Get ComLastErrorText Of hoEmail To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        Get ComNumAttachments Of hoEmail To iNumAttachments
        Move 0 To iAttachIndex
        While (iAttachIndex < iNumAttachments)
            // If the attachment filename was changed to prevent overwriting,
            // GetAttachmentFilename will return the new filename.
            Get ComGetAttachmentFilename Of hoEmail iAttachIndex To sTemp1
            Showln sTemp1
            Move (iAttachIndex + 1) To iAttachIndex
        Loop

        // Attachments can also be saved individually.
        Move 0 To iAttachIndex
        While (iAttachIndex < iNumAttachments)

            Get ComGetAttachmentFilename Of hoEmail iAttachIndex To sTemp1
            Showln "Original Filename: " sTemp1
            Get ComSaveAttachedFile Of hoEmail iAttachIndex sDirPath To iSuccess
            If (iSuccess = False) Begin
                Get ComLastErrorText Of hoEmail To sTemp1
                Showln sTemp1
                Procedure_Return
            End

            // If OverwriteExisting = True, the saved filename will always equal the original filename,
            // unless there are characters present in the filename that are not allowed by Windows,
            // such as * ? < > | etc.  In those cases the illegal characters are either removed or replaced
            // with underscore characters to allow the file to be saved.
            Get ComGetAttachmentFilename Of hoEmail iAttachIndex To sTemp1
            Showln "Saved Filename: " sTemp1
            Move (iAttachIndex + 1) To iAttachIndex
        Loop

        Move (iBundleIndex + 1) To iBundleIndex
    Loop



End_Procedure

 

© 2000-2025 Chilkat Software, Inc. All Rights Reserved.