DataFlex

Get the Filename of an Attached Message

Demonstrates the Chilkat Email.GetAttachedMessageFilename method, which returns the filename of the Nth attached (embedded) email. The filename is the filename attribute of the attached message's Content-Disposition header, and the index is zero-based. This example attaches an email and reads the attached message's filename.

Background: When an email forwards another message as an attachment, the nested message is a message/rfc822 part — a complete email tucked inside the carrier. Mail clients often give that part a filename (like forwarded.eml) via its Content-Disposition header so it can be saved to disk. This method reads that filename directly. Attached messages are counted separately from ordinary attachments (see NumAttachedMessages).

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vInnerEmail
    Handle hoInnerEmail
    Handle hoEmail
    String sFname
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the GetAttachedMessageFilename method, which returns the filename of the
    //  Nth attached (embedded) email.  The filename is the "filename" attribute of the
    //  attached message's Content-Disposition header.  The index is zero-based.

    //  Build an inner email to attach.
    Get Create (RefClass(cComChilkatEmail)) To hoInnerEmail
    If (Not(IsComObjectCreated(hoInnerEmail))) Begin
        Send CreateComObject of hoInnerEmail
    End
    Set ComSubject Of hoInnerEmail To "Embedded message"
    Set ComFrom Of hoInnerEmail To "alice@example.com"
    Get ComAddTo Of hoInnerEmail "Bob" "bob@example.com" To iSuccess

    //  Attach it to an outer email as a message/rfc822 part.
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComSubject Of hoEmail To "Has an attached message"
    Get pvComObject of hoInnerEmail to vInnerEmail
    Get ComAttachEmail Of hoEmail vInnerEmail To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Get the filename of the first attached message (index 0).
    Get ComGetAttachedMessageFilename Of hoEmail 0 To sFname
    Showln "Attached message filename: " sFname


End_Procedure