尝试从Excel vba更改sendTo收件人,部分代码是:
Set MailDoc = Maildb.GetDocumentByUNID(strMemoUNID)
Set rtiSig = MailDoc.GetFirstItem("Body")
Set rtiNew = MailDoc.CreateRichTextItem("rtiTemp")
Call rtiNew.AppendText(strBody): rtiNew.AddNewLine (1)
strToArray(0) = "<a href="https://stackoverflow.com/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="e5848484a59d9d9dcb868a88" rel="noreferrer noopener nofollow">[email protected]</a>"
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 电子邮件表单“备忘录”中用于编辑收件人“SendTo”。
关于vba - Lotus Notes 在 GetDocumentByUNID 之后更改 sendTo,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52604281/