mail avec pièces jointes.

Dim I As Integer, ListeDestinataires As String
Private Sub B_go_Click()
If Me.Sujet = "" Then
   MsgBox "Saisissez un sujet !", vbCritical + vbOKOnly, "ATTENTION !"
   Me.Sujet.SetFocus
   Exit Sub
End If
If ListeDestinataires = "" Then
   MsgBox "Choisissez des destinataires !", vbCritical + vbOKOnly, "ATTENTION !"
   Me.Destinataires.SetFocus
   Exit Sub
End If
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
With msg
    .To = ListeDestinataires
    .Subject = Me.Sujet
    .Body = Me.Message
    For I = 0 To Me.PiècesJointes.ListCount - 1
        .Attachments.Add Me.PiècesJointes.List(I, 0)
    Next I
'   .Send
    .Display
End With
Unload eMail
End Sub

Private Sub CmdAnnuler_Click()
Unload Me
End Sub



Private Sub Destinataires_Change()
ListeDestinataires = ""
For I = 0 To Me.Destinataires.ListCount - 1
If Me.Destinataires.Selected(I) Then ListeDestinataires = ListeDestinataires & ";" & Me.Destinataires.List(I)
Next I
End Sub


Private Sub Parcourir_Click()
Dim fd As FileDialog, Tableau
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
    .AllowMultiSelect = True
    If .Show = -1 Then
        I = 0
        For Each vrtSelectedItem In .SelectedItems
            Tableau = Split(vrtSelectedItem, "\")
            Me.PiècesJointes.AddItem vrtSelectedItem
            Me.PiècesJointes.List(I, 1) = Tableau(UBound(Tableau))
            I = I + 1
        Next vrtSelectedItem
    End If
End With
Set fd = Nothing
End Sub

Private Sub UserForm_Initialize()
Me.Destinataires.List = Range("M2:M").Value
End Sub