尝试从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/