(Visual Basic 6.0) Example to Add Several BCC Email Recipients

See more Email Object Examples

Demonstrates how to call AddBCC once per email recipient.

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

Dim email As New ChilkatEmail
Dim success As Long

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

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

' Add a primary TO recipient
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 New ChilkatMailMan

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

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

success = mailman.CloseSmtpConnection()
If (success <> 1) 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