Visual FoxPro

Send MIME Bytes from a BinData via SMTP

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.

Background: This is the binary counterpart to SendMime (which takes MIME as a string). Working from a BinData is the right choice when the message's raw bytes come straight from a file, a database blob, or a network stream — it delivers them byte-for-byte with no charset conversion that could alter the original, which matters because MIME can carry binary transfer encodings.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loBdMime

lnSuccess = 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.

loMailman = CreateObject('Chilkat.MailMan')

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

*  Load the MIME bytes to send.  Here we read a .eml file, but the bytes could come from
*  any source.
loBdMime = CreateObject('Chilkat.BinData')
lnSuccess = loBdMime.LoadFile("qa_data/eml/message.eml")
IF (lnSuccess = 0) THEN
    ? loBdMime.LastErrorText
    RELEASE loMailman
    RELEASE loBdMime
    CANCEL
ENDIF

*  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).
lnSuccess = loMailman.SendMimeBd("alice@example.com","bob@example.com",loBdMime)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loBdMime
    CANCEL
ENDIF

? "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.

RELEASE loMailman
RELEASE loBdMime