1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Imports Microsoft.VisualBasic
Imports System.Collections.Generic
Public Class Destinataires
Public Shared Function Liste()
Dim ListeEmails As New List(Of Email)
If System.Web.HttpContext.Current.Session.Item("emails") <> "" Then
Dim emails As String = System.Web.HttpContext.Current.Session.Item("emails")
For Each s As String In Split(emails, ",")
ListeEmails.Add(New Email(s))
Next
End If
Return ListeEmails
End Function
Public Class Email
Sub New(ByVal _email As String)
Me.email = _email
End Sub
Private _email As String
Public Property email() As String
Get
Return _email
End Get
Set(ByVal value As String)
_email = value
End Set
End Property
End Class
End Class |