![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Access Attached Message (Embedded Email)How to access an email embedded within another email (i.e. an attached message). Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 set email = CreateObject("Chilkat.Email") ' Load an email from a .eml success = email.LoadEml("embeddedEmail.eml") If (success = 0) Then outFile.WriteLine(email.LastErrorText) WScript.Quit End If ' Display how many attached emails are embedded within ' this one: numAttached = email.NumAttachedMessages outFile.WriteLine("numAttached = " & numAttached) ' Get the 1st attached message. set email2 = CreateObject("Chilkat.Email") success = email.GetAttachedEmail(0,email2) If (success = 1) Then ' Display the subject, From, and a header field... outFile.WriteLine(email2.Subject) outFile.WriteLine(email2.From) outFile.WriteLine(email2.GetHeaderField("X-SOMETHING")) End If outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.