Note: This is not the complete source code--just the main source file.
You can download the full source (with include files) from our sample code archive by clicking on the diskette icons.
<%@ Page Language="VB" EnableSessionState="false" EnableViewState="false" %> <%@ Import namespace="Hexillion.HexValidEmail.Interop" %> <script runat="server"> '// SimpleEmailValidation sample in VB.NET '// version 2003-12-12 '// '// Demonstrates basic email address validation with '// HexValidEmail COM using .NET interop. '// '// HexGadget components required: '// HexValidEmail COM '// (For more info, go to http://www.Hexillion.com/hg/ ) '// '// History: '// 2003-12-12 Created '// '// Copyright 2003 Hexillion Technologies. All rights reserved. '// '// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY '// OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT '// LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND/OR '// FITNESS FOR A PARTICULAR PURPOSE. Sub Page_Load() If IsPostBack Then '// Create an instance of the Connection class Dim hve As New Connection() '// Identify yourself for SMTP (use your own information here) '// See http://www.hexillion.com/docs/guides/HexValidEmail/concepts/polite_usage.htm hve.FromDomain = "hexillion.com" '// The domain name of your machine hve.FromEmail = "HexValidEmail@hexillion.com" '// Email address of technical contact person '// Set timeouts (optional) hve.Timeouts.Item(HexValidEmailTimeout.hexVeTimeoutDnsTotal).Value = 4000 hve.Timeouts.Item(HexValidEmailTimeout.hexVeTimeoutSmtpTotal).Value = 10000 '// Do the validation to SMTP level Dim rating As HexValidEmailLevel rating = CType(hve.Validate(email.Text, HexValidEmailLevel.hexVeLevelSmtp), HexValidEmailLevel) '// If the address is definitely bad... If HexValidEmailLevel.hexVeLevelBad = rating Then '// Display the reason why output.Text = "Bad address: " + CType(hve.Error, HexValidEmailErrors).ToString() '// If validation didn't reach intended level... ElseIf rating < HexValidEmailLevel.hexVeLevelSmtp Then '// Say why output.Text = "No problems were found with the address, " & _ "but the validation failed at level " & _ (CInt(rating) + 1).ToString() & _ " with the following error: " & _ CType(hve.Error, HexValidEmailErrors).ToString() Else '// No problems encountered output.Text = "No problems were found with the address, though that does not guarantee it is good." End If End If End Sub 'Page_Load </script> <!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Simple Email Validation</title> </head> <body> <form id="MainForm" runat="server"> <p>Email address<br /> <asp:textbox id="email" runat="server" /> <asp:button id="submit" text="Submit" runat="server" /> </p> <asp:label id="output" runat="server" /> </form> </body> </html>