dim test1 as string = "a1@test.com;b2@test.com;c
dim emailto as string = nothing
dim email_cc as string = nothing
Dim allemails() as string = test1.split(";")
emailto = allemails(0)
for i as integer = 1 to allemails.length-1
email_cc = email_cc + allemails(i) + ";"
next
Main Topics
Browse All Topics





by: rettiseertPosted on 2009-11-05 at 11:33:42ID: 25753028
Hi
3@test.com ;d4@test.c om"
xOf(";") + 1)
Dim test1 As String = "a1@test.com;b2@test.com;c
Dim emailto As String
Dim email_cc As String
emailto = test1.Substring(0, test1.IndexOf(";"))
email_cc = test1.Substring(test1.Inde