Dim s as New NotesSession
Dim db as NotesDatabase
Dim doc as NotesDocument
Set db = s.CurrentDatabase 'Aktuelle Datenbank
Set doc = db.CreateDocument
doc.Form = Dein Maskenamedoc.Feldname = WertCall doc.ReplaceItemValue("Feldname",Wert)Call doc.Save(True,False)