Hallo,
ich würde nicht unbedingt mit New NotesItem arbeiten, da dann evtl. 2 Felder mit gleichem Namen im Dokument sind.
besser ist
call doc.ReplaceItemValue("$ContentIcon",5)
Mit diesen Script funktionert es bei mir (für beide möglichen Felder):
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
If Not (doc Is Nothing) Then
Call doc.ReplaceItemValue("$ContentIcon", 5)
Call doc.Save(True,True,True)
End If
Gruß
Andreas