将范围插入电子邮件正文

Question

我正在尝试编写一个宏，该宏将采用一定范围的单元格并将它们输出到电子邮件中，并放在一些文本之间。

我无法解决如何插入范围。我不确定问题是我的范围没有正确声明，或者我没有正确调用它。

目前我有：

Sub Email() 

Dim OutApp As Object 
Dim OutMail As Object 
Dim Body As String 
Dim Rng As Range 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 
Set Rng = ActiveWorkbook.ActiveSheet.Range("A7", Range("A7").End(xlDown)) 

Body = "Hello," & vbNewLine & vbNewLine & _ 
     "Some text, followed by numbers:" & vbNewLine & vbNewLine & _ 
     Rng & vbNewLine & _ 
     "More text" 

On Error Resume Next 
With OutMail 
    .Body = Body 
    .Display 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 

End Sub 

Answer 1

你将必须把它作为附件发送，除非你可以连接将数据转换为字符串。

Ron deBruin对此有一段很棒的代码。您需要修改它以添加文字。

http://www.rondebruin.nl/win/s1/outlook/amail4.htm