DataFlex

Change the Filename of a Related Item

Demonstrates the Chilkat Email.SetRelatedFilename method, which sets (changes) the filename stored for a related item within the email. The index is zero-based. This example adds a related style sheet and renames it, printing the filename before and after.

Background: A related item's filename identifies the embedded resource within the message. Changing it is occasionally needed to match how the HTML body references the resource, or to give an embedded image or style sheet a cleaner name. Keep in mind that if the HTML links to the item by that name (via Content-Location), the reference should be kept in sync with the new filename.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the SetRelatedFilename method, which sets (changes) the filename of a
    //  related item within the email.  The index is zero-based.

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComSubject Of hoEmail To "Set related item filename"

    //  Set an HTML body and add a related style sheet (index 0).
    Send ComSetHtmlBody To hoEmail '<html><head><link rel="stylesheet" href="styles.css"/></head><body>Styled.</body></html>'
    Send ComAddRelatedString2 To hoEmail "styles.css" "body { color: navy; }" "utf-8"
    Get ComGetRelatedFilename Of hoEmail 0 To sTemp1
    Showln "Related filename before: " sTemp1

    //  Change the filename of the related item at index 0.
    Get ComSetRelatedFilename Of hoEmail 0 "main.css" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComGetRelatedFilename Of hoEmail 0 To sTemp1
    Showln "Related filename after: " sTemp1


End_Procedure