(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim mailman As New Chilkat.MailMan
Dim success As Boolean

mailman.SmtpHost = "smtp.mymailserver.com"
mailman.SmtpPort = 465
mailman.SmtpSsl = True
mailman.SmtpUsername = "myUsername"
mailman.SmtpPassword = "myPassword"

// Create a new email object
Dim email As New Chilkat.Email
email.Subject = "This is a test"
email.Body = "This is a test"
email.From = "Senders Name <sender@example.com>"
success = email.AddTo("Subscribers","subscribers@example.com")

Dim bdMime As New Chilkat.BinData
success = mailman.RenderToMimeBd(email,bdMime)

// Load a file containing one email address per line.
Dim distList As New Chilkat.StringTable
success = distList.AppendFromFile(1000,"utf-8","qa_data/distList.txt")
If (success = False) Then
    System.DebugLog(distList.LastErrorText)
    Return
End If

Dim sbRecipients As New Chilkat.StringBuilder

Dim i As Int32
i = 0
Dim szDistList As Int32
szDistList = distList.Count
Dim j As Int32
j = 0
While i < szDistList

    // Build a list of comma-separated recipients.
    If (j > 0) Then
        success = sbRecipients.Append(",")
    End If

    success = 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)) Then
        success = mailman.SendMimeBd("sender@example.com",sbRecipients.GetAsString(),bdMime)
        If (success <> True) Then
            System.DebugLog(mailman.LastErrorText)
            Return
        End If

        j = 0
        sbRecipients.Clear 
    End If

Wend

success = mailman.CloseSmtpConnection()
If (success <> True) Then
    System.DebugLog("Connection to SMTP server not closed cleanly.")
End If

System.DebugLog("Email sent to distirbution list.")