PureBasic

Add Header Field to MIME Sub-Header in Email

See more Email Object Examples

Demonstrates how to add a header field to one of the attachment sub-headers in an email. PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 0

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

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

    CkEmail::setCkSubject(email, "test")
    CkEmail::ckAddTo(email,"Chilkat","support@chilkatsoft.com")
    CkEmail::setCkFrom(email, "Matt <matt@example.com>")
    CkEmail::setCkBody(email, "This is a simple plain-text body.")

    success = CkEmail::ckAddFileAttachment2(email,"qa_data/1.HPM","application/x-hprimnet")
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; Add a "ContentDescription: HPM/3.0" in the attachment's sub-header.
    ; The 1st attachment is at index 0.
    CkEmail::ckAddAttachmentHeader(email,0,"Content-Description","HPM/3.0")

    ; Show the email MIME:
    Debug CkEmail::ckGetMime(email)

    ; This is the output:

    ; MIME-Version: 1.0
    ; Date: Wed, 16 Jan 2019 10:05:18 -0600
    ; Message-ID: <93B88835586270B7BE5202F84E171F29C10BA935@CHILKATSLICE>
    ; Content-Type: multipart/mixed; boundary="------------000502000000020502010608"
    ; X-Priority: 3 (Normal)
    ; Subject: test
    ; To: Chilkat <support@chilkatsoft.com>
    ; From: Matt <matt@example.com>
    ; 
    ; --------------000502000000020502010608
    ; Content-Type: text/plain; charset=us-ascii; format=flowed
    ; Content-Transfer-Encoding: 7bit
    ; 
    ; This is a simple plain-text body.
    ; --------------000502000000020502010608
    ; Content-Type: application/x-hprimnet; name="1.HPM"
    ; Content-Transfer-Encoding: base64
    ; Content-Disposition: attachment; filename="1.HPM"
    ; Content-Description: HPM/3.0
    ; 
    ; FILE_DATA_IS_HERE...
    ; 
    ; --------------000502000000020502010608--


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure