Lotus Notes 在 GetDocumentByUNID 之后更改 sendTo

Lotus Notes change sendTo after GetDocumentByUNID

正在尝试更改 sendTo 收件人表单 Excel vba,部分代码为:

Set MailDoc = Maildb.GetDocumentByUNID(strMemoUNID)
Set rtiSig = MailDoc.GetFirstItem("Body")
Set rtiNew = MailDoc.CreateRichTextItem("rtiTemp")
Call rtiNew.AppendText(strBody): rtiNew.AddNewLine (1)
strToArray(0) = "aaa@xxx.com"
MailDoc.SendTo = strToArray
MailDoc.CopyTo = strCCArray
MailDoc.BlindCopyTo = strBccArray
MailDoc.subject = strSubject
Call rtiNew.AppendRTItem(rtiSig)
Call MailDoc.RemoveItem("Body")
Set rtitem = MailDoc.CreateRichTextItem("Body")
Call rtitem.AppendRTItem(rtiNew)
MailDoc.Save False, False
Set uiMemo = ws.EditDocument(True, MailDoc)

但只改变 MailDoc.subject

为什么不更改 MailDoc.SendTo

除了 "SendTo" 之外,还设置字段“EnterSendTo”。

此字段用于 Notes 电子邮件表单 "Memo" 以编辑收件人 "SendTo"。