need code to copy text from workbook and paste it in a new outlook message

Hi,

I've created a control button and assigned it a macro as per below to copy text.

Sub COPY()
'
' COPY Macro
'

'
Range("B4:K23").Select
Selection.COPY
End Sub

i need the functionality to extend this code.

i want it to copy > open a new outlook message > paste the copied content in the body of the message.

insert "[email protected]" in the TO field, "[email protected]" in the CC field & "This is a test message" in the subject field.

Is this possible?