Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loImap
LOCAL loSbMime

lnSuccess = 0

loImap = CreateObject('Chilkat.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
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

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