範囲をメール本文に挿入する

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