(DataFlex) Rename Email Attachments After Adding

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

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMailman
    Variant vEmail
    Handle hoEmail
    Boolean iSuccess
    String sContentType
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    Set ComSmtpHost Of hoMailman To "smtp.my-mail-server.com"
    Set ComSmtpUsername Of hoMailman To "MY_SMTP_USERNAME"
    Set ComSmtpPassword Of hoMailman To "MY_SMTP_PASSWORD"
    Set ComSmtpSsl Of hoMailman To True
    Set ComSmtpPort Of hoMailman To 465

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

    Set ComSubject Of hoEmail To "This is a test"
    Set ComBody Of hoEmail To "This is a test"
    Set ComFrom Of hoEmail To "Chilkat Support <support@chilkatsoft.com>"
    Get ComAddTo Of hoEmail "Chilkat Admin" "admin@chilkatsoft.com" To iSuccess
    // 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.
    Get ComAddFileAttachment Of hoEmail "qa_data/jpg/starfish.jpg" To sContentType
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComAddFileAttachment Of hoEmail "qa_data/pdf/fishing.pdf" To sContentType
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // If we save the email to a .eml, we can examine in a text editor.
    Get ComSaveEml Of hoEmail "qa_output/e1.eml" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Showln "Failed to save .eml"
        Procedure_Return
    End

    // 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:
    Get ComSetAttachmentFilename Of hoEmail 0 "orange_starfish.jpg" To iSuccess
    Get ComSetAttachmentFilename Of hoEmail 1 "tuna_fishing.pdf" To iSuccess

    // Look at the new MIME source of the email in a  text editor...
    Get ComSaveEml Of hoEmail "qa_output/e2.eml" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Showln "Failed to save .eml"
        Procedure_Return
    End

    // 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..
    Get pvComObject of hoEmail to vEmail
    Get ComSendEmail Of hoMailman vEmail To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComCloseSmtpConnection Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Showln "Connection to SMTP server not closed cleanly."
    End

    Showln "Mail with attachments sent!"


End_Procedure