LOTUSSCRIPT/COM/OLE CLASSES
Dim doc As NotesDocument Dim item As NotesItem '...set value of doc... Set item = doc.GetFirstItem( "Body" ) item.IsEncrypted = True Call doc.Encrypt Call doc.Save( False, True )
See Also