FoxPro Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript



Visual FoxPro Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
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...
Email Object
RSS
Atom
Byte Array
Service
PPMD
Deflate
DH Key Exchange
DSA

Unreleased...
FileAccess
Bzip2
LZW
Icon

 

Non-Chilkat Links
Text and String Handling

Save Email Attachments to Filesystem Directory

Saves email attachments to a directory.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

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

Need a specific example? Send a request to support@chilkatsoft.com

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

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