Como: Validar strings que representam endereços de email (Visual Basic)
O exemplo de código a seguir define uma variável booleana que indica se uma seqüência de caracteres representa um endereço de email válido.
Exemplo
Function ValidateEmail(ByVal email As String) As Boolean
Dim emailRegex As _
New System.Text.RegularExpressions.Regex( _
"^(?<user>[^@]+)@(?<host>.+)$")
Dim emailMatch As _
System.Text.RegularExpressions.Match = emailRegex.Match(email)
Return emailMatch.Success
End Function
Compilando o código
Chame esse método, passando a seqüência de caracteres que contém um endereço de email.
Programação robusta
Esse método valida que endereços de email que o formulário "someone@microsoft.com".
Use este código para validar a cadeia de caracteres antes de tentar usá-lo sistema autônomo um endereço de email.Isso pode impedir que outros erros em time de execução.