FONCTION POUR EXTRAIRE DES EMAILS DANS UN TEXTE

Imports System.Text.RegularExpressions

Public Class SearchEngine

    Public Shared Function Search_mail(ByVal text As String) As System.Text.RegularExpressions.MatchCollection
        Dim RegexpEmail As New Regex("\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*")
        Dim result As System.Text.RegularExpressions.MatchCollection, I As Integer
        result = RegexpEmail.Matches(text)
        Dim tableau As Array
        If result.Count > 0 Then
            Return result
        Else
            Return Nothing
        End If
    End Function

End Class