so you have something like
Array element 0: aaa@aaa.com;bbb@bbb.com;ccc@ccc.com
Array element 1: ddd@ddd.com;eee@eee.com
and so on
what you want, then I would assume, is something in your list like:
aaa@aaa.com
bbb@bbb.com
ccc@ccc.com
ddd@ddd.com
eee@eee.com
etc.
To do that you'd have to cycle through your array elements, then cycle through the sub elements of each array
(using this method because I'm not sure if you can use orange's method to concantenate values in the list)
something like:
Code:
Dim LArray As Variant
Dim LSubArray As Variant
LArray = Array("aaa@aaa.com;bbb@bbb.com;ccc@ccc.com", "ddd@ddd.com;eee@eee.com", "fff@fff.com", "ggg@ggg.com;hhh@hhh.com;iii@iii.com;jjj@jjj.com")
For i = 0 To UBound(LArray)
LSubArray = Split(LArray(i), ";")
For j = 0 To UBound(LSubArray)
Me.List0.AddItem LSubArray(j)
Next j
Next i
I just did a variant of orange's code and it's sleeker you just have to be careful with the syntax:
Code:
Dim LArray As Variant
LArray = Array("aaa@aaa.com;bbb@bbb.com;ccc@ccc.com", "ddd@ddd.com;eee@eee.com", "fff@fff.com", "ggg@ggg.com;hhh@hhh.com;iii@iii.com;jjj@jjj.com")
Me.List0.RowSource = ""
For i = 0 To UBound(LArray)
Me.List0.RowSource = Me.List0.RowSource & IIf(i = 0, "", ";") & LArray(i)
Next i