Virtual Fab Email address Checker 1.0

CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

Environment: VB6 SP4, NT4 SP5

OVERVIEW

This VB6 COM component provides realtime Email address checking. This is useful when you want to avoid sending Emails to non-existent accounts. For example, in an ASP page you can check if the user typed his Email address correctly, avoiding storing a wrong information in your users database.

CONTENTS

1. HOW DOES IT WORK?
2. COMPONENT FEATURES
3. INSTALLATION
4. USAGE
5. SAMPLE CODE
6. COMPONENT DOCUMENTATION
• Methods
• Properties
7. CREDITS
8. DOWNLOADS
9. HISTORY

HOW DOES IT WORK?

Giving an Email address (e.g. [email protected]), it executes the following steps:

1. Separates the Username (someone) from DomainName (somewhere.com);
2. Queries the configured DNS server if DomainName is valid (exists);
3. If DNS answers, it tries a SMTP (Simple Mail Transfer Protocol) session with each MX (Mail Exchanger) in that domain, as resulted from DNS query, until a session can be established;
4. Using SMTP, it verifies that Username exists on that domain, both using the VRFY (verify) command, and a true mail handshake (HELO, MAIL FROM, RCPT TO);
5. It then returns the result of its search, giving 4 possible results:
• The domain doesn’t exist. Negative answer
• The domain exists, but it isn’t possible to check username (see note 1). Partially positive answer.
• The domain exists, but the username doesn’t exist. Negative answer
• Both the domain and the user exist, fully positive answer

Note 1: If the domain exists, but the MX Mail Exchangers aren’t in that domain (typical situation with secondary domains handled by ISPs), it’s no use to check via SMTP since those machines are instructed to accept all mails for subdomains, and don’t check username at all. So we stop and take the partially positive answer.

COMPONENT FEATURES

This component

• Finds DNS server as configured on the local machine. You must have an active connection to the internet for this component to work properly
• Sends DNS requests using the SimpleDNSResolver component (see credits below)
• Receives DNS answers via UDP
• Establishes an SMTP session, via a standard Winsock.ocx TCP connection
• Talks with remote mail server to find out information on user
• Provides complete session log (DNS and SMTP) for debugging
• Provides very small executable (it is an ActiveX DLL less than 50K in size)
• It hasn’t an user interface and must be used by any language that supports ActiveX components (e.g. VBScript, ASP, VB, VC++, etc…)
• Runs on Windows NT 4.0 SP5, Windows 2000 (not tested), Windows 95 (not tested) and Windows 98 (not tested)
• Compiles with VB 6.0 Service Pack 4 (tested), but it can be compiled also in previous VB versions (such as 5) that support Winsock.ocx

INSTALLATION

• Download the package, unzip it into your preferred directory;
• Copy the VfabEmailUtils.DLL into your SYSTEM directory (C:WINNTSYSTEM32 for Windows NT, or C:WINDOWSSYSTEM for Win9x)
• Register the component into the registry:
• REGSVR32 C:WINNTSYSTEM32VfabEmailUtils.dll
• IMPORTANT: to have this component working properly, you MUST install Emmanuel KARTMANN’s Simple DNS Resolver v1.0. Please click here to read about how to install his package. See credits below.

USAGE

To use this component:

• Create an instance of the component;
• Put properties:
• EmailAddr
• SmtpTimeOut
• DNS server address (only under Win9x)
• Call the CheckDomain method
• Test the Result property: if it is not equal to vfabInvalidDomain (1) then you can
• Call the CheckUserName method;
• Then test the Result property to get the final result:
• vfabNotVerified = 0
• vfabInvalidDomain = 1
• vfabValidDomain = 2
• vfabValidDomainInvalidAccount = 3
• vfabValidDomainValidAccount = 4

SAMPLE CODE (VBScript from an ASP page)

dim oVfab
set oVfab=CreateObject("VFabEmailUtils.EmailCheck")  'Create object
                                                     'instance
oVfab.EmailAddr = Request.Form("EMAIL")  'Get the address to check
                                         'from ASP and assign it
                                         'to object
oVfab.CheckDomain                        'Check if domain exists
If oVfab.Result <> 1 Then                'If it exists, then try
                                         'to check also UserName
oVfab.SmtpTimeOut = 10                   'Give the object 10 seconds
                                         'to connect to remote SMTP
                                         'server
  oVfab.CheckUserName                    'Tries the SMTP session
End If
Response.Write "<br>" & oVfab.Log (true) 'Displays session log
                                         'in HTML format
Select Case oVfab.Result
Case 1
  Response.Write "Domain name (<b>" & oVfab.DomainName & _
                               "</b>) <b>INVALID</b>"
Case 2
  Response.Write "Domain name: valid - Cannot check account<br>"
Case 3
  Response.Write "Domain name: valid - Username (<b>" & _
                                                 oVfab.UserName & _
                                                 "</b>) <b>INVALID</b>"
Case 4
  If oVfab.RealName <> "???" Then
    Response.Write "Domain Name: valid - Account verified - _
                    Real name: " & _
                    oVfab.realname & "<br>"
  Else
    Response.Write "Domain Name: valid - Account verified<br>"
  End If
End Select
oVfab.Clear    'Clear connections, logs, and status

COMPONENT DOCUMENTATION

METHODS:

PROPERTIES:

CREDITS

This component strongly relies on SimpleDNSResolver by Emmanuel KARTMANN. Please refer to his page for details on the DNS architecture and on his component.

Download Zipped Project Files (28k)