Replace attachments by hotspots in richtext field

HCL Domino Domino Forum
1

I need to extract the attachments present in a document to a specified location and replace them with their links(Hotspots) using java . It would be very helpful if I could get some suggestions regarding the same. Suggestions using lotus script backend classes are also very helpful as i can convert it into java later.

Thanks in advance

Karthick

2

Subject: Replace attachments by hotspots in richtext field

Dim object As NotesEmbeddedObjectDim files As Variant

Dim anexos As NotesItem

Dim nome As String

Dim doc as NotesDocument

'Set the NotesDocument

If doc.HasItem(“$FILE”) Then

Set anexos = doc.GetFirstItem("$FILE")

Forall obj In anexos.Values

	nome = obj

	Set object = doc.GetAttachment(nome)

	filepath$ = "C:\Temp\" & nome

	Call object.ExtractFile(filepath$)

	Call object.Remove

	doc.Link = "FILE://" & filepath$		End Forall

End If

Enjoy!