Can I use LotusScript to determine if a change has been made to an attachment in a Rich Text Field?

HCL Domino Domino Forum
1

Good day, I have this problem. There are 21 rich text attachment fields and 21 computed date fields. So that I can capture the dates of the each individual fields attachments (whether new or modified attachment). Script is written at QuerySave.

Url1 - Url21 are rich text for attachments

D1 - D21 are computed date fields

But it computes all the dates in all the D1 - D21 even though only 1 attachment is attached. Please help. Any scripts is appreciated. Thanks alot =)

Sub Querysave(Source As Notesuidocument, Continue As Variant)

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url1” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D1”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url2” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D2”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url3” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D3”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url4” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D4”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url5” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D5”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url6” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D6”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url7” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D7”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url8c” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D8c”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url8d” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D8d”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url8e” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D8e”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url8f” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D8f”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url8g” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D8g”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url9” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D9”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url10” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D10”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url11” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D11”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url12” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D12”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url14” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D14”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url15” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D15”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url16” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D16”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url17” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D17”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url18” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D18”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url19” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D19”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url20” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D20”, Cstr(vlastmodifieddate))

Set doc=source.Document

Set rtitem = doc.GetFirstItem( “Url21” )

vlastmodifieddate=rtitem.lastmodified

Call source.fieldsettext(“D21”, Cstr(vlastmodifieddate))

End Sub

2

Subject: Can I use LotusScript to determine if a change has been made to an attachment in a Rich Text Field?

I think you are going to have to offload these attachments into separate docs. Not a bad idea anyway, as under the current arrangement each time any of them changes all of them have to be replicated across the network.

3

Subject: Can I use LotusScript to determine if a change has been made to an attachment in a Rich Text Field?

before rereiving the last modified date from each richtext field you need to check if an attachment is there in the field using “rtitem.EmbeddedObjects”.’

You can have a field with formula “@attachmentmodifiedtimes”.This would display an array of date and time when the attachments present in the document has been modified.You can use the date values to check if an attachment has been modified.