Private Sub CommandButton12_Click()
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "pierre.paul@jacques.fr"
.Subject = TextBox2.Value
.CC = TextBox4.Value
.Attachments.Add (fic)
.Body = *** Ici le contenu de ma Listbox ***
.Send
End With
Set objOutlookMsg = Nothing
End Sub