Domino 9 und frühere Versionen > Entwicklung

@Attachmentlengths im Queryclose Event

<< < (2/3) > >>

harkpabst_meliantrop:
Ich sach mal - ebenfalls aus dem schon wieder ziemlich holen Bauch heraus:

PostSave-Event

Da ist das RT-Feld schon im Dokument, und obwohl das Dok ja eigentlich schon gespeichert ist, kann man genialerweise noch Änderungen vornehmen. Eines der viel zu wenig beachteten neuen R5-Features.

Driri:
Hi,

ich würde das wirklich mit Script lösen. Ich hab gerade mal nen bißchen rumprobiert :

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesItem
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim filesize As Long
   
Set uidoc = ws.CurrentDocument
Set doc = uidoc.document
Set rtitem = doc.GetFirstItem("Body")
Set item = doc.GetFirstItem("Body")
   
filesize = 0
   
If doc.HasEmbedded Then
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Set object = rtitem.GetEmbeddedObject( o.Source )
filesize = filesize + object.FileSize
End If
End Forall
End If
End If
   
If (filesize > 1048576) Then
Messagebox "FEHLER"
      
Forall x In rtitem.EmbeddedObjects
If Not( x Is Nothing ) Then
If ( x.Type = EMBED_ATTACHMENT ) Then
Call x.Remove
End If
End If
End Forall
      
Call doc.save(True, False)
      
End If      
End If


Edit : Das sollte so funktionieren, erste Version war buggy.

adminnaddel:
 ::)
Ein Versuch der Erklärung!
Es liegt nicht an der Auswahl des Events, ich denke mal laut, es liegt an der Eigentschaft des RichTextFeldes. Hier ist es nicht mit @Commands möglich, den enthaltenen Wert "x" im RichTextField vor dem saven zu greifen.

Grüße
Andreas

adminnaddel:
@Diri,

danke für das Script, doch wo bringe ich es rein? Ins event?

Driri:
Jupp, ich habs im Queryclose getestet.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete