PureBasic

Example: MailMan.RenderToMime method

Demonstrates the RenderToMime method. PureBasic

IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

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

    CkEmail::setCkSubject(email, "This is a test")
    CkEmail::setCkBody(email, "This is a test")

    CkEmail::setCkFrom(email, "Joe <joe@example.com>")
    CkEmail::ckAddTo(email,"Mary","mary@example2.com")

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

    ; See the exact MIME of the email that would be sent
    ; if your application called SendEmail and passed in the email object.
    renderedMime.s = CkMailMan::ckRenderToMime(mailman,email)

    Debug renderedMime

    ; For this example, the rendered MIME looks like this:

    ; MIME-Version: 1.0
    ; Date: Fri, 27 Feb 2026 06:55:44 -0600
    ; Message-ID: <E4369AE94DE6CD7D08D4F15D95937F2A7FFC95E8@CHILKAT25>
    ; Content-Type: text/plain; charset=us-ascii; format=flowed
    ; Content-Transfer-Encoding: 7bit
    ; X-Priority: 3 (Normal)
    ; Subject: This is a test
    ; From: Joe <joe@example.com>
    ; To: Mary <mary@example2.com>
    ; 
    ; This is a test


    CkEmail::ckDispose(email)
    CkMailMan::ckDispose(mailman)


    ProcedureReturn
EndProcedure