Xbase++

Get Accepted and Rejected SMTP Recipients

Demonstrates the Chilkat MailMan.SmtpRecipientsLog method, which returns the list of recipient email addresses accepted or rejected by the SMTP server during the most recent email-send operation. Pass true to get the rejected list or false to get the accepted list. This example sends a message to two recipients and reports both lists.

Background: A send to multiple recipients is not necessarily all-or-nothing: the server judges each RCPT TO separately, so a message can be delivered to some addresses while others are refused. Inspecting these lists after a send tells you exactly who was accepted and who was not — essential for reporting partial failures accurately or flagging bad addresses in a mailing list, rather than assuming a successful send reached everyone.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oEmail
LOCAL oAccepted
LOCAL oRejected
LOCAL n
LOCAL i

nSuccess := 0

//  Demonstrates the MailMan.SmtpRecipientsLog method, which returns the list of recipient
//  email addresses accepted or rejected by the SMTP server during the most recent email-send
//  operation.  Pass 1 for the rejected list, or 0 for the accepted list.

oMailman := CreateObject("Chilkat.MailMan")

//  Configure the SMTP server connection.
oMailman:SmtpHost := "smtp.example.com"
oMailman:SmtpPort := 465
oMailman:SmtpSsl := 1
oMailman:SmtpUsername := "user@example.com"
oMailman:SmtpPassword := "myPassword"

//  Send an email to two recipients.
oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "Test email"
oEmail:From := "alice@example.com"
oEmail:AddTo("Bob", "bob@example.com")
oEmail:AddTo("Carol", "carol@example.com")
oEmail:Body := "Hello!"
nSuccess := oMailman:SendEmail(oEmail)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oEmail:destroy()
    RETURN
ENDIF

//  Get the recipients the server accepted (rejected = 0).
oAccepted := CreateObject("Chilkat.StringTable")
oMailman:SmtpRecipientsLog(0, oAccepted)
? "Accepted recipients: " + Str(oAccepted:Count)

//  Get the recipients the server rejected (rejected = 1).
oRejected := CreateObject("Chilkat.StringTable")
oMailman:SmtpRecipientsLog(1, oRejected)
n := oRejected:Count
? "Rejected recipients: " + Str(n)

FOR i := 0 TO n - 1
    ? oRejected:StringAt(i)
NEXT

//  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
//  connects and authenticates -- using the property settings above -- whenever a server
//  operation requires it.  Calling the explicit connect/authenticate methods can still be
//  helpful to determine whether a failure occurs while connecting or while authenticating.

oMailman:destroy()
oEmail:destroy()
oAccepted:destroy()
oRejected:destroy()