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