Domino 9 und frühere Versionen > ND6: Entwicklung

Problem mit Dateianhang

(1/2) > >>

mariab:
Habe folgenden Code der mittels Aktionsschaltfläche in einer Maske ausgeführt wird. Damit wird die Größe und die Anzahl der Dokumentanhänge ermittelt und das Ergebnis in die entsprechenden Felder geschrieben. Das Script funktioniert auch, bloss muss das Dokument, falls es sich dabei um ein neues handelt, zuerst gespeichert werden, bevor die Schaltfläche funktioniert. Wie kann ich dieses Problem lösen. Möchte das Script auch im querysave event einfügen.

Danke Maria


--- Code: --- Dim s As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rt As NotesRichTextItem
Dim item As NotesItem

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rt = doc.GetFirstItem( "D_Doku" )


If rt Is Nothing Then
Msgbox "Kein Dateianhang vorhanden. Speichern Sie zuerst das Dokument"
Exit Sub
End If

Call ws.EditDocument( True ) 'Um das Dokument im Edit Mode zu öffnen

idx = 0
Forall o In rt.EmbeddedObjects
Redim Preserve strDateiInfo(idx)
strDateiInfo(idx) = o.Name & " (" & Format(o.Filesize, "#,##0")  & " Bytes)"
' Ermittel die Gesamtgröße der Anhänge
gr = gr +o.Filesize
idx = idx + 1
' Ermittelt die Anzahl von Dateien und schreibt Sie in das Feld
If idx = 1 Then
doc.D_ZuFas = idx & " Datei"
Else
doc.D_ZuFas = idx & " Dateien"
End If
End Forall

doc.D_Info = strDateiInfo
doc.D_GrGes = "mit " & Round(gr/1024,2) & " KBytes"


--- Ende Code ---

m3:

--- Zitat von: mariab am 28.08.07 - 12:44:07 ---Das Script funktioniert auch, bloss muss das Dokument, falls es sich dabei um ein neues handelt, zuerst gespeichert werden, bevor die Schaltfläche funktioniert. Wie kann ich dieses Problem lösen.
--- Ende Zitat ---
Gar nicht, IIRC. Klingt komisch, ist aber so. Siehe Forumssuche.

klaussal:
Stichwort: RT-Feld...

mariab:
Wenn ich ein Call doc.save(True, False) in das Script schreibe funktioniert es nicht. Es scheint als ob das Dokument nicht gespeichert wird.

koehlerbv:
Auch das ist hier bereits hundertmal durchgekaut. Suche nach "reopen".

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite