Discussion :

[mikey83]

bonjour
je voudrais savoir comment faire pour recuperer l adresse email qui et entre <> dans un mail
merci par avance

[wallace1]

Bonjour mikey83,

Voilà qui devrait extraire toutes les adresses mail contenu dans une chaine de type String :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Public Function GetEmails(str As String) As List(Of String)
        Dim matches As System.Text.RegularExpressions.MatchCollection = _
            System.Text.RegularExpressions.Regex.Matches(str, _
            "\b[A-Z0-9._-]+@[A-Z0-9][A-Z0-9.-]{0,61}[A-Z0-9]\.[A-Z.]{2,6}\b", _
            System.Text.RegularExpressions.RegexOptions.IgnoreCase)
 
        Dim MatchList As New List(Of String)
        For Each match As System.Text.RegularExpressions.Match In matches
            MatchList.Add(match.ToString())
        Next
 
        Return MatchList
    End Function

Comment l'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim YourMessage As String = "AZERTY & " & vbNewLine & "bnnb_-sdfg:<wallace87000@gmail.com>" & "retur@hotmail.fr"
Dim Result As String = String.Empty
 
  For Each m In GetEmails(YourMessage)
            Result &= m & VbNewline
  Next
 
MsgBox(Result)

A+

[mikey83]

cet juste recuperer l adresse mail que j aurais choisis en cliquant et celle la uniquement
pas la liste de toute les adresse
mais merci quand meme ce me servira aussi

[mikey83]

j et trouver merci