CheckMails

function CheckMails(const Mails: string; OnlyOne: Boolean = False): Integer

Unité

Execute.Mailer

Description

La fonction CheckMails permet de déterminer si une liste de mails est valide.

Le paramètre Mails doit contenir une liste d'email séparées par des virgules ou des points-virgule.

Le paramètre OnlyOne préciser si la liste ne doit contenu qu'une seul email.

Valeur de retour

La fonction retourne zéro si aucune erreur n'a été détectée, sinon elle retourne la position du caractère en erreur dans la chaîne.

Exemple

procedure TForm1.Button1Click(Sender: TObject);
var
  Index: Integer;
begin
  Index := CheckMails(Edit1.Text, False);
  if Index > 0 then
  begin
    ShowMessage('Malformed email found');
    Edit.SetFocus;
    Edit.SelStart := Index;
  end;
end;