PureBasic

Create Non-Multipart Email with XML Body that is an Attachment

See more SMTP Examples

Creates an email where the only body is a binary WAV file. The technique used in the example could be applied to other binary files, such as PDF, MS-WORD docs, Excel docs, etc. PureBasic

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

Procedure ChilkatExample()

    success.i = 0

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

    ; The goal of this example is to create an email that has this MIME format,
    ; where the body of the email is XML using base64 encoding, 
    ; and the Content-Type and Content-Disposition are set as indicated.

    ; Date: Wed, 23 Aug 2023 09:01:52 +0200 (CEST)
    ; From: joe@example1.com
    ; Subject: [v=EMCS.NL][a=NL****][k=****][s=0]
    ; To: mary@example2.com
    ; MIME-Version: 1.0
    ; Content-Type: application/octet-stream; charset=us-ascii; name=6bd8dfe259b3a42c90a28a82b5fc6e77.txt
    ; Content-Transfer-Encoding: Base64
    ; Content-Disposition: attachment; filename=6bd8dfe259b3a42c90a28a82b5fc6e77.txt
    ; Message-Id: <......>
    ; 
    ; <multi-line base64 encoded XML here>

    success = 1

    xmlBody.s = "<ie:IE801 xmlns:ie=" + Chr(34) + "urn:publicid:-:EC:DGTAXUD:EMCS:PHASE4:IE801:V3.01" + Chr(34) + " xmlns:tms=" + Chr(34) + "urn:publicid:-:EC:DGTAXUD:EMCS:PHASE4:TMS:V3.01" + Chr(34) + ">....</ie:IE801>"

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

    ; Add subject, TO, FROM, etc.
    CkEmail::setCkSubject(email, "[v=EMCS.NL][a=NL****][k=****][s=0]")
    CkEmail::setCkFrom(email, "joe@example1.com")
    success = CkEmail::ckAddTo(email,"Mary","mary@example2.com")

    CkEmail::setCkBody(email, xmlBody)

    CkEmail::ckAddHeaderField(email,"Content-Transfer-Encoding","Base64")
    CkEmail::ckAddHeaderField(email,"Content-Type","application/octet-stream; charset=us-ascii; name=6bd8dfe259b3a42c90a28a82b5fc6e77.txt")
    CkEmail::ckAddHeaderField(email,"Content-Disposition","attachment; filename=6bd8dfe259b3a42c90a28a82b5fc6e77.txt")

    ; Your email is ready to send
    mailman.i = CkMailMan::ckCreate()
    If mailman.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkMailMan::setCkSmtpHost(mailman, "smtp.my_mail_server.com")
    CkMailMan::setCkSmtpUsername(mailman, "myUsername")
    CkMailMan::setCkSmtpPassword(mailman, "myPassword")
    CkMailMan::setCkSmtpPort(mailman, 465)
    CkMailMan::setCkSmtpSsl(mailman, 1)
    CkMailMan::setCkStartTLS(mailman, 1)

    success = CkMailMan::ckSendEmail(mailman,email)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkEmail::ckDispose(email)
        CkMailMan::ckDispose(mailman)
        ProcedureReturn
    EndIf

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

    Debug "Mail Sent!"


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


    ProcedureReturn
EndProcedure