Domino 9 und frühere Versionen > ND6: Entwicklung

Anhang im Lesemodus per Button einfügen

(1/3) > >>

awagner:
Hallo zusammen,

ich weiß, dass das Problem hier schon öfter diskutiert wurde, aber ich finde leider nichts passendes für mein Problem:

Öffnet ein User ein Dokument im Lesemodus, so soll er die Möglichkeit haben, über einen Button einen Anhang einfügen zu können. Der Benutzer hat aber keine Berechtigung dazu, das Dokument zu bearbeiten.

Kann mir jemand weiter helfen? Das wäre klasse ;-)

Gruß Andi

m3:
Wenn in der ACL nur Lesrechte, dann gehts nicht. Ansonsten musst Du mit Reader/Autor Feldern bzw. geschützten Abschnitten arbeiten.

awagner:
in der ACL haben die User Author bzw. Editorrechte

m3:
Na dann passts eh.

Wie wäre es mit einer konkreten Frage?

awagner:
sry...

also: mein problem ist, dass der user das dokument nicht bearbeiten kann, er aber einen anhang einfügen können soll!

ich hab mittlerweilen nach langem probieren auch was gefunden.

hier der code:


--- Code: ---Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim anhang As NotesRichTextItem
Dim datei As Variant
Dim strUNID As String
Dim db As NotesDatabase
Dim pDoc As NotesDocument
Dim s As New NotesSession

Set db = s.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set Anhang = New NotesRichTextItem(doc, "gf_Anhang")

datei = workspace.OpenFileDialog(False, "Datei auswaehlen")


If Isempty(datei) Then Exit Sub   
If anhang.type = 1 Then
Call anhang.EmbedObject( EMBED_Attachment, "", datei(0))
Call doc.Save( True, False )
strUNID = uidoc.Document.iDocID( 0 )

Call uidoc.Close
Set pDoc = db.GetDocumentByUNID( strUNID )
workspace.EditDocument False, pDoc
End If
End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite