Attach files through the script

HCL Domino Domino Forum
1

Dear All, please let me know any equalent lotus script code for the below one.

@Do(@PostedCommand([EditGotoField]; “RTxt_Attach”);

@PostedCommand([EditInsertFileAttachment])

Regards,

Archana.

2

Subject: attach files through the script

There is more code below than you need- I have cut out a lot of extraneous parts of it- but the core is in the line"Call RichBody.AppendDocLink(Doc,“IT Request”)" towards the bottom- search Notes Designer help for 'appenddoclink and it should give you a briefer example.

Dim s As New NotesSession

Dim ws As New NotesUIWorkspace

Dim db As NotesDatabase

Set db = s.CurrentDatabase

Dim uidoc As NotesUIDocument

Set uidoc = ws.CurrentDocument

Dim doc As NotesDocument

Set doc = uidoc.Document

Dim EmailDoc As New NotesDocument(DB)

Dim item As notesitem

	Set  EmailDoc = db.CreateDocument

	EmailDoc.form = "Memo"

	EmailDoc.Sendto = SendToArray

	EmailDoc.CopyTo = doc.ReqName(0)

	Dim Body(4) As String

	Set richbody = New NotesRichTextItem(EmailDoc,"body")

	body1 = "I am approving the above mentioned IT Request by " & RequestName.Common & "."

	If doc.SupComments(0) <> "" Then

		

	End If

	Body3 = "Please prioritize and assign this task."

	

	

	Call Richbody.AppendText(Body1)

	Call Richbody.AddNewline(1)

	Call Richbody.AppendText(Body2)

	Call Richbody.AddNewline(1)

	Call RichBody.AppendDocLink(Doc,"IT Request")