Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL cXmlBody
LOCAL oEmail
LOCAL oMailman

nSuccess := 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>

nSuccess := 1

cXmlBody := '<ie:IE801 xmlns:ie="urn:publicid:-:EC:DGTAXUD:EMCS:PHASE4:IE801:V3.01" xmlns:tms="urn:publicid:-:EC:DGTAXUD:EMCS:PHASE4:TMS:V3.01">....</ie:IE801>'

oEmail := CreateObject("Chilkat.Email")

//  Add subject, TO, FROM, etc.
oEmail:Subject := "[v=EMCS.NL][a=NL****][k=****][s=0]"
oEmail:From := "joe@example1.com"
nSuccess := oEmail:AddTo("Mary", "mary@example2.com")

oEmail:Body := cXmlBody

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

//  Your email is ready to send
oMailman := CreateObject("Chilkat.MailMan")

oMailman:SmtpHost := "smtp.my_mail_server.com"
oMailman:SmtpUsername := "myUsername"
oMailman:SmtpPassword := "myPassword"
oMailman:SmtpPort := 465
oMailman:SmtpSsl := 1
oMailman:StartTLS := 1

nSuccess := oMailman:SendEmail(oEmail)
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oEmail:destroy()
    oMailman:destroy()
    RETURN
ENDIF

nSuccess := oMailman:CloseSmtpConnection()
IF (nSuccess != 1)
    ? "Connection to SMTP server not closed cleanly."
ENDIF

? "Mail Sent!"

oEmail:destroy()
oMailman:destroy()