PureBasic

Add a Plain-Text Alternative Body to an Email

Demonstrates the Chilkat Email.AddPlainTextAlternativeBody method, which adds a plain-text alternative body. Combined with an HTML body, it produces a multipart/alternative email that carries both representations. This example sets an HTML body, adds a plain-text alternative, and prints the alternative count.

Background: This is the companion to AddHtmlAlternativeBody. A polished email provides both an HTML body (for rich display) and a plain-text fallback, and the receiving client picks whichever it prefers. Including a real plain-text alternative — rather than letting the HTML stand alone — improves accessibility, helps with spam scoring, and guarantees the message is readable in text-only environments.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    ;  Demonstrates the AddPlainTextAlternativeBody method, which adds a plain-text alternative
    ;  body.  Combined with an HTML body, this produces a multipart/alternative email offering
    ;  both representations of the same content.

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

    CkEmail::setCkSubject(email, "HTML with a plain-text alternative")

    ;  Set an HTML body.
    CkEmail::ckSetHtmlBody(email,"<html><body><b>This is the HTML version.</b></body></html>")

    ;  Add a plain-text alternative.
    CkEmail::ckAddPlainTextAlternativeBody(email,"This is the plain-text version.")

    Debug "NumAlternatives = " + Str(CkEmail::ckNumAlternatives(email))


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure