Search code examples
vbaexcellotus-noteslotus-domino

Lotus Notes change sendTo after GetDocumentByUNID

trying to change sendTo recipients form Excel vba, a part of code is:

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)

But only changing MailDoc.subject

Why not changing MailDoc.SendTo ?

Solution

  • Set field "EnterSendTo" in addition to "SendTo".

    This field is used in Notes email form "Memo" to edit the recipients "SendTo".