FoxPro Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Visual FoxPro Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
Email Object
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
Socket
Spider
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression
Self-Extractor

More Examples...
Amazon S3
DKIM / DomainKey
NTLM
RSS
Atom
Byte Array
Service
PPMD
Deflate
DH Key Exchange
DSA
FileAccess
Bzip2
LZW

 

Non-Chilkat Links
Text and String Handling

Save Email Attachments to Filesystem Directory

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Saves email attachments to a directory.

LOCAL loMailman
LOCAL loImap
LOCAL loEmail
LOCAL lnSuccess
LOCAL i

* Create a MailMan or Imap object first for the purpose
* of unlocking the component. (Only one is necessary)
loMailman = CreateObject('Chilkat.MailMan2')
loMailman.UnlockComponent("anything for 30-day trial")
loImap = CreateObject('Chilkat.Imap')
loImap.UnlockComponent("anything for 30-day trial")

loEmail = CreateObject('Chilkat.Email2')

* Load an email object containing attachments.
* This .eml can be downloaded from:
* http://www.example-code.com/testData/HtmlEmail.eml

lnSuccess = loEmail.LoadEml("HtmlEmail.eml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

* If OverwriteExisting is turned on, files with the same
* name are overwritten.  If turned off, new/unique filenames
* are automatically generated.  The filenames actually saved
* are accessible via the GetAttachmentFilename method.
loEmail.OverwriteExisting = 1

* Save all attachments to the "myAttachments" subdirectory
* found under the calling process's current working directory.
* This directory is automatically created if it does not already
* exist.
lnSuccess = loEmail.SaveAllAttachments("myAttachments")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

* List the attachment filenames:

FOR i = 0 TO loEmail.NumAttachments - 1
    ? loEmail.GetAttachmentFilename(i)
NEXT

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.

Mail Component · .NET Email Component · ASP Mail Component · XML Parser