(PureBasic) Send HTML Email with Attachments

Demonstrates how to send an HTML email with file attachments.

Chilkat PureBasic Module Download

Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

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

    CkMailMan::setCkSmtpHost(mailman, "smtp.my-starttls-mail-server.com")

    CkMailMan::setCkSmtpUsername(mailman, "MY-SMTP-USERNAME")
    CkMailMan::setCkSmtpPassword(mailman, "MY-SMTP-PASSWORD")

    CkMailMan::setCkStartTLS(mailman, 1)
    CkMailMan::setCkSmtpPort(mailman, 587)

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

    CkEmail::setCkSubject(email, "Test SMTP API to Send HTML Email with Attachments")
    CkEmail::setCkFrom(email, "Joe Programmer <joe@my-starttls-mail-server.com>")
    CkEmail::ckAddTo(email,"Chilkat Support","support@chilkatsoft.com")

    ; Add a plain-text alternative body, which will likely never be seen.
    ; (It is shown if the receiving email client is incapable of displaying HTML email.)
    CkEmail::ckAddPlainTextAlternativeBody(email,"This is a plain-text alternative body...")

    ; Our HTML will include an image, so add the related image here.
    contentIdStarfish.s = CkEmail::ckAddRelatedFile(email,"qa_data/jpg/starfish.jpg")
    If CkEmail::ckLastMethodSuccess(email) <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; The src attribute for the image tag is set to the contentIdStarfish:
    sbHtml.i = CkStringBuilder::ckCreate()
    If sbHtml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbHtml,"<html><body><p>This is an HTML email with an embedded image.</p>")
    CkStringBuilder::ckAppend(sbHtml,"<p><img src=" + Chr(34) + "cid:CONTENT_ID_STARFISH" + Chr(34) + " /></p></body></html>")
    numReplacements.i = CkStringBuilder::ckReplace(sbHtml,"CONTENT_ID_STARFISH",contentIdStarfish)

    CkEmail::ckAddHtmlAlternativeBody(email,CkStringBuilder::ckGetAsString(sbHtml))

    ; Finally, add some attachments to the email.
    ; Add a file attachment.
    success.i = CkEmail::ckAddFileAttachment2(email,"qa_data/pdf/fishing.pdf","application/pdf")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbHtml)
        ProcedureReturn
    EndIf

    ; Add an attachment where the content is contained in a string.
    content.s = "This is the content of the 2nd attached file."
    CkEmail::ckAddStringAttachment(email,"someText.txt",content)

    ; Send the HTML email.
    success = CkMailMan::ckSendEmail(mailman,email)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbHtml)
        ProcedureReturn
    EndIf

    success = CkMailMan::ckCloseSmtpConnection(mailman)
    If success <> 1
        Debug "Connection to SMTP server not closed cleanly."
    EndIf

    Debug "HTML email with attachments sent!"


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


    ProcedureReturn
EndProcedure