将已closures工作簿的一系列单元格复制到已包含使用VBA的正文的Outlook电子邮件中？

我正在尝试将一系列单元格复制到已经有一些文本的Outlook电子邮件正文中。 我目前的代码如下，但它不断崩溃：

Dim sourceWorkbook As Workbook Dim outEmail As Object Dim outContent As Object Dim copiedRange As Range Set sourceWorkbook = Workbook.Open("file location") Set outEmail = GetObject(,"Outlook.Application") Set outContent = objOut.CreateItem(0) Set copiedRange = Sheet("sheet name").RangeToHtml("A1:D5") copiedRange.Select With Selection .Copy End With With outContent .Body = "blah blah blah" .HTMLBody = RangeToHtml.copiedRange End With 

Answer 1

 Dim sourceWorkbook As Workbook Dim outEmail As Object Dim outContent As Object Dim copiedRange As Range Set sourceWorkbook = Workbooks.Open("file location") Set outEmail = GetObject(,"Outlook.Application") Set outContent = outEmail.CreateItem(0) Set copiedRange = sourceWorkbook.Sheets("sheet name").Range("A1:D5") With outContent .Body = "blah blah blah" .HTMLBody = RangeToHtml(copiedRange) End With