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
(VB.NET) Rename Email Attachments After AddingDemonstrates how to rename email attachments after adding but before sending.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim mailman As New Chilkat.MailMan mailman.SmtpHost = "smtp.my-mail-server.com" mailman.SmtpUsername = "MY_SMTP_USERNAME" mailman.SmtpPassword = "MY_SMTP_PASSWORD" mailman.SmtpSsl = True mailman.SmtpPort = 465 Dim email As New Chilkat.Email email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <support@chilkatsoft.com>" Dim success As Boolean = 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. Dim contentType As String = email.AddFileAttachment("qa_data/jpg/starfish.jpg") If (email.LastMethodSuccess <> True) Then Debug.WriteLine(email.LastErrorText) Exit Sub End If contentType = email.AddFileAttachment("qa_data/pdf/fishing.pdf") If (email.LastMethodSuccess <> True) Then Debug.WriteLine(email.LastErrorText) Exit Sub End If ' If we save the email to a .eml, we can examine in a text editor. success = email.SaveEml("qa_output/e1.eml") If (success = False) Then Debug.WriteLine(email.LastErrorText) Debug.WriteLine("Failed to save .eml") Exit Sub 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: success = email.SetAttachmentFilename(0,"orange_starfish.jpg") success = email.SetAttachmentFilename(1,"tuna_fishing.pdf") ' Look at the new MIME source of the email in a text editor... success = email.SaveEml("qa_output/e2.eml") If (success = False) Then Debug.WriteLine(email.LastErrorText) Debug.WriteLine("Failed to save .eml") Exit Sub 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.. success = mailman.SendEmail(email) If (success <> True) Then Debug.WriteLine(mailman.LastErrorText) Exit Sub End If success = mailman.CloseSmtpConnection() If (success <> True) Then Debug.WriteLine("Connection to SMTP server not closed cleanly.") End If Debug.WriteLine("Mail with attachments sent!") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.