Copying an Item

[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

Gruss Jörg