PowerBuilder

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

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

integer li_rc
integer li_Success
oleobject loo_Email

li_Success = 0

// An email can have any number of To, CC, or Bcc recipients.
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
li_Success = loo_Email.AddTo("Chilkat Support","support@chilkatsoft.com")
li_Success = loo_Email.AddTo("Person 1","person1@chilkatsoft.com")
li_Success = loo_Email.AddTo("Person 2","person2@chilkatsoft.com")
li_Success = loo_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...
li_Success = loo_Email.AddCC("Person 4","person4@chilkatsoft.com")
li_Success = loo_Email.AddCC("","person5@chilkatsoft.com")
li_Success = loo_Email.AddCC("Person 6","person6@chilkatsoft.com")

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

// Now add some Bcc recipients:
li_Success = loo_Email.AddBcc("","person7@chilkatsoft.com")
li_Success = loo_Email.AddBcc("Person 8","person8@chilkatsoft.com")

// Clear all recipients via ClearTo, ClearCC, and ClearBcc:
loo_Email.ClearTo()
loo_Email.ClearCC()
loo_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:

li_Success = loo_Email.AddMultipleTo("Chilkat Support <support@chilkatsoft.com>, Person 1 <person1@chilkatsoft.com>, Person 2 <person2@chilkatsoft.com>, Person 3 <person3@chilkatsoft.com>")

li_Success = loo_Email.AddMultipleCC("Person 4 <person4@chilkatsoft.com>, person5@chilkatsoft.com, Person 6 <person6@chilkatsoft.com>")

li_Success = loo_Email.AddMultipleBcc("person7@chilkatsoft.com, Person 8 <person8@chilkatsoft.com>")

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

// Display the MIME:
Write-Debug loo_Email.GetMime()


destroy loo_Email