B4X Requires Chilkat v11.0.0+

Fetch Full Email Given Email Header

When you fetch email headers using UIDs instead of sequence numbers, the email object (which includes only the header) will have auto-generated ckx-imap-* headers. These headers provide details like the UID and attachments. The IMAP UID is found in the ckx-imap-uid header. Additionally, the ckx-imap-isUid header indicates whether the email header was downloaded by UID, showing YES or NO. Since sequence numbers can change if emails are deleted, UIDs are essential for downloading the correct full email.

The Chilkat Email object offers a GetImapUid method to retrieve the UID from the ckx-imap-uid header. This UID can be used to fetch the full email.

B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

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

'  Connect to an IMAP server.
'  Use TLS
imap.Ssl = True
imap.Port = 993
success = imap.Connect("imap.example.com")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  Login
success = imap.Login("***", "***")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


Dim emailHeader As ChilkatEmail
emailHeader.Initialize
Dim emailFull As ChilkatEmail
emailFull.Initialize

Dim uid As Int = 2014
Dim isUid As Boolean = True

'  Fetch only the email header
success = imap.FetchEmail(True, uid, isUid, emailHeader)
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  Now fetch the full email
Dim uidFromCkxHeader As Int = emailHeader.GetImapUid
If uidFromCkxHeader < 0 Then
    '  Failed. 
    Log("No ckx-imap-uid header was found.")
    Return
End If


success = imap.FetchEmail(False, uid, isUid, emailFull)
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  OK, we have the full email, do whatever we want...

'  Disconnect from the IMAP server.
success = imap.Disconnect