Comunes/tsUtilidades
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- 2026-07-23 1.1.22 Mejora de rutinas de validación de emails

Browse Source
This commit is contained in:
Manuel Moguer
2026-07-23 14:57:09 +02:00
parent 4795f9b68f
commit 1f2d5e39d8
2 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Extensiones/StringExtensions.vb
View File

@@ -42,9 +42,10 @@ Namespace Extensiones
<Extension()> <Extension()>
Public Function EsEmailValido(ByVal email As String) As Boolean Public Function EsEmailValido(ByVal email As String) As Boolean
Try Try
email = email.NothingAVacio.Trim.ToLower If String.IsNullOrWhiteSpace(email) Then Return False
Dim addr = New System.Net.Mail.MailAddress(email) Dim patron As String = "^(?("")("".+?""@)|(([0-9A-Za-z]((\.|[-!#\$%&'\*\+/=\?\^`\{\}\|~\w])*[0-9A-Za-z])?)))" &
Return addr.Address = email "@(([0-9A-Za-z]([-\w]*[0-9A-Za-z])?\.)+[A-Za-z]{2,})$"
Return Regex.IsMatch(email, patron)
Catch ex As Exception Catch ex As Exception
Return False Return False
End Try End Try
@@ -58,12 +59,7 @@ Namespace Extensiones
Dim emails = Listaemail.Split(";") Dim emails = Listaemail.Split(";")
For Each email In emails For Each email In emails
email = email.NothingAVacio.Trim.ToLower email = email.NothingAVacio.Trim.ToLower
If email <> "" Then If EsEmailValido(email) = False Then Return False
Dim addr = New System.Net.Mail.MailAddress(email)
If addr.Address <> email Then
Throw New Exception("Email incorrecto")
End If
End If
Next Next
Return True Return True
End If End If

3
tsUtilidades.vbproj
View File

@@ -16,11 +16,12 @@
<TargetFramework>net8.0</TargetFramework> <TargetFramework>net8.0</TargetFramework>
<PackageId>tsUtilidades</PackageId> <PackageId>tsUtilidades</PackageId>
<PackageTags>net8.0, libreria</PackageTags> <PackageTags>net8.0, libreria</PackageTags>
<Version>1.1.21</Version> <Version>1.1.22</Version>
<Authors>Manuel</Authors> <Authors>Manuel</Authors>
<Company>Tecnosis S.A</Company> <Company>Tecnosis S.A</Company>
<Description>Utilidades Varias</Description> <Description>Utilidades Varias</Description>
<PackageReleaseNotes> <PackageReleaseNotes>
- 2026-07-23 1.1.22 Mejora de rutinas de validación de emails
- 2026-07-22 1.1.21 Corrección de clase ValidacionDocumentosIdentidad - 2026-07-22 1.1.21 Corrección de clase ValidacionDocumentosIdentidad
- 2026-07-22 1.1.19 Nueva Clase ValidacionDocumentosIdentidad para documentos extranjeros - 2026-07-22 1.1.19 Nueva Clase ValidacionDocumentosIdentidad para documentos extranjeros
- 2026-05-29 1.1.18 Corrección rutina LeeMysql y LeeMysqlBytArray para que como maximo se admitan 2048 caracteres string - 2026-05-29 1.1.18 Corrección rutina LeeMysql y LeeMysqlBytArray para que como maximo se admitan 2048 caracteres string