Hi, I am trying to create an agent in a database that creates a new document in the local address book using its local form (Person). Debug shows that all is fine except that it does not save (the flag value is -1). What am I missing? Here is my code: Sub Initialize Dim s As NotesSession Dim sourcedb As NotesDatabase Dim destdb As NotesDatabase Dim sourcedoc As NotesDocument Dim destdoc As NotesDocument Dim documents As NotesDocumentCollection Dim success As Variant Set s = New NotesSession Set sourcedb = s.CurrentDatabase Set destdb = New NotesDatabase("", "names.nsf") Set documents = sourcedb.UnprocessedDocuments For n = 1 To documents.Count Set sourcedoc = documents.GetNthDocument(n) Set destdoc = destdb.CreateDocument destdoc.Form = "Person" ' Copy each field we need from the old form, to the new form. destdoc.Field1= sourcedoc.Field1 destdoc.Field2 = sourcedoc.Field2 success = destdoc.Save(True,True) Next n End Sub