(Visual FoxPro) Upload .eml File to an IMAP Mailbox

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

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

LOCAL loImap
LOCAL lnSuccess
LOCAL loSbMime

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* This example assumes Chilkat Imap to have been previously unlocked.
* See Unlock Imap for sample code.

* Connect to an IMAP server.
* Use TLS
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("MY-IMAP-DOMAIN")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Login
lnSuccess = loImap.Login("MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbMime = CreateObject('Chilkat.StringBuilder')
loSbMime.LoadFile("qa_data/eml/emoji_pizza.eml","utf-8")

* Upload to the mailbox.
lnSuccess = loImap.AppendMime("[Gmail]/testFolder",loSbMime.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loSbMime
    CANCEL
ENDIF

loImap.Disconnect()

? "OK."

RELEASE loImap
RELEASE loSbMime