新建文件

Dim ss As New NotesSession

Dim db As NotesDatabase

Dim doc As NotesDocument

Set db = ss.CurrentDatabase

Set doc = db.CreateDocument()

Call doc.ReplaceItemVale(" 欄位名稱 ", " 欄位值 ")

Call doc.Save(True, False)