<div>
Good show! <br />
<br />
It should be possible using a NotesRichTextNavigator. Exactly how I don't know.<br />
<br />
And see this article that presents a solution much like yours:<br />
<a href="https://www-10.lotus.com/ldd/ddwiki.nsf/dx/Inserting_text_at_the_beginning_of_a_NotesRichTextItem_" rel="ugc">https://www-10.lotus.com/ldd/ddwiki.nsf/dx/Inserting_text_at_the_beginning_of_a_NotesRichTextItem_</a><br />
It uses CopyItem to create a temp item, then removes the original Body field, creates a new one, adds new stuff and then adds the original content.<br />
<br />
It boils down to the same, virtually...
</div>


Good show!

It should be possible using a NotesRichTextNavigator. Exactly how I don't know.

And see this article that presents a solution much like yours:
https://www-10.lotus.com/ldd/ddwiki.nsf/dx/Inserting_text_at_the_beginning_of_a_NotesRichTextItem_ [https://www-10.lotus.com/ldd/ddwiki.nsf/dx/Inserting_text_at_the_beginning_of_a_NotesRichTextItem_]
It uses CopyItem to create a temp item, then removes the original Body field, creates a new one, adds new stuff and then adds the original content.

It boils down to the same, virtually...

<div>
<div class="content wysiwyg-content">
Could someone please help (Lotus Notes 6.5.6). The following code extract works but it puts the file at the bottom. I want it to appear at the top of whatever is in &quot;RTFItems&quot;. I am thinking I need to somehow create a temp file to embed my file, then embed the &nbsp;RTFItems and then copy the temp file back into RTFItems doc.<br />
<br />
Dim db As Object<br />
Dim doc As Object<br />
...<br />
<br />
Set Body = doc.GetFirstItem(&quot;RTFItems<wbr />&quot;)<br />
<br />
Call Body.AddNewLine(2)<br />
Call Body.EmbedObject(1454, &quot;&quot;, &quot;H:\Temp\&quot; &amp;&nbsp;msgNewName, &quot;Attachment&quot;)<br />
...<br />
Call doc.Save(True, False)<br />
Kill &quot;H:\Temp\&quot; &amp;&nbsp;msgNewName
</div>
</div>


Could someone please help (Lotus Notes 6.5.6). The following code extract works but it puts the file at the bottom. I want it to appear at the top of whatever is in "RTFItems". I am thinking I need to somehow create a temp file to embed my file, then embed the  RTFItems and then copy the temp file back into RTFItems doc.

Dim db As Object
Dim doc As Object
...

Set Body = doc.GetFirstItem("RTFItems")

Call Body.AddNewLine(2)
Call Body.EmbedObject(1454, "", "H:\Temp\" & msgNewName, "Attachment")
...
Call doc.Save(True, False)
Kill "H:\Temp\" & msgNewName

VBA how to embed a rich text item such as a file at the start of a rich text document body

Lotus Software produced the Lotus 1-2-3 spreadsheet program, and later developed Lotus Notes, a groupware and email system. Following its acquisition by IBM, the Notes and Domino client/server collaborative platform were expanded to include functions such as email, calendars, to-do lists, contacts management, teamrooms, discussion forums, file sharing, microblogging, instant messaging, blogs, and user directories. IBM also release SmartSuite, a comprehensive office suite, and followed that with Symphony, unrelated to the Lotus suite of the same name.