尝试从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) = "[email protected]"
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电子邮件格式“备注”中使用此字段来编辑收件人“发送至”。

关于excel - Lotus Notes在GetDocumentByUNID之后更改sendTo,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/52604281/

10-10 18:47