PureBasic

Rename Email Attachments After Adding

Demonstrates how to rename email attachments after adding but before sending. PureBasic

IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 0

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

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

    CkMailMan::setCkSmtpHost(mailman, "smtp.my-mail-server.com")
    CkMailMan::setCkSmtpUsername(mailman, "MY_SMTP_USERNAME")
    CkMailMan::setCkSmtpPassword(mailman, "MY_SMTP_PASSWORD")
    CkMailMan::setCkSmtpSsl(mailman, 1)
    CkMailMan::setCkSmtpPort(mailman, 465)

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

    CkEmail::setCkSubject(email, "This is a test")
    CkEmail::setCkBody(email, "This is a test")
    CkEmail::setCkFrom(email, "Chilkat Support <support@chilkatsoft.com>")
    success = CkEmail::ckAddTo(email,"Chilkat Admin","admin@chilkatsoft.com")
    ; To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

    ; Add some attachments.
    ; The AddFileAttachment method returns the value of the content-type it chose for the attachment.
    contentType.s = CkEmail::ckAddFileAttachment(email,"qa_data/jpg/starfish.jpg")
    If CkEmail::ckLastMethodSuccess(email) <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    contentType = CkEmail::ckAddFileAttachment(email,"qa_data/pdf/fishing.pdf")
    If CkEmail::ckLastMethodSuccess(email) <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; If we save the email to a .eml, we can examine in a text editor.
    success = CkEmail::ckSaveEml(email,"qa_output/e1.eml")
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        Debug "Failed to save .eml"
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; We see the following in the e1.eml
    ; Notice that Chilkat replaced the full path with just the filename.
    ; The full local path is not part of the email that gets sent..

    ; ...
    ; --------------020807050607070004010609
    ; Content-Type: image/jpeg; name="starfish.jpg"
    ; Content-Transfer-Encoding: base64
    ; Content-Disposition: attachment; filename="starfish.jpg"
    ; 
    ; ...
    ; --------------020807050607070004010609
    ; Content-Type: application/pdf; name="fishing.pdf"
    ; Content-Transfer-Encoding: base64
    ; Content-Disposition: attachment; filename="fishing.pdf"
    ; ...

    ; Before sending, each filename can be changed within the email object.
    ; For example:
    success = CkEmail::ckSetAttachmentFilename(email,0,"orange_starfish.jpg")
    success = CkEmail::ckSetAttachmentFilename(email,1,"tuna_fishing.pdf")

    ; Look at the new MIME source of the email in a  text editor...
    success = CkEmail::ckSaveEml(email,"qa_output/e2.eml")
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        Debug "Failed to save .eml"
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; You'll see this:

    ; ...
    ; --------------020807050607070004010609
    ; Content-Type: image/jpeg; name="orange_starfish.jpg"
    ; Content-Transfer-Encoding: base64
    ; Content-Disposition: attachment; filename="orange_starfish.jpg"
    ; 
    ; ...
    ; --------------020807050607070004010609
    ; Content-Type: application/pdf; name="tuna_fishing.pdf"
    ; Content-Transfer-Encoding: base64
    ; Content-Disposition: attachment; filename="tuna_fishing.pdf"
    ; ...

    ; Send the email with the updated filenames..
    success = CkMailMan::ckSendEmail(mailman,email)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    success = CkMailMan::ckCloseSmtpConnection(mailman)
    If success <> 1
        Debug "Connection to SMTP server not closed cleanly."
    EndIf

    Debug "Mail with attachments sent!"


    CkMailMan::ckDispose(mailman)
    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure