VBScript Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

VBScript Examples

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

Unreleased...
Bzip2
LZW
Icon

 

 

 

 

 

 

 

Saving and Retrieving Data in XML

Saving and retrieving data in XML.

Download Chilkat Email ActiveX

Download Chilkat XML ActiveX

Download Chilkat IMAP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


'  Create an XML file with data that will later be loaded and
'  accessed by field name:
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "emailData"

xml.NewChild2 "from","admin@chilkatsoft.com"
xml.NewChild2 "toName","Chilkat Support"
xml.NewChild2 "toAddr","support@chilkatsoft.com"
xml.NewChild2 "subject","This is a test"
xml.NewChild2 "body","This is an email body"

'  Save the XML:

success = xml.SaveXml("emailData.xml")
If (success <> 1) Then
    MsgBox xml.LastErrorText
    WScript.Quit
End If

set xml2 = CreateObject("Chilkat.Xml")

'  Load the XML file:
success = xml2.LoadXmlFile("emailData.xml")
If (success <> 1) Then
    MsgBox xml2.LastErrorText
    WScript.Quit
End If

'  Access the data by name
outFile.WriteLine(xml2.GetChildContent("from"))
outFile.WriteLine(xml2.GetChildContent("toName"))
outFile.WriteLine(xml2.GetChildContent("toAddr"))
outFile.WriteLine(xml2.GetChildContent("subject"))
outFile.WriteLine(xml2.GetChildContent("body"))
outFile.WriteLine("------")

'  Let's say I want to load this into an email object:
set email = CreateObject("Chilkat.Email2")

email.From = xml2.GetChildContent("from")

toName = xml2.GetChildContent("toName")
toAddr = xml2.GetChildContent("toAddr")
email.AddTo toName,toAddr
email.Subject = xml2.GetChildContent("subject")
email.Body = xml2.GetChildContent("body")

outFile.WriteLine(email.GetMime())


outFile.Close

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

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

Mail Component · XML Parser