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
Partager