RTF und Attachments

[SnueK]

Hallo zusammen,

ich bin erst vor kurzem in Lotusscript eingestiegen und sitze im Moment vor einem Problem, welches ich auch durch stundenlanges Probieren nicht lösen konnte. Deswegen hoffe ich, dass mir hier einer helfen kann 

Ausgangssituation:
Ich habe ein Dokument mit einem Richtext Field. Wenn in diesem Richtext Field Attachments vorhanden sind, so möchte ich diese aus dem Richtext Field entfernen und das Dokument speichern.

Problem:
Meine Konstruktionen haben bis jetzt immer das Problem gehabt, dass ich Fehlermeldungen erhalten habe, wenn nur ein Attachment vorhanden ist oder wenn mehrere Attachments vorhanden sind (Objectvariable not set). Ich bekomme also nicht wirklich alle Fälle unter einem Hut (kein Attachment, 1 Attachment, n Attachments).

Quellcode (Ist nur ein Teilstück aus dem Ganzen, hoffe es reicht):

Code

If navigator.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Then
	Do
		counter = counter + 1
	Loop While navigator.FindNextElement(RTELEM_TYPE_FILEATTACHMENT)
End If
						
Dim delNavigator As NotesRichTextNavigator
Set delNavigator = body.CreateNavigator
If counter > 0 Then
	Set object = delNavigator.GetFirstElement(RTELEM_TYPE_FILEATTACHMENT)
	Set delObject = object
	counter = counter -1
	Dim i As Integer
	For i% = 1 To counter
		Set object = delNavigator.GetNextElement(RTELEM_TYPE_FILEATTACHMENT)
		delObject.Remove
		Set delObject = object
	Next
	If counter = 0 Then
		delObject.Remove
	End If
End If

Hinweis: navigator und delNavigator habe ich beide für "body" erstellt.

Mir ist schon bewusst, dass der gepostete Code nicht wirklich schön ist, aber das war unter anderem mein letzter Versuch der Sache Herr zu werden... ich scheitere irgendwie jedesmal (habe schon alle möglichen Schleifenkonstrukte versucht). Ich hoffe deswegen, dass mich jemand auf meinen Fehler (oder Stelle wo ich etwas übersehen habe) aufmerksam machen kann.

Schonmal vielen Dank im Voraus!

[koehlerbv]

Willkommen bei AtNotes!

Verwende für Dein Anliegen die Property NotesDocument.EmbeddedObjects. Die Hilfe liefert auch gleich ein Beispiel, wie man da auf Attachments zugreifen kann. Ansonsten hilft Dir auch die Suche hier bei AtNotes weiter.
Der NotesRichTextNavigator ist auf jeden Fall hier nicht die beste Wahl.

Bernhard

[SnueK]

Vielen Dank für die schnelle Antwort, ich habe das Beispiel sofort in der Hilfe gefunden und werde es mal ausprobieren! Hätte ich das mal vorher gefunden/gewusst... 

Viele Grüße,
Fabian


/edit:
Funktioniert super, danke nochmal!