LScript Problems - Some people are being omited from the To/Cc fields when they create a document

HCL Domino Domino Forum
1

Hi Everyone,

I have a very weird problem, I’ve got two users who when create a document using the script below in QuerySave it leaves them off the To or Cc fields, even though they are in the fields. If myself or anyone else enters a document and saves it, their names appear, so I don’t think it’s the code below? Do you think it’s their set-up (client) or do you think it could be a coding problem?

Any help really appreciated, this is something my manager needs me to sort asap!

Thanks in advance,

Hayley.

If (source.isNewDoc And (Trim(Cstr(curdoc.EmailStatus(0))) = “NULL” Or (Trim(Cstr(curdoc.EmailStatus(0))) = “” ))) Then

	newdoc.Form="Memo"

	newdoc.SendTo=curdoc.SendTo

	newdoc.Subject="New Bid Entered for Marine Acquisition " & BidNum

	Source.Refresh

	Call rtitem.AddNewLine(2)

	Call rtitem.AppendText(remarks)

	Call rtitem.AppendText("Please follow link to view bid ->>  ")

	Call rtitem.AppendDocLink(doc,db.Title)

	Call source.FieldSetText("NewDoc", "No")

	Call newdoc.Send(False)

	Exit Sub

Else

	If (source.isNewDoc And (Trim(Cstr(curdoc.EmailStatus(0))) <> "NULL"   Or (Trim(Cstr(curdoc.EmailStatus(0))) <> "" ))) Then

		Dim user As String

		Dim Num As Double

		Dim aString As String

		

		curdoc.QCToggle="Yes"

		user=session.UserName

		uidoc.Refresh

' Sends the QC Approval email to the relevant people

		

		newdoc.Form="Memo"

		newdoc.SendTo=curdoc.QCApprovalSendTo

		newdoc.CopyTo=curdoc.SendTo

		newdoc.Subject="New Bid Entered for Marine Acquisition, QC Approval is also required.  Bid No. " & BidNum

		uidoc.Refresh

		

		Call rtitem.AddNewLine(2)

		Call rtitem.AppendText("New Bid Entered for Marine Acquisition.  The Bid number referenced above is ready for QC")

		Call rtitem.AddNewLine(2)

		Call rtitem.AppendText("This will register the date and name of the approver.")

		Call rtitem.AddNewLine(4)

		Call rtitem.AppendText(remarks)

		Call rtitem.AddNewLine(2)

		Call rtitem.AppendText("Please follow link to view bid ->>  ")

		Call rtitem.AppendDocLink(doc,db.Title)

		Call source.FieldSetText("NewDoc", "No")

		Call newdoc.Send(False)

		Exit Sub

	End If

End If
2

Subject: LScript Problems - Some people are being omited from the To/Cc fields when they create a document

Hayley,

Shouldn’t it be newdoc.SendTo=curdoc.SendTo(0) (or if multi value, use the CopyItemToDocument method)??

Mike