Email Recipients - AddTo, AddCC, AddBcc, AddMultipleTo, AddMultipleCC, AddMultipleBcc

This example demonstrates the usage of AddTo, AddCC, AddBcc, AddMultipleTo, AddMultipleCC, and AddMultipleBcc.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

'  An email can have any number of To, CC, or Bcc recipients.
set email = CreateObject("Chilkat.Email2")

'  One recipient per AddTo, AddCC, or AddBcc call may be added:
'  The 1st argument is the friendly name, the 2nd argument
'  is the email address.
email.AddTo "Chilkat Support","support@chilkatsoft.com"
email.AddTo "Person 1","person1@chilkatsoft.com"
email.AddTo "Person 2","person2@chilkatsoft.com"
email.AddTo "Person 3","person3@chilkatsoft.com"

'  This email now has 4 "To" recipients.

'  Now add some CC recipients:
'  Note: the friendly name may be empty if desired...
email.AddCC "Person 4","person4@chilkatsoft.com"
email.AddCC "","person5@chilkatsoft.com"
email.AddCC "Person 6","person6@chilkatsoft.com"

'  Now the email has 7 total recipients (3 "To" and 4 "CC")

'  Now add some Bcc recipients:
email.AddBcc "","person7@chilkatsoft.com"
email.AddBcc "Person 8","person8@chilkatsoft.com"

'  Clear all recipients via ClearTo, ClearCC, and ClearBcc:
email.ClearTo 
email.ClearCC 
email.ClearBcc 

'  The email is now back to 0 recipients...

'  Add recipients just as before, but this time use
'  AddMultipleTo, AddMultipleCC, and AddMultipleBcc.
'  These methods accept a comma-separated list of
'  email addresses.  For example:

email.AddMultipleTo "Chilkat Support <support@chilkatsoft.com>, Person 1 <person1@chilkatsoft.com>, Person 2 <person2@chilkatsoft.com>, Person 3 <person3@chilkatsoft.com>"

email.AddMultipleCC "Person 4 <person4@chilkatsoft.com>, person5@chilkatsoft.com, Person 6 <person6@chilkatsoft.com>"

email.AddMultipleBcc "person7@chilkatsoft.com, Person 8 <person8@chilkatsoft.com>"

email.Body = "this is a test"
email.Subject = "this is a test"

'  Display the MIME:
outFile.WriteLine(email.GetMime())
outFile.Close