VBA Copy excel range to outlook's rich text format appointment body?

[John.McLaughlin]

Hello,

It seems the Outlook Appointment Body is Rich Text Format, not HTML. How can I paste an excel range into the RTF appointment body?

The code below will paste a single cell value, but I am lost converting the range to RTF, or finding a work around.

Thanks in advance,

JM

Sub OutlookAppointment()
'
' OutlookAppointment Macro
'
    Application.ReferenceStyle = xlA1
    Dim olApp As Outlook.Application
    Dim olApt As AppointmentItem
‘    Dim Sendrng As Range
       
    Set olApp = New Outlook.Application
    Set olApt = olApp.CreateItem(olAppointmentItem)
    Set Sendrng = Worksheets("SUMMARY").Range("A15:F20")
 
    With olApt
        .Start = Worksheets("ORDER").Range("B16").Value
        .Subject = Worksheets("SUMMARY").Range("J2").Value
        .Location = Worksheets("SUMMARY").Range("J3").Value
        .Categories = "ADMIN"
'       .Body = Sendrng
        .Body = Worksheets("ORDER").Range("B3").Value
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = True
        .Save
    End With
 
    Set olApt = Nothing
    Set olApp = Nothing
 
 
'
End Sub