PureBasic

Email Body - Plain Text and/or HTML

Any given email may have a plain-text body, an HTML body, or both. The Body property will return the HTML body by default (if it exists) otherwise it will return the plain-text body. There are methods for checking to see if an email has a particular body (HasPlainTextBody and HasHtmlBody) and there are methods for getting a specific body: GetHtmlBody, GetPlainTextBody. PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 0

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

    ; Load an email from a .eml

    success = CkEmail::ckLoadEml(email,"something.eml")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; Display the default Body:
    Debug CkEmail::ckBody(email)

    ; If a plain-text body is present, display it:
    bText.i
    bText = CkEmail::ckHasPlainTextBody(email)
    If bText = 1
        Debug CkEmail::ckGetPlainTextBody(email)
    EndIf

    ; If an HTML body is present, display the HTML source:
    bHtml.i
    bHtml = CkEmail::ckHasHtmlBody(email)
    If bHtml = 1
        Debug CkEmail::ckGetHtmlBody(email)
    EndIf



    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure