hat feld ein attachment

[klaussal]

hi zusammen,

wie finde per formel heraus, ob in einem rt-feld ein attachment drin ist ?

ps:
ich seh wohl vor lauter bäumen den wald nicht  

[eknori]

da gabs mal was mit @attachmentNames;

[eknori]

oder einfach nur mit @Attachments; gibt die ANzahl der Attachments im Doc zurück

[klaussal]

.. hi ulrich,

ja das gab's, passt aber nicht.

ich möchte wissen, ob z.bsp. im feld XYZ ein anhang enthalten ist.
das es noch mehr felder gibt, wo ein anhang drinne sein kann, muss ich leider genau dieses feld prüfen.

[eknori]

hmmpf, wer lesen kann ist klar im Vorteil; merke ich jetzt auch.

mit Formel wirst du da nicht weiterkommen, weil alle immer nur das gesamte doc betrachten. Hier ist mal wieder script angesagt

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
' mach was du willst
End If
End Forall
End If

[klaussal]

... hi ulrich,

geht auch nicht, in einer ANSICHT sollen nur docs gezeigt werden, die wo attachment haben in einem feld.
 meine versuche, abzuprüfen, ob das rt-feld leer ist, liefen auch ins leer

RT-FELD = ""  <--- geht das so ?

[eknori]

uuiiii, das wird wohl nix. Oder warte mal.... Wenn das feld nur ein Attachment enthält und keinen weiteren text, könntest du mal versuchen

@if(@length(RT_ITEM) > 2000;NummerDesBildchens;"")

wobei dann in der Spalte Werte als Symbol anzeigen aktiviert sein muß. Mite der 2000 musst du dann ein bisschen rumspielen.

[klaussal]

... aber @length liefert doch nur die länge einer
ZEICHENFOLGE zurück, oder  

[eknori]

yoo, habe ich auch schon gemerkt; hmm, das wird extrem schwierig, glaube ich

[eknori]

was mir dann noch einfällt:

kannst du nicht beim Attachen schon mittels script prüfen, ob ein bestimmtes Feld ein Attachment hat und dann ein Flag in einem anderen versteckten feld setzen ?? dann brauchst du nur das feld abzufragen


z.B.

Dim ws As New notesuiworkspace
 Dim uidoc As notesuidocument
 Dim doc As NotesDocument
 Dim rtitem As Variant
 Set uidoc = ws.currentdocument
 Call uidoc.save
 Set doc = uidoc.Document
 Set rtitem = doc.GetFirstItem( "Attachment" )
 If ( rtitem.Type = RICHTEXT ) Then

 If Isarray(rtitem.EmbeddedObjects)Then
 Forall o In rtitem.EmbeddedObjects
 If ( o.Type = EMBED_ATTACHMENT ) Then
 Call doc.replaceitemvalue("AttachFlag","Yes")
 Call doc.Save( True, False)
 End If
 End Forall
 Else
 Call doc.Save( True, False)
 End If
 End If
 'Call Source.Refresh
 Call uidoc.Save

[klaussal]

.. tja, da habe ich wohl mal wieder die grenzen von LoNo gesehen  

bleibt nur, im querysave abfragen, ob attachment vorhanden, wenn ja, dann schalter auf "ja" (erinnert mich an rpg-zeiten).

@eknori,
DANKE ....

[eknori]

na, dann werde ich doch gleich morgen mal einen Request an IBM/Lotus schicken, die @Attachments und @AttachmentNames um ein optionales Parameter "Feld" zu erweitern  

[ata]

... ich würde mit Abstract prüfen, ob es Text gibt, das RichText-Feld hat übrigens doch noch ne Eigenschaft wie size - wenn die kleiner 200 ist, dann scheint das Feld ohne jeglichen Ballast zu sein...

ata

[eknori]

aber der klaus sucht doch was für ne Ansichtenspalte

ich habe das auch mal mit @DocSize realisiert, um festzustellen, ob ein doc ein Bild enthält und dann ein Icon in einer Spalte anzuzeigen

[ata]

... oh, das habe ich wohl nicht ganz korrekt gelesen... diese Hitze...

ata

[klaussal]

.... und @DOCSIZE gibt's unter R5 nicht  

[eknori]

Ich habe heute morgen einen entsprechenden "enhancement request" gestellt und gerade hat ein Mitarbeiter aus Dublin angerufen. der Request ist angenommen und wird dann auch irgendwann ( "paar Monate" ) in R6 umgesetzt werden.

Vorgangsnummer dazu ist die NALN5Q5DCL

[klaussal]

... wen kennst du eigentlich nicht ?

[eknori]

den Papst, die Queen und den Osterhasen  

[klaussal]

... hier nochmal die lösung:

Code

Sub Postsave(Source As Notesuidocument)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase   
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim docCheck As NotesDocument
   Dim rtitem As Variant
   Dim sizeRT As Integer
   
   Set db = session.currentDatabase
   Set uidoc = ws.currentDocument
   Set doc = uidoc.document   
   Set rtitem = doc.getfirstItem("rt")
   sizeRT = rtitem.valueLength
   If sizeRT > 100 Then
      doc.flag = "ja"
   Else
      doc.flag = "nein"
   End If
   
   Call doc.save(False, False)
End Sub