B4X

Get IMAP Message Threads as JSON

Demonstrates the Chilkat Imap.QueryThread method, which sends the IMAP THREAD command for the selected mailbox and returns the thread hierarchy as JSON. The first argument is the threading algorithm (commonly REFERENCES or ORDEREDSUBJECT), the second is IMAP search criteria, and the third (bUid) selects UID vs sequence-number identifiers. The returned JSON has a top-level threads array whose nested arrays encode parent/child relationships. This example threads all messages in the Inbox.

Tip: JSON parsing code for this result can be generated at Chilkat Tools.

Background: "Conversation view" in a mail client — grouping a message with its replies and follow-ups — is exactly what the IMAP THREAD extension provides, computed on the server. REFERENCES threads by the References/In-Reply-To headers (the accurate way), while ORDEREDSUBJECT groups by subject. Not all servers support THREAD, so check HasCapability for it first.

Chilkat B4X Downloads

Download Chilkat for B4X

B4X

Dim success As Boolean = False

'  Demonstrates the Imap.QueryThread method, which sends the IMAP THREAD command for the
'  selected mailbox and returns the thread hierarchy as JSON.  The 1st argument is the
'  threading algorithm (such as REFERENCES or ORDEREDSUBJECT), the 2nd is IMAP search
'  criteria, and the 3rd (bUid) selects UID vs sequence-number identifiers.

Dim imap As ChilkatImap
imap.Initialize("imap")

imap.Ssl = True
imap.Port = 993

success = imap.Connect("imap.example.com")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If

success = imap.Login("user@example.com", "myPassword")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


success = imap.SelectMailbox("Inbox")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  Group all messages into threads using the REFERENCES algorithm, returning UIDs.
Dim json As ChilkatJsonObject
json.Initialize
success = imap.QueryThread("REFERENCES", "ALL", True, json)
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


json.EmitCompact = False
Log(json.Emit)

'  JSON parsing code for this result can be generated at Chilkat's online tool:
'  https://tools.chilkat.io/jsonParse

success = imap.Disconnect
If success = False Then
    Log(imap.LastErrorText)
    Return
End If