(AutoIt) Send Email with Multiple Reply-To Addresses

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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oMailman = ObjCreate("Chilkat.MailMan")

$oMailman.SmtpHost = "smtp.my_mail_server.com"
$oMailman.SmtpUsername = "myUsername"
$oMailman.SmtpPassword = "myPassword"
$oMailman.SmtpPort = 465
$oMailman.SmtpSsl = True

; Create a new email object
$oEmail = ObjCreate("Chilkat.Email")

$oEmail.Subject = "This is a test"
$oEmail.Body = "This is a test"
$oEmail.From = "Joe <joe@example.com>"
Local $bSuccess = $oEmail.AddTo("Mary","mary@example2.com")

; Specify a single reply-to address, which will get replace with a list of addresses..
$oEmail.ReplyTo = "placeholder@example.com"

; Get the email as MIME.
$oSbMime = ObjCreate("Chilkat.StringBuilder")
$oMailman.RenderToMimeSb($oEmail,$oSbMime)

; Update the Reply-To MIME header with a list of email addresses.
Local $sReplyToAddrs = "joe@example.com, mike@example.com"
$oSbMime.ReplaceAllBetween("Reply-To: ",@CRLF,$sReplyToAddrs,False)

; Examine the MIME to be sent:
ConsoleWrite($oSbMime.GetAsString() & @CRLF)

; 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...
$bSuccess = $oMailman.SendMime("joe@example.com","mary@example2.com",$oSbMime.GetAsString())
If ($bSuccess = False) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oMailman.CloseSmtpConnection()
If ($bSuccess = False) Then
    ConsoleWrite("Connection to SMTP server not closed cleanly." & @CRLF)
EndIf

ConsoleWrite("Mail Sent!" & @CRLF)