Visual FoxPro

Send Email to Distribution List

See more SMTP Examples

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.

Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loEmail
LOCAL loBdMime
LOCAL loDistList
LOCAL loSbRecipients
LOCAL i
LOCAL lnSzDistList
LOCAL j

lnSuccess = 0

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

loMailman = CreateObject('Chilkat.MailMan')

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

* Create a new email object
loEmail = CreateObject('Chilkat.Email')
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('Chilkat.BinData')
loMailman.RenderToMimeBd(loEmail,loBdMime)

* Load a file containing one email address per line.
loDistList = CreateObject('Chilkat.StringTable')
lnSuccess = loDistList.AppendFromFile(1000,"utf-8","qa_data/distList.txt")
IF (lnSuccess = 0) THEN
    ? loDistList.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    RELEASE loBdMime
    RELEASE loDistList
    CANCEL
ENDIF

loSbRecipients = CreateObject('Chilkat.StringBuilder')

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
        lnSuccess = loMailman.SendMimeBd("sender@example.com",loSbRecipients.GetAsString(),loBdMime)
        IF (lnSuccess <> 1) THEN
            ? loMailman.LastErrorText
            RELEASE loMailman
            RELEASE loEmail
            RELEASE loBdMime
            RELEASE loDistList
            RELEASE loSbRecipients
            CANCEL
        ENDIF

        j = 0
        loSbRecipients.Clear()
    ENDIF

ENDDO

lnSuccess = loMailman.CloseSmtpConnection()
IF (lnSuccess <> 1) THEN
    ? "Connection to SMTP server not closed cleanly."
ENDIF

? "Email sent to distirbution list."

RELEASE loMailman
RELEASE loEmail
RELEASE loBdMime
RELEASE loDistList
RELEASE loSbRecipients