Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Rename Email Attachments After AddingDemonstrates how to rename email attachments after adding but before sending.
integer li_rc oleobject loo_Mailman oleobject loo_Email integer li_Success string ls_ContentType // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Mailman = create oleobject // Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0 li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan") if li_rc < 0 then destroy loo_Mailman MessageBox("Error","Connecting to COM object failed") return end if loo_Mailman.SmtpHost = "smtp.my-mail-server.com" loo_Mailman.SmtpUsername = "MY_SMTP_USERNAME" loo_Mailman.SmtpPassword = "MY_SMTP_PASSWORD" loo_Mailman.SmtpSsl = 1 loo_Mailman.SmtpPort = 465 loo_Email = create oleobject // Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0 li_rc = loo_Email.ConnectToNewObject("Chilkat.Email") loo_Email.Subject = "This is a test" loo_Email.Body = "This is a test" loo_Email.From = "Chilkat Support <support@chilkatsoft.com>" li_Success = loo_Email.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. ls_ContentType = loo_Email.AddFileAttachment("qa_data/jpg/starfish.jpg") if loo_Email.LastMethodSuccess <> 1 then Write-Debug loo_Email.LastErrorText destroy loo_Mailman destroy loo_Email return end if ls_ContentType = loo_Email.AddFileAttachment("qa_data/pdf/fishing.pdf") if loo_Email.LastMethodSuccess <> 1 then Write-Debug loo_Email.LastErrorText destroy loo_Mailman destroy loo_Email return end if // If we save the email to a .eml, we can examine in a text editor. li_Success = loo_Email.SaveEml("qa_output/e1.eml") if li_Success = 0 then Write-Debug loo_Email.LastErrorText Write-Debug "Failed to save .eml" destroy loo_Mailman destroy loo_Email return end if // 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: li_Success = loo_Email.SetAttachmentFilename(0,"orange_starfish.jpg") li_Success = loo_Email.SetAttachmentFilename(1,"tuna_fishing.pdf") // Look at the new MIME source of the email in a text editor... li_Success = loo_Email.SaveEml("qa_output/e2.eml") if li_Success = 0 then Write-Debug loo_Email.LastErrorText Write-Debug "Failed to save .eml" destroy loo_Mailman destroy loo_Email return end if // 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.. li_Success = loo_Mailman.SendEmail(loo_Email) if li_Success <> 1 then Write-Debug loo_Mailman.LastErrorText destroy loo_Mailman destroy loo_Email return end if li_Success = loo_Mailman.CloseSmtpConnection() if li_Success <> 1 then Write-Debug "Connection to SMTP server not closed cleanly." end if Write-Debug "Mail with attachments sent!" destroy loo_Mailman destroy loo_Email |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.