(DataFlex) Add Header Field to MIME Sub-Header in Email

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail
    Boolean iSuccess
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    Set ComSubject Of hoEmail To "test"
    Get ComAddTo Of hoEmail "Chilkat" "support@chilkatsoft.com" To iSuccess
    Set ComFrom Of hoEmail To "Matt <matt@example.com>"
    Set ComBody Of hoEmail To "This is a simple plain-text body."

    Get ComAddFileAttachment2 Of hoEmail "qa_data/1.HPM" "application/x-hprimnet" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Add a "ContentDescription: HPM/3.0" in the attachment's sub-header.
    // The 1st attachment is at index 0.
    Send ComAddAttachmentHeader To hoEmail 0 "Content-Description" "HPM/3.0"

    // Show the email MIME:
    Get ComGetMime Of hoEmail To sTemp1
    Showln sTemp1

    // This is the output:
    // (Note: When Chilkat sends email, all CKX-* headers are removed prior to sending.)

    // 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>
    // CKX-Bounce-Address: 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--


End_Procedure