NotesRichtextItem.EmbedObject und Web- Anzeige...

[Tode]

In der KB habe ich nichts dazu gefunden, deshalb frage ich hier:

Problem: Per Script eingebettete Anhänge erscheinen im Web nicht korrekt:

Im Lese- Modus sieht alles noch OK aus, im Edit- Mode im Web steht aber dann plötzlich der Name des Attachments im Richtext- Item... beim speichern wird dieser dann permanent übernommen (siehe images)

Der Code um die Attachments einzubetten sieht so aus:

Code

	Dim ses As New NotesSession
	Dim doc As NotesDocument
	Dim rtItem As NotesRichTextItem
	Dim inputAttachment As NotesEmbeddedObject
	Dim tempDirectory As String
	Dim fileName As String
	Dim filePath As String
	
	Dim itemName As String
	itemName = "Body"
	
	Dim aLog As New NotesLog( "WebMoveFileToRTItem" )
	Call aLog.OpenAgentLog
	
	Call aLog.LogAction( "Starting Move" )
	On Error Goto errorHandler
	
	
	Set doc = ses.CurrentDatabase.UnprocessedDocuments.GetFirstDocument
'-- Create the rich text item
	If doc.HasItem ( itemName ) Then
		Set rtItem = doc.GetFirstItem ( itemName )
	Else
		Set rtItem = New NotesRichTextItem ( doc, itemName )
	End If
	filePath = "H:\Eigene Dateien\Integrating Websphere and Domino.pdf"
'-- re-attach the file
	Call aLog.LogAction( "ReAttaching file " & fileName )
	Set inputAttachment = rtItem.EmbedObject ( EMBED_ATTACHMENT, "", FilePath , FilePath )
	Call doc.Save( True , True )
endSub: 
	Call aLog.Close
	Exit Sub
errorHandler: 
	Call aLog.LogError( Err , Error & " in Line " & Erl )
	Resume endSub

Hat irgend jemand ne Idee, wie man sowas umgehen kann ?

Gruß
Tode

P.S.: Normal über den Client eingebundene Attachments zeigen dieses Verhalten nicht.