Bounced Email Testing

This example sends an email to bounce@chilkatsoft.com. Chilkat has setup a mailbox (bounce@chilkatsoft.com) that has a message limit of 2. The mailbox is already full, so any messages sent to it will generate an automated mailbox-full bounce reply. Chilkat is providing this mailbox so you may test your bounce handling programs.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail

*  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 = "smtp.chilkatsoft.com"
loMailman.SmtpUsername = "myUsername"
loMailman.SmtpPassword = "myPassword"

*  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>"

*  You may test by sending email to bounce@chilkatsoft.com.
*  Chilkat created this email acccount explicitly for testing.
*  Any email sent to it will receive a "mailbox-full" bounce reply.
loEmail.AddTo("Chilkat Bounce Testing","bounce@chilkatsoft.com")

*  Bounced email will be delivered to this address:
loEmail.BounceAddress = "bounce.processor@chilkatsoft.com"

*  Note: the BounceAddress property equates to setting the
*  "return-path" email header.  Mail bounces are sent
*  to the email address specified in the "return-path" header
*  field, which may be different than the email address in
*  the "From" header field.

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