Equivalent lotusscript code

HCL Domino Domino Forum
1

MEMO_SEND:=“1024”;FIELD ActionInProgress:=MEMO_SEND;

@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(“”))

This is the code in SEND (Shared Action ) of mail template.

Can anyone give the equivalent lotusscript code for the same.

Help in regards is highly appreciated.

2

Subject: Equivalent lotusscript code

Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument

If ws.CurrentDocument.EditMode Then

	Dim TxtNameSendto As Variant

	Dim TxtNameCopyto As Variant

	Dim TxtNameBlindcopyto As Variant

	TxtNameSendto=Trim(uidoc.fieldgettext("EnterSendTo"))

	TxtNameCopyto=Trim(uidoc.fieldgettext("EnterCopyTo"))

	TxtNameBlindcopyto=Trim(uidoc.fieldgettext("EnterBlindCopyTo"))

	'If No Recipients then prompt the sender.. to enter the names.

	If TxtNameSendto="" And TxtNameCopyto="" And TxtNameBlindcopyto=""Then

		Messagebox "No names found to send mail to.",0+64,"Lotus Notes"

		End

	End If

Call ws.CurrentDocument.Document.ReplaceItemValue("ActionInProgress","1024")

ws.CurrentDocument.Save

	ws.CurrentDocument.Close