PowerBuilder

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 PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_InnerEmail
oleobject loo_Email
string ls_Fname

li_Success = 0

//  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.
loo_InnerEmail = create oleobject
li_rc = loo_InnerEmail.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_InnerEmail
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_InnerEmail.Subject = "Embedded message"
loo_InnerEmail.From = "alice@example.com"
loo_InnerEmail.AddTo("Bob","bob@example.com")

//  Attach it to an outer email as a message/rfc822 part.
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

loo_Email.Subject = "Has an attached message"
li_Success = loo_Email.AttachEmail(loo_InnerEmail)
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_InnerEmail
    destroy loo_Email
    return
end if

//  Get the filename of the first attached message (index 0).
ls_Fname = loo_Email.GetAttachedMessageFilename(0)
Write-Debug "Attached message filename: " + ls_Fname


destroy loo_InnerEmail
destroy loo_Email