Domino 9 und frühere Versionen > ND6: Entwicklung

Anhänge eines RTFs nach hinten verschieben

(1/1)

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
--- Ende Code ---

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
--- Ende Code ---

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

Navigation

[0] Themen-Index