VB6, VBA ExampleValidate Email Address Syntax
Regular expression can be used to validate if an email address is in correct format. For example: you can use this "^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,6}$" pattern to verify if the email address has valid format.
Test Email Address
Even the email address has a valid format, it doesn't mean the email address is existed in real world. TestEmailAddr method can be used to test if the email address is valid.
How does it work? Firstly, SmtpClient performs a DNS MX record query. If it retrieves the recipient's local SMTP server successfully, SmtpClient will try to connect to this server. SmtpClient then performs "RCPT TO" command to test if this SMTP server accepts this email address.
' The following example codes demonstrate testing email address using MX DNS lookup
' To get full sample projects, please download and install EASendMail on your machine.
' To run it correctly, please change SMTP server, user, password, sender, recipient value to yours
Private Sub btnSendMail_Click()
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Set your sender email address
oSmtp.FromAddr = "test@emailarchitect.net"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Do not set SMTP server address
oSmtp.ServerAddr = ""
MsgBox "start to test email address..."
If oSmtp.TestEmailAddr() = 0 Then
MsgBox "email address was verified!"
Else
MsgBox "failed to test email address with the following error:" & oSmtp.GetLastErrDescription()
End If
End Sub
If you have any comments or questions about above example codes, please add your comments here.
