[VBA] Insérer Tableau Excel dans Corps d'un Mail (Outlook)
Salut les gens,
Je souhaite, à partir d'un fichier Excel envoyer par mail un tableau d'une des feuilles Excel (avec un macro).
Mon piti problème est sur l'ajout de ce Tableau (ou plage de cellules) Excel dans le corps d'un mail.
J'ai tout qui marche (envoi mail, bons destinataires...) à part ce piti problème.
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Sub Macro()
'Déclaration des variables
Dim EmailSup As String
Dim MyOlapp As Object
Dim myItem
Dim olMailItem
Dim myRecipients
Dim myAttachments
' J'active la Feuille "Main" sur laquelle se trouve mon tableau
Windows("Classeur1.xls").Activate
Sheets("Main").Activate
EmailSup = "email du destinataire"
' Là, je sélectionne mon tableau
Range("A1", "F10").Select
Selection.Copy
Set MyOlapp = CreateObject("Outlook.Application")
Set myItem = MyOlapp.CreateItem(olMailItem)
Set myRecipients = myItem.Recipients
myRecipients.Add (EmailSup)
Set myAttachments = myItem.Attachments
myItem.Subject = " Demande quelconque "
myItem.body = "Corps du Texte, où je veux mettre mon tableau!!!!"
myItem.Send
End Sub |
Et donc volà, je ne sais comment insérer mon Tableau dans le mail (sachant que le myItem.body prend du texte je crois?)
Merci d'avance pour votre aide les gens !!!
V.:aie:
