將範圍插入電子郵件正文

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