PureBasic

Send Email with Multiple Reply-To Addresses

See more SMTP Examples

Send email with multiple repy-to addresses.

Note: Some mail servers will remove the extra email addresses from the Reply-To header. Even if you provide multiple reply-to addresses, the email may arrive with only the 1st.

PureBasic

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 0

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    CkMailMan::setCkSmtpHost(mailman, "smtp.my_mail_server.com")
    CkMailMan::setCkSmtpUsername(mailman, "myUsername")
    CkMailMan::setCkSmtpPassword(mailman, "myPassword")
    CkMailMan::setCkSmtpPort(mailman, 465)
    CkMailMan::setCkSmtpSsl(mailman, 1)

    ; Create a new email object
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "This is a test")
    CkEmail::setCkBody(email, "This is a test")
    CkEmail::setCkFrom(email, "Joe <joe@example.com>")
    success = CkEmail::ckAddTo(email,"Mary","mary@example2.com")

    ; Specify a single reply-to address, which will get replace with a list of addresses..
    CkEmail::setCkReplyTo(email, "placeholder@example.com")

    ; Get the email as MIME.
    sbMime.i = CkStringBuilder::ckCreate()
    If sbMime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkMailMan::ckRenderToMimeSb(mailman,email,sbMime)

    ; Update the Reply-To MIME header with a list of email addresses.
    replyToAddrs.s = "joe@example.com, mike@example.com"
    CkStringBuilder::ckReplaceAllBetween(sbMime,"Reply-To: ",Chr(13) + Chr(10),replyToAddrs,0)

    ; Examine the MIME to be sent:
    Debug CkStringBuilder::ckGetAsString(sbMime)

    ; Here's the MIME:

    ; MIME-Version: 1.0
    ; Date: Tue, 03 Sep 2024 08:18:12 -0500
    ; Message-ID: <D892B0E563A7A13B1F499530DE21529714EA479A@SLICE>
    ; Content-Type: text/plain; charset=us-ascii; format=flowed
    ; Content-Transfer-Encoding: 7bit
    ; X-Priority: 3 (Normal)
    ; Subject: This is a test
    ; From: Joe <joe@example.com>
    ; To: Mary <mary@example2.com>
    ; Reply-To: joe@example.com, mike@example.com
    ; 
    ; This is a test

    ; ---------
    ; Send the MIME...
    success = CkMailMan::ckSendMime(mailman,"joe@example.com","mary@example2.com",CkStringBuilder::ckGetAsString(sbMime))
    If success = 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbMime)
        ProcedureReturn
    EndIf

    success = CkMailMan::ckCloseSmtpConnection(mailman)
    If success = 0
        Debug "Connection to SMTP server not closed cleanly."
    EndIf

    Debug "Mail Sent!"


    CkMailMan::ckDispose(mailman)
    CkEmail::ckDispose(email)
    CkStringBuilder::ckDispose(sbMime)


    ProcedureReturn
EndProcedure