(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkImap.pb"

Procedure ChilkatExample()

    imap.i = CkImap::ckCreate()
    If imap.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    ; Connect to an IMAP server.
    ; Use TLS
    CkImap::setCkSsl(imap, 1)
    CkImap::setCkPort(imap, 993)
    success.i = CkImap::ckConnect(imap,"MY-IMAP-DOMAIN")
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Login
    success = CkImap::ckLogin(imap,"MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    sbMime.i = CkStringBuilder::ckCreate()
    If sbMime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckLoadFile(sbMime,"qa_data/eml/emoji_pizza.eml","utf-8")

    ; Upload to the mailbox.
    success = CkImap::ckAppendMime(imap,"[Gmail]/testFolder",CkStringBuilder::ckGetAsString(sbMime))
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        CkStringBuilder::ckDispose(sbMime)
        ProcedureReturn
    EndIf

    CkImap::ckDisconnect(imap)

    Debug "OK."


    CkImap::ckDispose(imap)
    CkStringBuilder::ckDispose(sbMime)


    ProcedureReturn
EndProcedure