Simple Listbox Multiselect results capture

[ToyB]

On my excel userform I have two list boxes, one with peoples names and this transfers their email address into listbox2, which has multiselect activated, with a command button. That works fine.

I would like to know, in really simple coding , how to convert the Listbox2 results into an array whereby the individual email addresses are separated by semicolons so I can put this into an email address field in outlook. I'm sure you can see what I am trying to do but the user selects who they want to email and then fires off a report to them.

Really appreciate your help

 

[Andrew Poulsom]

Example:

Private Sub CommandButton1_Click()
    Dim First As Boolean
    Dim i As Long
    Dim List As String
    First = True
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                If First Then
                    List = .List(i)
                    First = False
                Else
                    List = List & ";" & .List(i)
                End If
            End If
        Next i
    End With
    MsgBox List
End Sub

 

[ToyB]

Hey Andrew thanks so much for this,

Works brilliantly except I found I need to highlight all the listbox results in blue for the code to recognise them being there. Is there an automatic way of doing this so that all the addresses are picked.

Example:

Private Sub CommandButton1_Click()
    Dim First As Boolean
    Dim i As Long
    Dim List As String
    First = True
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                If First Then
                    List = .List(i)
                    First = False
                Else
                    List = List & ";" & .List(i)
                End If
            End If
        Next i
    End With
    MsgBox List
End Sub

 

[Andrew Poulsom]

Sure:

Private Sub CommandButton1_Click()
    Dim First As Boolean
    Dim i As Long
    Dim List As String
    First = True
    With ListBox1
        For i = 0 To .ListCount - 1
            If First Then
                List = .List(i)
                First = False
            Else
                List = List & ";" & .List(i)
            End If
        Next i
    End With
    MsgBox List
End Sub

 

[ToyB]

Thank you again and for such a quick reply. Much appreciated.

Works just like I hoped it would