On webquerysave, i want to extrract the attachments uploaded via file upload control. Purpose is, like all other posts here, I want to re-embed the attachment to a richtext field.
However, i always get a ‘user defined error’ on the line that extracts the attachment.
I only get this kind of problem with attachments from the web.
With attachments from a notes client, this piece of code works perfectly.
Any ideas?
Dim AttNameArr
AttNameArr = Evaluate("@AttachmentNames",currDoc)
Dim AttCtr As Integer
For AttCtr = Lbound(AttNameArr) To Ubound(AttNameArr)
Dim obj As NotesEmbeddedObject
Set obj = currDoc.GetAttachment(AttNameArr(AttCtr))
obj.ExtractFile obj.Source
Next