B4X

Upload .eml File to an IMAP Mailbox

See more IMAP Examples

Demonstrates how to upload the MIME source of an email to a mailbox on an IMAP server. B4X

Dim success As Boolean = False

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

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

'  Connect to an IMAP server.
'  Use TLS
imap.Ssl = True
imap.Port = 993
success = imap.Connect("MY-IMAP-DOMAIN")
If success <> True Then
    Log(imap.LastErrorText)
    Return
End If


'  Login
success = imap.Login("MY-IMAP-LOGIN", "MY-IMAP-PASSWORD")
If success <> True Then
    Log(imap.LastErrorText)
    Return
End If


Dim sbMime As ChilkatStringBuilder
sbMime.Initialize
sbMime.LoadFile("qa_data/eml/emoji_pizza.eml", "utf-8")

'  Upload to the mailbox.
success = imap.AppendMime("[Gmail]/testFolder", sbMime.GetAsString)
If success <> True Then
    Log(imap.LastErrorText)
    Return
End If


imap.Disconnect

Log("OK.")