Send Identical Email to Distribution List

Sends an identical email to a distribution list.

Download Chilkat Email ActiveX

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail
LOCAL loSa

*  The mailman object is used for sending and receiving email.
loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Set the SMTP server.
loMailman.SmtpHost = "mail.chilkatsoft.com"
loMailman.SmtpUsername = "admin@chilkatsoft.com"
loMailman.SmtpPassword = "****"

*  Create a new email object
loEmail = CreateObject('Chilkat.Email2')

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"

*  Load a text file containing email addresses, one per line,
*  into a StringArray object. (In some programming languages,
*  this is a CkStringArray.)
loSa = CreateObject('Chilkat.CkStringArray')
lnSuccess = loSa.LoadFromFile("distributionList.txt")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Failed to load distributionList.txt")
    QUIT
ENDIF

*  Note: the distributionList.txt file contains one email
*  address per line.  For example:
* 
*  matt@chilkatsoft.com
*  "Chilkat Admin" <admin@chilkatsoft.com>
*  <support@chilkatsoft.com>
* 
*  An email address may contain both the friendly name (in quote)
*  and the email address (in angled brackets).  The friendly
*  name is optional.  When the friendly name is missing,
*  angled brackets are optional.

*  If the SendIndividual property is 1, then the email
*  is sent individually to each recipient in the list using
*  the "To" header field.

*  If the SendIndividual property is 0, then emails
*  are sent in batches of 100 BCC's.  Your program should
*  provide a single "To" address, such as:
loEmail.AddTo("My List","listAdmin@chilkatsoft.com")

*  This example will send emails individually, so we'll clear
*  the "To" list.
loEmail.ClearTo()

*  Set the mailman's SendIndividual property = 1
loMailman.SendIndividual = 1

lnSuccess = loMailman.SendToDistributionList(loEmail,loSa)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMailman.LastErrorText)
ELSE
    =MESSAGEBOX("Mail Sent!")
ENDIF