2014年8月12日 星期二

[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

沒有留言:

張貼留言