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
long 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