PureBasic

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 PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 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.

    mailman.i = CkMailMan::ckCreate()
    If mailman.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  Configure the SMTP server connection.
    CkMailMan::setCkSmtpHost(mailman, "smtp.example.com")
    CkMailMan::setCkSmtpPort(mailman, 465)
    CkMailMan::setCkSmtpSsl(mailman, 1)
    CkMailMan::setCkSmtpUsername(mailman, "user@example.com")
    CkMailMan::setCkSmtpPassword(mailman, "myPassword")

    ;  Load the MIME bytes to send.  Here we read a .eml file, but the bytes could come from
    ;  any source.
    bdMime.i = CkBinData::ckCreate()
    If bdMime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkBinData::ckLoadFile(bdMime,"qa_data/eml/message.eml")
    If success = 0
        Debug CkBinData::ckLastErrorText(bdMime)
        CkMailMan::ckDispose(mailman)
        CkBinData::ckDispose(bdMime)
        ProcedureReturn
    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).
    success = CkMailMan::ckSendMimeBd(mailman,"alice@example.com","bob@example.com",bdMime)
    If success = 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkBinData::ckDispose(bdMime)
        ProcedureReturn
    EndIf

    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.


    CkMailMan::ckDispose(mailman)
    CkBinData::ckDispose(bdMime)


    ProcedureReturn
EndProcedure