Xbase++

Upload (Append) Email to an IMAP Mailbox

Upload / append an email to an IMAP mailbox. Xbase++

LOCAL nSuccess
LOCAL oImap
LOCAL oEmail

nSuccess := 0

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

oImap := CreateObject("Chilkat.Imap")

//  Connect to an IMAP server.
//  Use TLS
oImap:Ssl := 1
oImap:Port := 993
nSuccess := oImap:Connect("imap.example.com")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Login
nSuccess := oImap:Login("myLogin", "myPassword")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

oEmail := CreateObject("Chilkat.Email")

//  Load the email from a .eml file.
nSuccess := oEmail:LoadEml("myEmail.eml")
IF (nSuccess != 1)
    ? oEmail:LastErrorText
    oImap:destroy()
    oEmail:destroy()
    RETURN
ENDIF

nSuccess := oImap:AppendMail("Inbox", oEmail)
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    oEmail:destroy()
    RETURN
ENDIF

? "Email uploaded to Inbox!"

//  Disconnect from the IMAP server.
nSuccess := oImap:Disconnect()

oImap:destroy()
oEmail:destroy()