Xbase++

Rename Email Attachments After Adding

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

LOCAL nSuccess
LOCAL oMailman
LOCAL oEmail
LOCAL cContentType

nSuccess := 0

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

oMailman := CreateObject("Chilkat.MailMan")

oMailman:SmtpHost := "smtp.my-mail-server.com"
oMailman:SmtpUsername := "MY_SMTP_USERNAME"
oMailman:SmtpPassword := "MY_SMTP_PASSWORD"
oMailman:SmtpSsl := 1
oMailman:SmtpPort := 465

oEmail := CreateObject("Chilkat.Email")

oEmail:Subject := "This is a test"
oEmail:Body := "This is a test"
oEmail:From := "Chilkat Support <support@chilkatsoft.com>"
nSuccess := oEmail:AddTo("Chilkat Admin", "admin@chilkatsoft.com")
//  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.
cContentType := oEmail:AddFileAttachment("qa_data/jpg/starfish.jpg")
IF (oEmail:LastMethodSuccess != 1)
    ? oEmail:LastErrorText
    oMailman:destroy()
    oEmail:destroy()
    RETURN
ENDIF

cContentType := oEmail:AddFileAttachment("qa_data/pdf/fishing.pdf")
IF (oEmail:LastMethodSuccess != 1)
    ? oEmail:LastErrorText
    oMailman:destroy()
    oEmail:destroy()
    RETURN
ENDIF

//  If we save the email to a .eml, we can examine in a text editor.
nSuccess := oEmail:SaveEml("qa_output/e1.eml")
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    ? "Failed to save .eml"
    oMailman:destroy()
    oEmail:destroy()
    RETURN
ENDIF

//  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:
nSuccess := oEmail:SetAttachmentFilename(0, "orange_starfish.jpg")
nSuccess := oEmail:SetAttachmentFilename(1, "tuna_fishing.pdf")

//  Look at the new MIME source of the email in a  text editor...
nSuccess := oEmail:SaveEml("qa_output/e2.eml")
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    ? "Failed to save .eml"
    oMailman:destroy()
    oEmail:destroy()
    RETURN
ENDIF

//  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..
nSuccess := oMailman:SendEmail(oEmail)
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oEmail:destroy()
    RETURN
ENDIF

nSuccess := oMailman:CloseSmtpConnection()
IF (nSuccess != 1)
    ? "Connection to SMTP server not closed cleanly."
ENDIF

? "Mail with attachments sent!"

oMailman:destroy()
oEmail:destroy()