ASP Examples

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

ASP Examples

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

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
DH Key Exchange
DSA
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
Bzip2
LZW

 

 

 

 

 

 

Save HTML Email Embedded Images

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 HTML embedded items to files in a subdirectory. Images, style sheets, and anything else embedded within HTML, are not considered to be attachments. Instead, these items are "related items". The Chilkat email object provides a set of methods/properties for accessing the related items within an email.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  Create a MailMan or Imap object first for the purpose
'  of unlocking the component. (Only one is necessary)
set mailman = Server.CreateObject("Chilkat.MailMan2")
mailman.UnlockComponent "anything for 30-day trial"
set imap = Server.CreateObject("Chilkat.Imap")
imap.UnlockComponent "anything for 30-day trial"

set email = Server.CreateObject("Chilkat.Email2")

'  Load an email object containing HTML with embedded images.
'  This .eml can be downloaded from:
'  http://www.example-code.com/testData/HtmlEmail.eml

success = email.LoadEml("HtmlEmail.eml")
If (success <> 1) Then
    Response.Write email.LastErrorText & "<br>"

End If

'  Iterate over the related items.
'  Print the file name and save each to a file.

For i = 0 To email.NumRelatedItems - 1

    Response.Write email.GetRelatedFilename(i) & "<br>"

    success = email.SaveRelatedItem(i,"myRelatedItems")
    If (success <> 1) Then
        Response.Write email.LastErrorText & "<br>"

    End If

Next
%>
</body>
</html>

 

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