Script code for "Include message copy" in notify agent

HCL Domino Domino Forum
1

I have third party Design for team mailbox. There is very usefull notification agent which sends just doc link. I would like to modify it to send copy of the original message. Here is the existing code:

'Message body.

	Dim body As NotesRichTextItem

	Set body = New NotesRichTextItem( email, "Body" )

	

	'Message body - FROM.

	Call body.AppendText( "From: " + GetFromName(note) )

	Call body.AddNewline( 1 )

	

	'Message body - DATE.

	Call body.AppendText( "Date: " + GetFromDate(note) )

	Call body.AddNewline( 3 )

	

	'Message body - DOCLINKS.

	Call body.AppendDocLink( note, "" )

	Call body.AddTab( 1 )

	Call body.AppendDocLink( db, db.Title )

	

	'Send the Bookmark message.

	Call email.Send( False )

	Call RecordLogAction( Nothing, "Reminder sent." )
2

Subject: Script code for “Include message copy” in notify agent

add

note.RendertoRTItem(Body)

to the code. I think you need to have the form in the database (in this case memo I guess

3

Subject: RE: Script code for “Include message copy” in notify agent

Thanx a lot. Its working :slight_smile: