Anhänge eines RTFs nach hinten verschieben

[rar]

Hallo Leute,

ich müsste in einem Script einbauen, dass alle Anhänge, die ein Benutzer in ein RTF hängt ans Ende des RTFs verschoben werden. Leider stehe ich etwas auf dem Schlauch und habe keine Ahnung, wie ich das bewerkstelligen könnte. Hat jemand eine Idee wie das gehen könnte?

lG
-daniel

[Johnson]

Ich weiß nicht, ob das ein Problem darstellt:

Dateien speichern:

Code

Function ExtractAllFiles(rti As NotesRichTextItem, str_path As String) As Variant
	
	Dim astr_filepath() As String
	Dim lng_filepath As Long
	
	If rti Is Nothing Then Exit Function
	If Not(Right(str_path, 1) = "\") Then str_path = str_path & "\"
	If Isempty(rti.EmbeddedObjects) Then
		Forall neo In rti.EmbeddedObjects
			Call neo.ExtractFile(str_path & neo.Name)
			Redim Preserve astr_filepath(lng_filepath)
			astr_filepath(lng_filepath) = str_path & neo.Name
			lng_filepath = lng_filepath + 1
		End Forall
	End If
	
	If lng_filepath > 0 Then ExtractAllFiles = astr_filepath
	
End Function

Dateien löschen:

Code

Function RemoveAllFiles(rti As NotesRichTextItem) As Boolean
	
	
	RemoveAllFiles = False
	
	If rti Is Nothing Then Exit Function
	If Isempty(rti.EmbeddedObjects) Then
		Forall neo In rti.EmbeddedObjects
			Call neo.Remove
		End Forall
	End If
	
	RemoveAllFiles = True
	
End Function

Dateien mit NotesRichTextItem.EmbedObject( EMBED_ATTACHMENT, "", [filepath]) wieder anhängen.

Das sollte doch eigentlich tun?

[rar]

Danke für die Idee bzw. für die Scripte.
An sowas in der Art hatte ich auch schon gedacht, aber irgendwie kam es mit komisch für diese Anforderung die Attachments zu lösen einzuhängen und wieder zu löschen. Ich dachte es geht einfacher.

Wenn dem aber nicht so ist, bleibt mir nichts anderen übrig als diesen Weg zu gehen.

Vielen Dank und lG