I don't see a problem there.

Did you look at this approach? It is sort of similar to the Outlook WordEditor method that allows pasting into the body. You can remove that part. I don't remember if I used this method.

'http://www.experts-exchange.com/Applications/Email/Lotus_Notes_Domino/Q_21829026.html
Public Function SendEmail(SendTo As String, EmailSubject As String, MyAttachment As String) As Boolean
  SendEmail = True
  Dim myRange As Range   'I set a range on the spreadsheet
  Const EMBED_ATTACHMENT As Integer = 1454
  Const EMBED_OBJECT As Integer = 1453
  Const EMBED_OBJECTLINK As Integer = 1452
  
  Worksheets("Sheet1").Activate
  Worksheets("Sheet1").Range("Range1").Select
  Worksheets("Sheet1").Range("Range1").Copy
  
  
  On Error GoTo ErrorMsg
   
  Dim EmailList As Variant
  Dim ws, uidoc, session, db, uidb, NotesAttach, NotesDoc, objShell As Object
  Dim RichTextBody, RichTextAttachment As Object
  Dim server, mailfile, user, usersig As String
  Dim SubjectTxt, MsgTxt As String
           
   Set session = CreateObject("Notes.NotesSession")
   If session Is Nothing Then
       MsgBox "Sorry, unable to instantiate the Notes Session", vbOKOnly, "Unable to Continue"
       SendEmail = False
       Exit Function
   End If
  
   user = session.UserName
   usersig = session.CommonUserName
   server = ""
   'server = session.GetEnvironmentString("MailServer", True)
   mailfile = session.GetEnvironmentString("MailFile", True)
  
   Set db = session.GetDatabase(server, mailfile)
   If Not db.IsOpen Then
       Call db.Open("", "")
   End If
          
   If Not db.IsOpen Then
       MsgBox "Sorry, unable to open: " & mailfile, vbOK, "Unable to Continue"
       SendEmail = False
       Exit Function
   End If
   Set NotesDoc = db.createdocument
   With NotesDoc
       .form = "Memo"
       .Principal = user
       .Subject = EmailSubject 'The subject line in the email
       .SendTo = SendTo  'temp variant for now
   End With
   Set RichTextBody = NotesDoc.CreateRichTextItem("Body")
   If Not RichTextBody Is Nothing Then
       If MyAttachment <> "" Then
           Call RichTextBody.addnewline(2)
           Call RichTextBody.appendText("Please find the following file attached: " & MyAttachment)
           Call RichTextBody.addnewline(1)
           Call RichTextBody.EmbedObject(EMBED_ATTACHMENT, "", MyAttachment)
           Call RichTextBody.addnewline(1)
       Else
           Call RichTextBody.addnewline(2)
           Call RichTextBody.appendText("There were no excel files to attach to this notice")
           Call RichTextBody.addnewline(1)
       End If
   End If
  
   With NotesDoc
       .computewithform False, False
       .savemessageonsend = True
       .Save True, False, True
   End With
  
   'Now set the front end stuff
  Set ws = CreateObject("Notes.NotesUIWorkspace")
  If Not ws Is Nothing Then
  Set uidoc = ws.editdocument(True, NotesDoc)
   If Not uidoc Is Nothing Then
        If uidoc.editmode Then
          Call uidoc.gotofield("Body")
          Call uidoc.Paste
        End If
    End If
  End If
  
  With NotesDoc
       .postedDate = Date
       .Save True, False, True
       .SaveOptions = "0"
       .Send False
  End With
  
   Set session = Nothing  'close connection to free memory
   Set db = Nothing
   Set NotesAttach = Nothing
   Set NotesDoc = Nothing
   Set uidoc = Nothing
   Set ws = Nothing
  
Exit Function


ErrorMsg:
   On Error GoTo 0
   SendEmail = False
   MsgBox "Sorry there was an error processing the request: " + Error$ + "-" + Str(Err), vbOKOnly, "Error"
   Set session = Nothing  'close connection to free memory
   Set db = Nothing
   Set NotesAttach = Nothing
   Set NotesDoc = Nothing
   Set ws = Nothing
  Exit Function
End Function