VBA -Copier cellules Excel vers outlook
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:
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 |
