(Excel) Example to Add Several BCC Email Recipients

See more Email Object Examples

Demonstrates how to call AddBCC once per email recipient.

Download Excel Class Modules Chilkat Excel Class Modules

Dim email As Chilkat.Email
Set email = Chilkat.NewEmail

email.Subject = "Test email subject"
email.Body = "Test email body"

email.From = "Test <joe@example.com>"

' Add a primary TO recipient
Dim success As Boolean
success = email.AddTo("Elizabeth","elizabeth@example.com")

' Add a CC recipient.
success = email.AddCC("Jerry","jerry@example.com")

' Add 2 BCC recipients.
success = email.AddBcc("Mira","mira@example.com")
success = email.AddBcc("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.
Debug.Print email.GetMime()

' 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>
' CKX-Bounce-Address: 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.

' -- Note: You may notice the "CKX-Bounce-Address" header.  This is a header that appears in the MIME
' -- but is automatically removed when a Chilkat method to send email is called.
' -- Chilkat automatically removes all headers beginning with "CKX-" when sending email.

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

Dim mailman As Chilkat.MailMan
Set mailman = Chilkat.NewMailMan

mailman.SmtpHost = "smtp.example.com"
mailman.SmtpUsername = "myUsername"
mailman.SmtpPassword = "myPassword"
mailman.SmtpSsl = True
mailman.SmtpPort = 465

success = mailman.SendEmail(email)
If (success <> True) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

success = mailman.CloseSmtpConnection()
If (success <> True) Then
    Debug.Print "Connection to SMTP server not closed cleanly."
End If

Debug.Print "Mail Sent!"

' Examine the SMTP session log.
Debug.Print mailman.SmtpSessionLog

' 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