(Ruby) 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 Ruby Downloads install from rubygems.org gem install chilkat or download... Ruby Library for Windows, MacOS, Linux, Alpine Linux

require 'chilkat'

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

mailman = Chilkat::CkMailMan.new()

mailman.put_SmtpHost("smtp.mymailserver.com")
mailman.put_SmtpPort(465)
mailman.put_SmtpSsl(true)
mailman.put_SmtpUsername("myUsername")
mailman.put_SmtpPassword("myPassword")

# Create a new email object
email = Chilkat::CkEmail.new()
email.put_Subject("This is a test")
email.put_Body("This is a test")
email.put_From("Senders Name <sender@example.com>")
email.AddTo("Subscribers","subscribers@example.com")

bdMime = Chilkat::CkBinData.new()
mailman.RenderToMimeBd(email,bdMime)

# Load a file containing one email address per line.
distList = Chilkat::CkStringTable.new()
success = distList.AppendFromFile(1000,"utf-8","qa_data/distList.txt")
if (success == false)
    print distList.lastErrorText() + "\n";
    exit
end

sbRecipients = Chilkat::CkStringBuilder.new()

i = 0
szDistList = distList.get_Count()
j = 0
while i < szDistList

    # Build a list of comma-separated recipients.
    if (j > 0)
        sbRecipients.Append(",")
    end

    sbRecipients.Append(distList.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 == szDistList))
        success = mailman.SendMimeBd("sender@example.com",sbRecipients.getAsString(),bdMime)
        if (success != true)
            print mailman.lastErrorText() + "\n";
            exit
        end

        j = 0
        sbRecipients.Clear()
    end

end

success = mailman.CloseSmtpConnection()
if (success != true)
    print "Connection to SMTP server not closed cleanly." + "\n";
end

print "Email sent to distirbution list." + "\n";