(VBScript) Parsing a Multipart/Digest Email

This example demonstrates how to parse a multipart/digest email. An email parsed by this sample could have a MIME structure as follows:

multipart/mixed
    text/plain
    text/plain
    multipart/digest
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
    text/plain

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' Note: This example requires Chilkat v9.5.0.66 or greater.

emlPath = "qa_data/eml/multipart_digest.eml"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = CreateObject("Chilkat.Email")

' For this example, we'll load the email from a .eml.
' The email could alternatively be loaded as a result of downloading from an IMAP or POP3 server..

success = email.LoadEml(emlPath)
If (success <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

numDigests = email.NumDigests
outFile.WriteLine("num digests = " & numDigests)

i = 0
Do While i < numDigests
    ' eDigest is a Chilkat.Email
    Set eDigest = email.GetDigest(i)
    outFile.WriteLine(i & ":" & eDigest.FromAddress & ", " & eDigest.Subject)
    m = eDigest.GetHeaderField("Message")
    If (eDigest.LastMethodSuccess = 1) Then
        outFile.WriteLine("    Message = " & m)
    End If

    i = i + 1
Loop

outFile.Close