VBAを利用し、Excelのセル範囲をOutLookにコピーする

Question

下記のような .Body = (文字列)　という形ではなく、
エクセルでセル範囲をコピーしてOutlookでペーストするという形を
VBAで出来ないでしょうか。
よろしくお願いします。

    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    
    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
     
　Dim mailbody as String   
   'mailbody を追加する処理

    With objMail
        .To = "[e-mail]"
        .Subject = "testメール"
        .BodyFormat = 1
        .Body = mailbody
    End With

Answer 1

下記でどうでしょう。

    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    
    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
   
    With objMail
        .To = "[e-mail]"
        .Subject = "testメール"
        .BodyFormat = 1
        .Display
        Range("A1:D10").Copy
        .GetInspector().WordEditor.Windows(1).Selection.Paste
    End With

あるいは、

    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    
    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
     
    Dim mailbody As String
 
    Range("A1:D10").Copy
    With New MSForms.DataObject
        .GetFromClipboard
        mailbody = .GetText
    End With
    
    With objMail
        .To = "[e-mail]"
        .Subject = "testメール"
        .BodyFormat = 1
        .Body = mailbody
        .Display
    End With

Comments

[nkym771]

ありがとうございます。
Outlookにペーストできました。