Au fait, c'était tout simple.
Mais s'il y a des améliorations, je suis toujours preneur.
Private Sub CommandButton2_Click()
Dim lItem As Long
Dim OutApp As Object
Dim OutMail As Object
Dim SelectedItems As String
Set olApp = CreateObject("Outlook.application")
Set M = olApp.CreateItem(olMailItem)
On Error Resume Next
With M
.SentOnBehalfOfName = ""
.To = ""
.CC = ""
.BCC = " "
.Subject = "Documents pour ......."
.Body = "Bonjour," & vbCrLf & " " & vbCrLf & "Veuillez trouver en piéce jointe xxxxxxxxxxxxxxxxxxxxxxxxx. " _
& "Je vous en souhaite une très bonne réception." _
& vbCrLf & " " & vbCrLf & "avec mes sincères salutations" _
& vbCrLf & "FFFFFFFFF"
For lItem = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(lItem) = True Then
.Attachments.Add dossier & "\" & Me.ListBox1.List(lItem)
SelectedItems = SelectedItems & Me.ListBox1.List(lItem) & vbNewLine
End If
Next lItem
If SelectedItems = "" Then
MsgBox "Vous n'avez sélectionné aucun fichier"
Else
MsgBox "Les fichiers sélectionnés pour être envoyés: " & vbNewLine & vbNewLine & SelectedItems
End If
.Display
End With
Set M = Nothing
Set olApp = Nothing
End Sub