PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
string ls_XmlBody
oleobject loo_Email
oleobject loo_Mailman

li_Success = 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>

li_Success = 1

ls_XmlBody = "<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>"

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_Email.Body = ls_XmlBody

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

// Your email is ready to send
loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")

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

li_Success = loo_Mailman.SendEmail(loo_Email)
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Email
    destroy loo_Mailman
    return
end if

li_Success = loo_Mailman.CloseSmtpConnection()
if li_Success <> 1 then
    Write-Debug "Connection to SMTP server not closed cleanly."
end if

Write-Debug "Mail Sent!"


destroy loo_Email
destroy loo_Mailman