如何将EXCEL指定区域复制粘贴到邮件正文发送

sunw1984

各位老师
本人现做好一个表，表填完后点保存后需要实现”将Sheet1.Range("A1:J28")的内容复制粘贴到Outlook正文（非附件形式，如图片/表格形式）”并发送，特此请教代码怎么写，非常感谢

1. Sheet1.Range("A1:J28").Select
   
2.    
   
3.     Dim OutlookApp As Object
   
4.     Dim MailItem As Object
   
5.     Dim Recipient As Object
   
6. 
   
7. Set OutlookApp = CreateObject("Outlook.Application")
   
8. Set MailItem = OutlookApp.CreateItem(0)
   
9. MailItem.to = "wei.sum@cabotcorp.com"
   
10. MailItem.Subject = "检查记录" & Sheets("sheet1").Range("J28").Value
    
11. MailItem.Body = 这里该怎么写啊
    
12. ThisWorkbook.Save
    
13. MailItem.display
    
14. 'MailItem.Attachments.Add (ThisWorkbook.FullName)
    
15. Set OutlookApp = Nothing
    
16. Set MailItem = Nothing
    
17. Set Recipient = Nothing
    
18. 
    
19.     Application.DisplayAlerts = True
    
20.     Application.Calculation = xlCalculationAutomatic
    
21.     Application.ScreenUpdating = True

复制代码