Domino 9 und frühere Versionen > Entwicklung

Copying an Item

<< < (5/5)

Jörg:
Genau ....

Ich probiere es mal einzubinden...

Gruss Jörg

Jörg:
Super klappt, Thank.

So sieht der Code nun aus
--- Code: ---Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
Call doc.CopyAllItems(doc2)
doc2.titel = "Copy: " & doc.titel (0)
Call doc2.Save(True, False)
End Sub
--- Ende Code ---

Gruss Jörg

Navigation

[0] Themen-Index

[*] Vorherige Sete