|
Een aantal Item Properties in de NotesItem class kunnen eenvoudig op een regel worden toegekend. Dit is de lange manier van code schrijven:
Dim session As New NotesSession Dim userName As NotesName Dim doc As NotesDocument Dim item As NotesItem Set userName = session.CreateName(session.UserName) '...set value of doc... Set item = doc.ReplaceItemValue("Author", userName.Canonical ) item.IsAuthors = True Call doc.Save( True, True )
Dit kan eenvoudiger door deze code:
Dim session As New NotesSession Dim userName As NotesName Dim doc As NotesDocument Set userName = session.CreateName(session.UserName) '...set value of doc... doc.replaceItemValue("Author", username.Canonical ).IsAuthors=True Call doc.Save( True, True )
En in dit geval natuurlijk nog korter door:
Dim session As New NotesSession Dim doc As NotesDocument '...set value of doc... doc.replaceItemValue("Author", session.CreateName(session.UserName).Canonical ).IsAuthors=True Call doc.Save( True, True )
Of in een andere voorbeeld:
Dim doc As NotesDocument '...set value of doc... doc.GetFirstItem( "Author" ).IsEncrypted = True Call doc.Save( True, True )
In de meeste gevallen in dit sneller als het Item maar een keer gebruikt wordt. Moet je meerdere dingen met het Item object doen, dan is het juist weer raadzaam om het eerste voorbeeld te gebruiken omdat het Item dan in het geheugen blijft en niet elke keer opgezocht hoeft te worden, maar dit geldt voor alle objecten natuurlijk. 
|