Tcl

Example to Add Several BCC Email Recipients

See more Email Object Examples

Demonstrates how to call AddBCC once per email recipient. Tcl

load ./chilkat.dll

set success 0

set email [new_CkEmail]

CkEmail_put_Subject $email "Test email subject"
CkEmail_put_Body $email "Test email body"

CkEmail_put_From $email "Test <joe@example.com>"

# Add a primary TO recipient
CkEmail_AddTo $email "Elizabeth" "elizabeth@example.com"

# Add a CC recipient.
CkEmail_AddCC $email "Jerry" "jerry@example.com"

# Add 2 BCC recipients.
CkEmail_AddBcc $email "Mira" "mira@example.com"
CkEmail_AddBcc $email "Alexander" "alex@example.com"

# BCC recipients will not be present in the MIME of the email that is sent.
# However, the BCC recipients are included in the recipients provided to the SMTP server
# during the SMTP protocol conversation. This will be shown below.

# First, let's look at the MIME.
puts [CkEmail_getMime $email]

# MIME-Version: 1.0
# Date: Sat, 30 Oct 2021 07:58:32 -0500
# Message-ID: <183D5F51163BE4374B494D2ED067DE2783CC761B@SLICE>
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# X-Priority: 3 (Normal)
# Subject: Test email subject
# From: Test <joe@example.com>
# To: Elizabeth <elizabeth@example.com>
# Cc: Jerry <jerry@example.com>
# 
# Test email body

# Notice that the BCC recipients do not appear in the MIME.  But don't worry, they are still present within the email object.
# The difference between CC and BCC recipients is that CC recipients appear in the MIME.  Thus, the recipient of the email
# can see the CC recipients, but cannot see and is unaware of the BCC recipients.

# ----------------------------------------------------------------------------------------------
# Let's send the above email and examine the SMTP session log to show that the BCC recipients also receive the email.

set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "smtp.example.com"
CkMailMan_put_SmtpUsername $mailman "myUsername"
CkMailMan_put_SmtpPassword $mailman "myPassword"
CkMailMan_put_SmtpSsl $mailman 1
CkMailMan_put_SmtpPort $mailman 465

set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkEmail $email
    delete_CkMailMan $mailman
    exit
}

set success [CkMailMan_CloseSmtpConnection $mailman]
if {$success != 1} then {
    puts "Connection to SMTP server not closed cleanly."
}

puts "Mail Sent!"

# Examine the SMTP session log.
puts [CkMailMan_smtpSessionLog $mailman]

# Here you can see the session log and the BCC email addresses included in the "RCPT TO" commands.

# 220 smtp.example.com ESMTP Example SMTP Service
# EHLO SLICE<CRLF>
# 250-smtp.example.com
# 250-8BITMIME
# 250-AUTH PLAIN LOGIN
# 250 Ok
# AUTH LOGIN<CRLF>
# 334 VXNlcm5hbWU6
# ***<CRLF>
# 334 UGFzc3dvcmQ6
# {PasswordOrCredentials}
# 235 Authentication successful.
# MAIL FROM:<joe@example.com><CRLF>
# 250 Ok
# RCPT TO:<elizabeth@example.com><CRLF>
# 250 Ok
# RCPT TO:<jerry@example.com><CRLF>
# 250 Ok
# RCPT TO:<mira@example.com><CRLF>
# 250 Ok
# RCPT TO:<alex@example.com><CRLF>
# 250 Ok
# DATA<CRLF>
# 354 End data with <CR><LF>.<CR><LF>
# {388 bytes}
# <CRLF>.<CRLF>
# 250 Ok
# QUIT<CRLF>
# 221 Bye

delete_CkEmail $email
delete_CkMailMan $mailman