paste clipboard to .body of outlook appointment

[aspiringnerd]

I have a function that copies a dynamic range to my clipboard, is it possible to set .body equal to my clipboard? I'm currently manually pasting it into the body of the outlook event

Sub new_event()
    Set olOutlook = CreateObject("Outlook.Application")
    Set Namespace = olOutlook.GetNameSpace("MAPI")
    Set oloFolder = Namespace.GetDefaultFolder(9)
    
    
    Set Appointment = oloFolder.items.Add
    
    With Appointment
        .AllDayEvent = True
        .Start = Cells(ActiveCell.Row, "T").Value
        .End = Cells(ActiveCell.Row, "U").Value
        .Categories = Cells(ActiveCell.Row, "V").Value
        .Subject = Cells(ActiveCell.Row, "W").Value
        '.Body = selectandcopy 'selectandcopy is a function that copies a dynamic range my clipboard, im currently manualy pasting the clipboard, is it possible to automate this task?
        .Display
    End With
End Sub

 

[aspiringnerd]

I think it might be better to set .body equal to the range in selectandcopy rather than to try copy and pasting. I'll post the vba once I get it roughly in shape

 

[aspiringnerd]

Here's what I've done so far, I commented where I get an error, if I comment it out, everything else works fine except I'm still manually copy and pasting the range (myrange)

Sub test()
    Dim ws As Worksheet, LastRow As Long, myrange As Range

    Set ws = ActiveSheet
    LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    Set myrange = ws.Range("A2:H" & LastRow)
    
    Set olOutlook = CreateObject("Outlook.Application")
    Set Namespace = olOutlook.GetNamespace("MAPI")
    Set myRecipient = Namespace.CreateRecipient("recipient@outlook.com")
    Set oloFolder = Namespace.GetSharedDefaultFolder(myRecipient, 9)
    Set Appointment = oloFolder.items.Add
    
    With Appointment
        .AllDayEvent = True
        .Start = Cells(ActiveCell.Row, "T").Value
        .End = Cells(ActiveCell.Row, "U").Value
        .Categories = Cells(ActiveCell.Row, "V").Value
        .Subject = Cells(ActiveCell.Row, "W").Value
        .Body = myrange 'this gives me an error "the object does not support this method"
        .Display
        
    End With
End Sub