Lianja

Example to Add Several BCC Email Recipients

See more Email Object Examples

Demonstrates how to call AddBCC once per email recipient. Lianja

llSuccess = .F.

loEmail = createobject("CkEmail")

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

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

// Add a primary TO recipient
loEmail.AddTo("Elizabeth","elizabeth@example.com")

// Add a CC recipient.
loEmail.AddCC("Jerry","jerry@example.com")

// Add 2 BCC recipients.
loEmail.AddBcc("Mira","mira@example.com")
loEmail.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.
? loEmail.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>
// 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.

loMailman = createobject("CkMailMan")

loMailman.SmtpHost = "smtp.example.com"
loMailman.SmtpUsername = "myUsername"
loMailman.SmtpPassword = "myPassword"
loMailman.SmtpSsl = .T.
loMailman.SmtpPort = 465

llSuccess = loMailman.SendEmail(loEmail)
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
    release loEmail
    release loMailman
    return
endif

llSuccess = loMailman.CloseSmtpConnection()
if (llSuccess <> .T.) then
    ? "Connection to SMTP server not closed cleanly."
endif

? "Mail Sent!"

// Examine the SMTP session log.
? loMailman.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


release loEmail
release loMailman