[AP] New Doc, create Authors

方法一
Call NumberDoc.ReplaceItemValue("Author","*")

Set AuthorItem=NumberDoc.Getfirstitem("Author")
AuthorItem.Isauthors=True

方法二
Dim itmAuthor As New NotesItem(tmpdoc, "DocAuthors","*",Authors)

方法三
'//最保險的作法，把作者值塞進去後，強制轉譯為CN型態，再將作者欄位授予作者欄位權限
Dim item As NotesItem, tname As NotesName
Set item = SourceDoc.ReplaceItemValue("Authors","")
Set tname = New NotesName(SourceDoc.NowSigner(0))
Call item.AppendToTextList(tname.Canonical)

item.IsAuthors = True