Adjuntar rango en Cita de Outlook (Macros)

Expert@s como hago para adjuntar un rango en el cuerpo de una cita de Oulook, uso este código para crear citas:

Set Reunion = N_Outlook.Createitem(1)
Reunion.Subject = ""
Reunion.body = ""
Reunion.Start = ""
Reunion.End = ""
'Reunion.ReminderMinutesBeforeStart = ""
Reunion.ReminderPlaySound = True
Reunion.Save
'N_Outlook.Quit 
Set N_Outlook = Nothing