(Tcl) Send Email to Distribution List

Sends the same email to a list of 1000 email addresses in 50 sends where each email has 20 recipients.

Note: Chilkat is not intended nor designed for mass emailing. A solution such as this might be used for a corporate emailing to employees, or an emailing to newsletter subscribers.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "smtp.mymailserver.com"
CkMailMan_put_SmtpPort $mailman 465
CkMailMan_put_SmtpSsl $mailman 1
CkMailMan_put_SmtpUsername $mailman "myUsername"
CkMailMan_put_SmtpPassword $mailman "myPassword"

# Create a new email object
set email [new_CkEmail]

CkEmail_put_Subject $email "This is a test"
CkEmail_put_Body $email "This is a test"
CkEmail_put_From $email "Senders Name <sender@example.com>"
CkEmail_AddTo $email "Subscribers" "subscribers@example.com"

set bdMime [new_CkBinData]

CkMailMan_RenderToMimeBd $mailman $email $bdMime

# Load a file containing one email address per line.
set distList [new_CkStringTable]

set success [CkStringTable_AppendFromFile $distList 1000 "utf-8" "qa_data/distList.txt"]
if {$success == 0} then {
    puts [CkStringTable_lastErrorText $distList]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    delete_CkBinData $bdMime
    delete_CkStringTable $distList
    exit
}

set sbRecipients [new_CkStringBuilder]

set i 0
set szDistList [CkStringTable_get_Count $distList]
set j 0
while {$i < $szDistList} {

    # Build a list of comma-separated recipients.
    if {$j > 0} then {
        CkStringBuilder_Append $sbRecipients ","
    }

    CkStringBuilder_Append $sbRecipients [CkStringTable_stringAt $distList $i]

    set i [expr $i + 1]
    set j [expr $j + 1]

    # If we have 20 recipients, or we have the final recipient in the final chunk, then send.
    if {expr [$j == 20]  ||  [$i == $szDistList]} then {
        set success [CkMailMan_SendMimeBd $mailman "sender@example.com" [CkStringBuilder_getAsString $sbRecipients] $bdMime]
        if {$success != 1} then {
            puts [CkMailMan_lastErrorText $mailman]
            delete_CkMailMan $mailman
            delete_CkEmail $email
            delete_CkBinData $bdMime
            delete_CkStringTable $distList
            delete_CkStringBuilder $sbRecipients
            exit
        }

        set j 0
        CkStringBuilder_Clear $sbRecipients
    }

}

set success [CkMailMan_CloseSmtpConnection $mailman]
if {$success != 1} then {
    puts "Connection to SMTP server not closed cleanly."
}

puts "Email sent to distirbution list."

delete_CkMailMan $mailman
delete_CkEmail $email
delete_CkBinData $bdMime
delete_CkStringTable $distList
delete_CkStringBuilder $sbRecipients