VBA Вставить копию ячеек в письмо

[agregator]

Всем здравствуйте! Макросом копирую диапазон ячеек, создаю письмо, активирую письмо, перемещаю курсор в конец сообщения, но не могу вставить скопированный диапазон в сообщение. Скажите пожалуйста как макросом вставить скопированный диапазон в сообщение. Кросс

Sub SendMail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
 
    Range("B1:M35").Copy
  
    'создаем новое пустое сообщение в Outlook
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    On Error GoTo cleanup
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
     
    With OutMail
        .To = "vasya@pupkin.com"
        .Subject = "Выполнение графиков движения автобусов за " & ThisWorkbook.ActiveSheet.Name
        .Body = "Здравствуйте! Высылаю данные о выполнении графиков движения автобусов за " & ThisWorkbook.ActiveSheet.Name & "г."
        'вместо Send можно использовать Display, чтобы посмотреть сообщение перед отправкой
    End With
     
    OutMail.Display
     
AppActivate Title:="Выполнение графиков движения автобусов за Январь 2022 - Сообщение (HTML)"
     
'  Перемещаю курсор
    For i = 1 To 100
SendKeys ("{right}")
    Next
       
    Selection.Paste
 
    On Error GoTo 0
    Set OutMail = Nothing
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

[agregator]

Всем спасибо вопрос решился

Sub Send_Range()
 
ActiveSheet.Range("B1:M35").Select
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "This is an example from official Microsoft site, slightly modified by Rioran."
    .Item.To = "voronov_rv@mail.ru"
    .Item.Subject = "Rio_Test"
    .Item.display
End With
 
End Sub