Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual Basic 6.0) Add File Attachments to an EmailDemonstrates how to add one or more file attachments to an email.
Dim email As New ChilkatEmail email.Subject = "This is a test" email.Body = "This is a test" email.From = "support@chilkatsoft.com" Dim success As Long success = email.AddTo("Chilkat Admin","admin@chilkatsoft.com") ' To add file attachments to an email, call AddFileAttachment ' once for each file to be attached. The method returns ' the content-type of the attachment if successful, otherwise ' returns cknull Dim contentType As String contentType = email.AddFileAttachment("something.pdf") If (email.LastMethodSuccess <> 1) Then Debug.Print email.LastErrorText Exit Sub End If contentType = email.AddFileAttachment("something.xml") If (email.LastMethodSuccess <> 1) Then Debug.Print email.LastErrorText Exit Sub End If contentType = email.AddFileAttachment("something.zip") If (email.LastMethodSuccess <> 1) Then Debug.Print email.LastErrorText Exit Sub End If success = email.SaveEml("email.eml") If (success = 0) Then Debug.Print email.LastErrorText Exit Sub End If Debug.Print "Saved EML!" |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.