Create additional archive settings in LotusScript

HCL Domino Domino Forum
1

I know where there are copies of mail-db’s on a persons PC. Now I want to send them a button in LotusScript that will add these databases as archives to their mail-db’s

I already have the following script :

Sub Initialize

Dim session As New NotesSession

Dim archProfile As NotesDocument

Dim tmpDoc As NotesDocument

Dim cdb As NotesDatabase

Dim item As NotesItem

Set cdb = session.CurrentDatabase

Dim archset1 As NotesDocument

Dim archset2 As NotesDocument

Set archProfile =cdb.GetProfileDocument("archive profile")

Set tmpdoc = New NotesDocument(cdb)

Call archProfile.CopyAllItems(tmpdoc)

Call archProfile.RemovePermanently(True)

Set archProfile =cdb.GetProfileDocument("archive profile")

Call tmpdoc.CopyAllItems(archProfile)

Call archProfile.AppendItemValue("ArchivePrivatePolicyList", "testanother")

Set archset1 =cdb.GetProfileDocument("test")

Set archset2 =cdb.GetProfileDocument("testanother")

Call archset1.CopyAllItems(archset2)

archset2.FullName = "testanother"

Forall v In archProfile.Items

	v.isSigned = 

End Forall

Call archset2.Save(False, False) ' ERROR OCCURS HERE

Call archProfile.Save(True, False)

End Sub

The moment I save the archive-profile itself, it tells me “Signature on document is invalid”