Send MIME Bytes from a BinData via SMTP

See more SMTP Examples

Demonstrates the Chilkat MailMan.SendMimeBd method, which sends an email from caller-supplied MIME bytes held in a BinData. The arguments are the from address, the recipient list (the SMTP envelope recipients), and the BinData containing the MIME. This example loads a .eml file into a BinData and sends it.

Important: When sending caller-supplied MIME, ensure the Message-ID header is unique for each message. Sending MIME whose Message-ID was previously used can cause the message to be silently discarded as a duplicate by mail servers — see chilkatsoft.com/email_duplicate_message_id.asp.

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_BdMime

li_Success = 0

//  Demonstrates the MailMan.SendMimeBd method, which sends an email from caller-supplied MIME
//  bytes held in a BinData.  The arguments are the from address, the recipient list (the SMTP
//  envelope recipients), and the BinData containing the MIME.

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

//  Configure the SMTP server connection.
loo_Mailman.SmtpHost = "smtp.example.com"
loo_Mailman.SmtpPort = 465
loo_Mailman.SmtpSsl = 1
loo_Mailman.SmtpUsername = "user@example.com"
loo_Mailman.SmtpPassword = "myPassword"

//  Load the MIME bytes to send.  Here we read a .eml file, but the bytes could come from
//  any source.
loo_BdMime = create oleobject
li_rc = loo_BdMime.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_BdMime.LoadFile("qa_data/eml/message.eml")
if li_Success = 0 then
    Write-Debug loo_BdMime.LastErrorText
    destroy loo_Mailman
    destroy loo_BdMime
    return
end if

//  IMPORTANT: When sending caller-supplied MIME, make sure the Message-ID header is unique
//  for each message.  Sending MIME that contains a Message-ID that was previously sent can
//  cause the message to be silently discarded as a duplicate by mail servers.  For details,
//  see: https://www.chilkatsoft.com/email_duplicate_message_id.asp

//  Send the MIME bytes to the envelope recipient(s).
li_Success = loo_Mailman.SendMimeBd("alice@example.com","bob@example.com",loo_BdMime)
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_BdMime
    return
end if

Write-Debug "MIME email sent."

//  Note: The path "qa_data/eml/message.eml" is a relative local filesystem path,
//  relative to the current working directory of the running application.

//  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
//  connects and authenticates -- using the property settings above -- whenever a server
//  operation requires it.  Calling the explicit connect/authenticate methods can still be
//  helpful to determine whether a failure occurs while connecting or while authenticating.


destroy loo_Mailman
destroy loo_BdMime