VBA - Outlookメールの本文に特定のレンジの値を貼り付けたい

Question

Outlookメールの本文に特定のレンジの値を貼り付けたく（表形式でなくテキストとして）、
途中までコードを書き、レンジの取得までは上手く行きましたが、その先の進め方が分からず
質問させていただきました。

■の部分に、レンジの値をどうもってくれば良いか、悩んでいます。

Sub GetRangeOnOL()
Option Explicit

Dim TableAddress As Range
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set TableAddress = Range("A2:B" & LastRow)

Dim OutlookObj As Outlook.Application
Set OutlookObj = New Outlook.Application

Dim mailObj As Outlook.MailItem
Set mailObj = OutlookObj.CreateItem(olMailItem)

    With mailObj
        .body = ■
        .BodyFormat = olFormatPlain
    End With

mailObj.display
End Sub

Answer 1

こんなかんじ、、です。

Option Explicit
Sub GetRangeOnOL()

Dim TableAddress As Range
Dim LastRow As Double

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set TableAddress = Range("A2:B" & LastRow)
TableAddress.Copy

Dim OutlookObj As Outlook.Application
Set OutlookObj = New Outlook.Application

Dim mailObj As Outlook.MailItem
Set mailObj = OutlookObj.CreateItem(olMailItem)

  With mailObj
     ' .BodyFormat = olFormatPlain     '値、文字のみ貼り付け
      .BodyFormat = olFormatHTML      '表として貼り付け
      .Body = "123■456"
      .display
  End With
'貼り付け　■の位置取得
      Dim r As Long
      r = InStr(mailObj.Body, "■") - 1
      mailObj.Body = Replace(mailObj.Body, "■", "")

'　　　.Range(開始文字位置、終了文字位置）
'       両方同じ値の場合は挿入
      OutlookObj.ActiveInspector.WordEditor.Range(r, r).Paste
 
  Application.CutCopyMode = False

End Sub

Comments

[koyamashinji]

回答誠にありがとうございます。大変助かりました。