PureBasic

Save Email Attachments to Filesystem

Saves email attachments to a directory. PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 0

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  Load an email object containing attachments.
    ;  This .eml can be downloaded from:
    ;  http://www.example-code.com/testData/HtmlEmail.eml

    success = CkEmail::ckLoadEml(email,"HtmlEmail.eml")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ;  If OverwriteExisting is turned on, files with the same
    ;  name are overwritten.  If turned off, new/unique filenames
    ;  are automatically generated.  The filenames actually saved
    ;  are accessible via the GetAttachmentFilename method.
    CkEmail::setCkOverwriteExisting(email, 1)

    ;  Save all attachments to the "myAttachments" subdirectory
    ;  found under the calling process's current working directory.
    ;  This directory is automatically created if it does not already
    ;  exist.
    success = CkEmail::ckSaveAllAttachments(email,"myAttachments")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ;  List the attachment filenames:
    i.i
    For i = 0 To CkEmail::ckNumAttachments(email) - 1
        Debug CkEmail::ckGetAttachmentFilename(email,i)
    Next


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure