(Visual Basic 6.0) 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

Note: This example requires Chilkat v11.0.0 or greater.

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

Dim success As Long
success = 0

Dim emlPath As String
emlPath = "qa_data/eml/multipart_digest.eml"

Dim email As New ChilkatEmail

' 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 = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

Dim numDigests As Long
numDigests = email.NumDigests
Debug.Print "num digests = " & numDigests

Dim eDigest As New ChilkatEmail
Dim i As Long
i = 0
Do While i < numDigests
    success = email.GetDigestEmail(i,eDigest)
    Debug.Print i & ":" & eDigest.FromAddress & ", " & eDigest.Subject
    Dim m As String
    m = eDigest.GetHeaderField("Message")
    If (eDigest.LastMethodSuccess = 1) Then
        Debug.Print "    Message = " & m
    End If

    i = i + 1
Loop