Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Currdoc As NotesDocument
Set db = session.GetDatabase("SERVER";"DATABASE")
Set doc = db.CreateDocument
doc.Subject = CurrDoc.Subject
………
Call doc.Save( True, True )
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Currdoc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
doc.Subject = CurrDoc.Subject
………
Call doc.Save( True, True )