Delphi 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.
// 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
Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail Unit
Type
TForm1 = Class(TForm)
Button1: TButton;
Procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
End;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
Procedure TForm1.Button1Click(Sender: TObject);
Var
oSmtp : TMail;
Begin
oSmtp := TMail.Create(Application);
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 := '';
ShowMessage( 'start to test email address ...' );
If oSmtp.TestEmailAddr() = 0 Then
ShowMessage( 'email address was verified!' )
Else
ShowMessage( 'failed to test email address with the following error: '
+ oSmtp.GetLastErrDescription());
End;
End.
If you have any comments or questions about above example codes, please add your comments here.
