Lotus Notes меняет sendTo после GetDocumentByUNID - PullRequest
0 голосов
/ 02 октября 2018

пытается изменить получателей 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?

1 Ответ

0 голосов
/ 02 октября 2018

Установите поле " EnterSendTo " в дополнение к "SendTo".

Это поле используется в почтовой форме Notes для заметок "Memo" для редактирования получателей "SendTo".

...