VBScript Examples

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

VBScript Examples

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

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

 

 

 

 

 

 

 

Decode Binary MIME Content

Download Chilkat MIME ActiveX

Decode the binary content in a MIME message.

set mime = CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    MsgBox "Failed to unlock component"
    WScript.Quit
End If

success = mime.LoadMimeFile("mm7.txt")
If (success = 0) Then
    MsgBox mime.LastErrorText
    WScript.Quit
End If

'  This particular MIME message has a top-level multipart/mixed
'  with 2 immediate children:
'  Content-Type: text/xml; charset=UTF-8
'  Content-Type: multipart/mixed;
'  within the multipart/mixed child, two additional children exist:
'  content-type: application/smil; name=main.smil; charset=utf-8
'  content-type: image/jpeg; name=kl20.jpg

'  This example will save the JPG sub-part:
'  (indexing begins at 0)
Set mimePart = mime.GetPart(1)
Set jpgPart = mimePart.GetPart(1)

'  Save the decoded body to a file.
'  The "Name" property contains "kl20.jpg"
success = jpgPart.SaveBody(jpgPart.Name)
If (success = 0) Then
    MsgBox jpgPart.LastErrorText

    WScript.Quit
End If

MsgBox "Success!"


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

Mail Component · XML Parser