(Classic ASP) 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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan")
set mailman = Server.CreateObject("Chilkat.MailMan")

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

' Create a new email object
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = Server.CreateObject("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")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdMime = Server.CreateObject("Chilkat.BinData")
success = mailman.RenderToMimeBd(email,bdMime)

' Load a file containing one email address per line.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringTable")
set distList = Server.CreateObject("Chilkat.StringTable")
success = distList.AppendFromFile(1000,"utf-8","qa_data/distList.txt")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( distList.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbRecipients = Server.CreateObject("Chilkat.StringBuilder")

i = 0
szDistList = distList.Count
j = 0
Do 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 <> 1) Then
            Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
            Response.End
        End If

        j = 0
        sbRecipients.Clear 
    End If

Loop

success = mailman.CloseSmtpConnection()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Connection to SMTP server not closed cleanly.") & "</pre>"
End If

Response.Write "<pre>" & Server.HTMLEncode( "Email sent to distirbution list.") & "</pre>"

%>
</body>
</html>