AutoIt

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.

AutoIt

Local $bSuccess = False

;  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>"
$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)