PureBasic

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

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

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  An email can have any number of To, CC, or Bcc recipients.
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  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.
    success = CkEmail::ckAddTo(email,"Chilkat Support","support@chilkatsoft.com")
    success = CkEmail::ckAddTo(email,"Person 1","person1@chilkatsoft.com")
    success = CkEmail::ckAddTo(email,"Person 2","person2@chilkatsoft.com")
    success = CkEmail::ckAddTo(email,"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...
    success = CkEmail::ckAddCC(email,"Person 4","person4@chilkatsoft.com")
    success = CkEmail::ckAddCC(email,"","person5@chilkatsoft.com")
    success = CkEmail::ckAddCC(email,"Person 6","person6@chilkatsoft.com")

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

    ;  Now add some Bcc recipients:
    success = CkEmail::ckAddBcc(email,"","person7@chilkatsoft.com")
    success = CkEmail::ckAddBcc(email,"Person 8","person8@chilkatsoft.com")

    ;  Clear all recipients via ClearTo, ClearCC, and ClearBcc:
    CkEmail::ckClearTo(email)
    CkEmail::ckClearCC(email)
    CkEmail::ckClearBcc(email)

    ;  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:

    success = CkEmail::ckAddMultipleTo(email,"Chilkat Support <support@chilkatsoft.com>, Person 1 <person1@chilkatsoft.com>, Person 2 <person2@chilkatsoft.com>, Person 3 <person3@chilkatsoft.com>")

    success = CkEmail::ckAddMultipleCC(email,"Person 4 <person4@chilkatsoft.com>, person5@chilkatsoft.com, Person 6 <person6@chilkatsoft.com>")

    success = CkEmail::ckAddMultipleBcc(email,"person7@chilkatsoft.com, Person 8 <person8@chilkatsoft.com>")

    CkEmail::setCkBody(email, "this is a test")
    CkEmail::setCkSubject(email, "this is a test")

    ;  Display the MIME:
    Debug CkEmail::ckGetMime(email)


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure