Visual FoxPro

Verify Email Recipients

A way to possibly determine valid/invalid email addresses. I would recommend being very careful about doing this because your IP address may be flagged as a potential spammer by the mail server (because you are probing for valid/invalid email addresses). This Chilkat functionality existed for many years, before this kind of activity became a problem. The functionality remains only because it is useful for some to test with their own SMTP servers. Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loEmail
LOCAL loBadAddrs
LOCAL i

lnSuccess = 0

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

loMailman = CreateObject('Chilkat.MailMan')

* SMTP connection settings...
loMailman.SmtpHost = "smtp.example.com"
loMailman.SmtpUsername = "MY_SMTP_USERNAME"
loMailman.SmtpPassword = "MY_SMTP_PASSWORD"
loMailman.SmtpSsl = 1
loMailman.SmtpPort = 465

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

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "myemail@example.com"
lnSuccess = loEmail.AddTo("person1","person1@example.com")
lnSuccess = loEmail.AddTo("person2","person2@example.com")
lnSuccess = loEmail.AddTo("person3","person3@example.com")
* The SMTP server smtp.example.com won't know anything about an email address @somewhere_else.com
lnSuccess = loEmail.AddTo("person3","person4@somewhere_else.com")
* ...

* Verify recipients.
* **** See the warning about using this API method in the description above.
* (An SMTP server only knows valid email address for its own domain.  For example,
* smtp.example.com *may* only know if person1@example.com is valid or invalid, but does
* not know anything about the validity of email addresses having other domains.)
loBadAddrs = CreateObject('Chilkat.StringArray')
lnSuccess = loMailman.VerifyRecips(loEmail,loBadAddrs)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    RELEASE loBadAddrs
    CANCEL
ENDIF

i = 0
DO WHILE i < loBadAddrs.Count
    ? loBadAddrs.GetString(i)
    i = i + 1
ENDDO

? "done."

RELEASE loMailman
RELEASE loEmail
RELEASE loBadAddrs