Visual Basic Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript



VB Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
HTTP
IMAP
Encryption
MHT / HTML Email
RSA Encryption
S/MIME
Socket
Spider
String
Tar
Unicode
Upload
XML
XMP
Zip Compression

More Examples...
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor


VB Strings
VB Byte Array

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

 

 

 

 

 

 

 

Save Email Attachments to Filesystem Directory

Saves email attachments to a directory.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

' Create a MailMan or Imap object first for the purpose
' of unlocking the component. (Only one is necessary)
Dim mailman As New ChilkatMailMan2
mailman.UnlockComponent "anything for 30-day trial"
Dim imap As New ChilkatImap
imap.UnlockComponent "anything for 30-day trial"

Dim email As New ChilkatEmail2

' Load an email object containing attachments.
' This .eml can be downloaded from:
' http://www.example-code.com/testData/HtmlEmail.eml
Dim success As Integer
success = email.LoadEml("HtmlEmail.eml")
If (success <> 1) Then
    MsgBox email.LastErrorText
    Exit Sub
End If

' 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.
email.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.
success = email.SaveAllAttachments("myAttachments")
If (success <> 1) Then
    MsgBox email.LastErrorText
    Exit Sub
End If

' List the attachment filenames:
Dim i As Integer
For i = 0 To email.NumAttachments - 1
    Text1.Text = Text1.Text & email.GetAttachmentFilename(i) & vbCrLf
    Text1.Refresh
Next

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

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