PowerBuilder

Control Overwriting When Saving Attachments

Demonstrates the Chilkat Email.OverwriteExisting property. When true (the default), the methods that save attachments and related items overwrite files that already exist. When false, those methods instead append a short 4-character string to create a unique filename, and the filename stored in the email object is updated so your program can discover the actual file(s) created. This setting applies only when writing to the filesystem. This example disables overwriting and saves all attachments.

Background: Attachment filenames come from the sender and are not guaranteed to be unique — two different emails (or even two parts of one email) can both be named invoice.pdf. When saving many attachments into one folder, that collision would silently destroy data if each save overwrote the last. Setting OverwriteExisting to false makes Chilkat generate a distinct name instead, and reading the updated filename back from the object tells you where the file actually landed.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Email

li_Success = 0

//  Demonstrates the Email.OverwriteExisting property.  When true (the default), the
//  methods that save attachments and related items overwrite existing files.  When
//  false, Chilkat instead creates a unique filename (appending 4 characters) so an
//  existing file is not overwritten.

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Email.Subject = "Attachment save demo"
loo_Email.AddStringAttachment("report.txt","Attachment contents.")

//  Do not overwrite an existing file; create a unique filename instead.
loo_Email.OverwriteExisting = 0

li_Success = loo_Email.SaveAllAttachments("qa_output/attachments")
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

Write-Debug "Saved.  OverwriteExisting = " + string(loo_Email.OverwriteExisting)


destroy loo_Email