Verify Email Addresses with VerifyRecipients

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Verify email recipients. This example demonstrates the usage of the VerifyRecipients method.

Please see this blog post for more information VerifyRecipients -- Validating Email Addresses

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  The mailman object is used for sending and receiving email.
set mailman = Server.CreateObject("Chilkat_9_5_0.MailMan")

'  Any string argument automatically begins the 30-day trial.
success = mailman.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "Component unlock failed" & "<br>"

End If

'  Set the SMTP server.
'  This code was tested against both mail.chilkatsoft.com
'  and smtp.comcast.net

'  mailman.SmtpHost = "mail.chilkatsoft.com";
'  mailman.SmtpUsername = "admin@chilkatsoft.com";
'  mailman.SmtpPassword = "****";

mailman.SmtpHost = "smtp.comcast.net"

'  Create an email object.
'  We'll never actually send this email.  It's only used
'  to test the recipients.
set email = Server.CreateObject("Chilkat_9_5_0.Email")

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

'  Add recipients to be checked.
'  (When this was tested, a_real_person was replaced with
'  a valid email address.)
email.AddTo "A Real Person","a_real_person@comcast.net"
email.AddTo "Testing","doesNotExist7434@comcast.net"
email.AddTo "Admin","admin@chilkatsoft.com"
email.AddTo "Not Exist","doesNotExist@chilkatsoft.com"
email.AddCC "Not Exist","DoesNotExist7213@gmail.com"
email.AddBcc "Exists","chilkat.support@gmail.com"

'  NOTE: A mail server can only verify the email addresses
'  specific to it's domain.  Therefore, when using smtp.comcast.net,
'  only comcast.net email addresses will be flagged as invalid,
'  and when using mail.chilkatsoft.com, only chilkatsoft.com
'  email addresses are flagged as invalid.

'  Return all bad email addresses in saBadAddrs:

Set saBadAddrs = mailman.VerifyRecipients(email)
If (saBadAddrs Is Nothing ) Then
    Response.Write mailman.LastErrorText & "<br>"

Else
    '  List the invalid email addresses:
    If (saBadAddrs.Count > 0) Then

        n = saBadAddrs.Count
        For i = 0 To n - 1
            Response.Write saBadAddrs.GetString(i) & "<br>"
        Next

        '  Examine the SMTP session log to see how the email
        '  addresses were caught:
        Response.Write mailman.SmtpSessionLog & "<br>"

    End If
End If

%>
</body>
</html>