Screenshots in Body of Memo

Is there any way to programmatically detect (via LotusScript or Formula) when there is an ordinary screenshot that has been pasted within the Body of a memo?

I am currently already using the “HasEmbedded” document property for detecting valid attachments. Thanks ahead of time.

Subject: Screenshots in Body of Memo

Function hasGraphic( ) As Boolean’ finds out whether the current document (open on screen) contains a graphic in a rich text field.

Dim session As New NotesSession

Dim wksp As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim rti As NotesRichTextItem

Set uidoc = wksp.CurrentDocument

If uidoc.EditMode Then Call uidoc.Refresh(True)

Set doc = uidoc.Document

Dim dxlx As NotesDXLExporter

Set dxlx = session.CreateDXLExporter( )

Dim strOut As String

strOut = dxlx.Export(doc)

hasGraphic = Instr(strOut, “<picture”) > 0

End Function

Subject: Screenshots in Body of Memo

It is possible to export to DXL and check that for the appropriate tags. A bit of work, but it would detect anything you liked.

Subject: Screenshots in Body of Memo

Thank you both, Ben & Betsy, so much for your help. I greatly appreciate it.