Bonjour,
Je suis en train de coder une macro permettant d'envoyer un mail avec une pièce jointe. Jusque là, tout va bien.
Cependant, à celà j'aimerais pouvoir coller dans le corps du mail(en bitmap) un tableau copié depuis la feuille excel.
Voici le code utilisé (la ligne qui renvoie l'erreur est en gras):
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 Set myApp = CreateObject("Outlook.Application") Set myItem = myApp.CreateItem(olMailItem) myItem.Subject = ThisWorkbook.Sheets("SQL").Range("Name").Text & ": performance on " & ThisWorkbook.Sheets("SQL").Range("ToDay").Text & "" Range("PerfReportForMail").Select Selection.Copy myItem.Body = Selection.PasteSpecial(Format:="Bitmap", Link:=False, DisplayAsIcon:=False) With myItem .SentOnBehalfOfName = "blabla@yahoo.fr" End With myItem.Attachments.Add "Z:\Appli\Gts\Dev\GTS_ALPHALIB\Excel\Performance Report.xlsm" 'myItem.to = ThisWorkbook.Sheets("SQL").Range("MailingList") myItem.to = "blabla@yahoo.fr" myItem.Display myItem.Send
Si quelqu'un a une solution, il est le bienvenuu
Merci.
Partager