Sende e-mail på baggrund af valgt element på liste

YourListbox.columns(2)

columns start from 0

Private Sub Command0_Click()
Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item
       
        .Subject = "The subject"
        .Body = "This is the body of the mail - http://www.eksperten.dk"
        .FlagStatus = olFlagMarked
        '.Attachments.Add "Any attachments"
       
        Set Receiver = .Recipients.Add(me.YourListBox.columns(2))
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing

           
End Sub

change columns to column