Thanks again Michael.

I think the key problem I am having is in this line of code in your example :-

Set Doc = Application.ActiveInspector.WordEditor

It works fine in the context of your example but if I create a Draft folder
item as below, it fails :-

Dim objOutlook As Outlook.Application
Dim objOutlookExp As Object
Dim objDrafts As Object
Dim objEmail As Object
Dim strBody, strTitle, strTo as String

 Dim Doc As Word.Document
 Dim wdRn As Word.Range
 Dim Xl As Excel.Application
 Dim Ws As Excel.Worksheet
 Dim xlRn As Excel.Range
       
Set objOutlook = New Outlook.Application

Set Doc = objOutlook.ActiveInspector.WordEditor

 ' Open the outlook drafts folder
           
Set objDrafts = objOutlook.Session.GetDefaultFolder(olFolderDrafts)
       
If objDrafts = "Drafts" Then
               
    ' Create new email in Drafts folder
     
    Set objEmail = objDrafts.Items.Add

     Set wdRn = Doc.Range

     Set Xl = GetObject(, "Excel.Application")
     Set Ws = Xl.Workbooks("Mappe1.xls").Worksheets(1)

     Set xlRn = Ws.Range("b2", "c6")
     xlRn.Copy

     wdRn.Paste
               
    strBody = "This is where I need to paste xlRn, maybe using a
DataObject.GetFromClipboard"
    strTitle = "Excel to Outlook Paste"
    strTo = Ws.Range("a1", "a1") ' email adresss in A1 in worksheet
               objEmail.To = strTo
    objEmail.Body = strBody
    objEmail.Subject = strTitle
    Set objDoc = objEmail.Attachments
    objDoc.Add strAttach

    ' Save email in drafts folder
               
    objEmail.Close olSave
Else
       MsgBox "No Drafts Folder"
End If
-----------------

This line in the above fails with Object not set error :-

Set Doc = objOutlook.ActiveInspector.WordEditor

Also the line below needs to paste into the Draft email i.e. into the Body
of email :-

wdRn.Paste

Any further thoughts - we are almost there?  Maybe all this code could be
driven from Outlook.