Bonjour, bonsoir à tous & à toutes,
En programmation, il est parfois nécessaire de vérifier l'authenticité d'une adresse Email, si vous n'avez jamais eu l'occasion d'avoir à réaliser cet exercice, vous finirez très certainement un jour par devoir le réaliser et c'est là que vous vous poserez la question, comment y parvenir?
Et bien ce n'est pas très compliqué, premièrement, il vous faut connaître le principe des ReGex et savoir comment cela fonctionne, ce qui vient après, vous savez à priori le mettre en place.
Puisqu'un exemple vos parfois plus qu'un long discours, on attaque l'essentiel de ce poste par une fonction. C'est elle qui déterminera si oui ou non l'adresse Email spécifiée est de bonne et due forme et si celle-ci est valide.
Code source :
Function EmailAddressCheck(ByVal emailAddress As String) As Boolean
Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
If emailAddressMatch.Success Then
EmailAddressCheck = True
Else
EmailAddressCheck = False
End If
End Function
Vous êtes normalement capable d'envoyer un Email en VB.NET ou du moins je le suppose. Je l'expliquerai très prochainement si ce n'est pas le cas. Maintenant, il nous faut lier cette Fonction à notre système d'envoi d'Email. Je n'explique pas la méthode dans ce poste, car ce n'est pas le but recherché.
En programmation, il est parfois nécessaire de vérifier l'authenticité d'une adresse Email, si vous n'avez jamais eu l'occasion d'avoir à réaliser cet exercice, vous finirez très certainement un jour par devoir le réaliser et c'est là que vous vous poserez la question, comment y parvenir?
Et bien ce n'est pas très compliqué, premièrement, il vous faut connaître le principe des ReGex et savoir comment cela fonctionne, ce qui vient après, vous savez à priori le mettre en place.
Puisqu'un exemple vos parfois plus qu'un long discours, on attaque l'essentiel de ce poste par une fonction. C'est elle qui déterminera si oui ou non l'adresse Email spécifiée est de bonne et due forme et si celle-ci est valide.
Code source :
Function EmailAddressCheck(ByVal emailAddress As String) As Boolean
Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
If emailAddressMatch.Success Then
EmailAddressCheck = True
Else
EmailAddressCheck = False
End If
End Function
Vous êtes normalement capable d'envoyer un Email en VB.NET ou du moins je le suppose. Je l'expliquerai très prochainement si ce n'est pas le cas. Maintenant, il nous faut lier cette Fonction à notre système d'envoi d'Email. Je n'explique pas la méthode dans ce poste, car ce n'est pas le but recherché.