Das Notes Forum

Domino 9 und frühere Versionen => ND9: Entwicklung => Thema gestartet von: hoschie am 02.06.25 - 10:11:19

Titel: $File ohne Attachment?
Beitrag von: hoschie am 02.06.25 - 10:11:19

Guten Morgen zusammen,

ich exportiere Dokumente und möchte Anhänge passend zum Dokument mit speichern.
Um zu erkennen, welche Anhänge im Dokument sind, verwende ich

Code

objectsNames = Evaluate("@AttachmentNames", oDoc)

Allerdings habe ich nun folgendes Phänomen bei einigen Dokumenten, hier ein Beispiel:
Dokument hat keine Anhänge, ABER:
evaluate bringt mir 2 Attachment Namen:
STG12502 und  EXT11761
Während 2 $File items vorhanden sind, siehe Bilder im Anhang.

Macht das Sinn?
Sind das Fragmente?
Wie kann ich das abfangen, rein durch Errorhandling oder gibt es noch andere Möglichkeiten?

Danke vorab für eure Expertise!

Titel: Antw:$File ohne Attachment?
Beitrag von: eknori am 03.06.25 - 06:34:27

Deine "Attachments" sind keine Attachments. Du solltest immer mit NotesEmbeddedObject Type https://help.hcl-software.com/dom_designer/12.0.2/basic/H_TYPE_PROPERTY_OBJECT.html  (https://help.hcl-software.com/dom_designer/12.0.2/basic/H_TYPE_PROPERTY_OBJECT.html) prüfen, ob es sich wirklich um ein Attachment handelt.

Code

If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    Select Case o.Type
    Case EMBED_ATTACHMENT:
      ' yeah!
    Case EMBED_OBJECTLINK:
     ' go grazy
    Case EMBED_OBJECT:
      ' freak out
    End Select
  End Forall
End If

Titel: Antw:$File ohne Attachment?
Beitrag von: hoschie am 04.06.25 - 15:44:35

Danke eknori für das Beispiel!

ich hab es jetzt möglichst fehlertolerant so eingebaut:

Code

			Set oItem = oDoc.Getfirstitem("Body")
			If Not (oItem Is Nothing) Then
				If (oItem.Type = RICHTEXT) Then
					Set oRTItem = oItem
					If Not (oRTItem Is Nothing) Then
						If (oRTItem.Type = RICHTEXT) Then
							oObjects = oRTItem.EmbeddedObjects
							If IsArray(oObjects) Then
								ForAll oObject In oObjects
									Select Case oObject.Type
									Case EMBED_ATTACHMENT:
										REM hier kommt mein Code
									Case Else:
										REM können wir ignorieren
								End Select
								End ForAll						
							End If
						End If
					End If
				End If
			End If

Danke nochmal!
Matthias