(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loMailman = createobject("CkMailMan")

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

// Create a new email object
loEmail = createobject("CkEmail")
loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "Senders Name <sender@example.com>"
loEmail.AddTo("Subscribers","subscribers@example.com")

loBdMime = createobject("CkBinData")
loMailman.RenderToMimeBd(loEmail,loBdMime)

// Load a file containing one email address per line.
loDistList = createobject("CkStringTable")
llSuccess = loDistList.AppendFromFile(1000,"utf-8","qa_data/distList.txt")
if (llSuccess = .F.) then
    ? loDistList.LastErrorText
    release loMailman
    release loEmail
    release loBdMime
    release loDistList
    return
endif

loSbRecipients = createobject("CkStringBuilder")

i = 0
lnSzDistList = loDistList.Count
j = 0
do while i < lnSzDistList

    // Build a list of comma-separated recipients.
    if (j > 0) then
        loSbRecipients.Append(",")
    endif

    loSbRecipients.Append(loDistList.StringAt(i))

    i = i + 1
    j = j + 1

    // If we have 20 recipients, or we have the final recipient in the final chunk, then send.
    if ((j = 20) or (i = lnSzDistList)) then
        llSuccess = loMailman.SendMimeBd("sender@example.com",loSbRecipients.GetAsString(),loBdMime)
        if (llSuccess <> .T.) then
            ? loMailman.LastErrorText
            release loMailman
            release loEmail
            release loBdMime
            release loDistList
            release loSbRecipients
            return
        endif

        j = 0
        loSbRecipients.Clear()
    endif

enddo

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

? "Email sent to distirbution list."


release loMailman
release loEmail
release loBdMime
release loDistList
release loSbRecipients