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 FoxPro) Add File Attachments to an EmailDemonstrates how to add one or more file attachments to an email.
LOCAL loEmail LOCAL lnSuccess LOCAL lcContentType * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email') loEmail = CreateObject('Chilkat.Email') loEmail.Subject = "This is a test" loEmail.Body = "This is a test" loEmail.From = "support@chilkatsoft.com" lnSuccess = loEmail.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 lcContentType = loEmail.AddFileAttachment("something.pdf") IF (loEmail.LastMethodSuccess <> 1) THEN ? loEmail.LastErrorText RELEASE loEmail CANCEL ENDIF lcContentType = loEmail.AddFileAttachment("something.xml") IF (loEmail.LastMethodSuccess <> 1) THEN ? loEmail.LastErrorText RELEASE loEmail CANCEL ENDIF lcContentType = loEmail.AddFileAttachment("something.zip") IF (loEmail.LastMethodSuccess <> 1) THEN ? loEmail.LastErrorText RELEASE loEmail CANCEL ENDIF lnSuccess = loEmail.SaveEml("email.eml") IF (lnSuccess = 0) THEN ? loEmail.LastErrorText RELEASE loEmail CANCEL ENDIF ? "Saved EML!" RELEASE loEmail |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.