Bonjour à tous
Je cherche via VBA à partir d'excel d'envoyer un méssage mail reportant le contenu de plusieurs cellules.
Je n'y arrive pas

qqun saurait-il m'aider à modifier ce code qui fonctionne pour le contenu d'une cellule.

Le cerise sur le gateau serait que le "coller" dans outlook conserve l'aspect de tableau.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub mAIL()
'
' mAIL Macro
' Macro enregistrée le 08/11/2008 par Rdesfx
'
 Dim ol As New Outlook.Application
   Dim olmail As mailItem
   Dim CurrFile As String
 
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
      .To = Range("d1").Value
      .Subject = ThisWorkbook.Name & "  Notification de mise à jour"
      '.Body = "Contenu " & Range("a2").Value
        .Body = Range("d2").Value & Chr(10) & "\\achille\LCM$"
      '.Display '
 
      .Send
   End With
'
End Sub