First of all, thank you to Tino for posting this:
http://www-10.lotus.com/ldd/quickplace.nsf/55c38d716d632d9b8525689b005ba1c0/aa70eea1084385e185256d5100363b53?OpenDocument
It creates the directory structure nicely, however it is *not* extracting anything other than the first attachment of any QP doc. I would think that this loop would work:
Forall item In docInTOC.Items
If item.type = Attachment Then
filename = item.values(0)
Call logAgent.LogAction(filename)
Set FileAttachment = docInTOC.GetAttachment(filename)
Call FileAttachment.ExtractFile(DESTINATION + pathDb + "\" + FileAttachment.source)
End If
End Forall
But it is not :( Any ideas how to get mutliple attachments out of a single QP doc? I can do it in Domino by using:
Forall x In eval
If Not(x="") Then
fileloc = "c:\"+x
Set object = doc.GetAttachment( x )
Call object.ExtractFile( "c:\dirname"+x )
End If
End Forall
Return to top
the saga of extracting multiple att... (Sally Albright 12.Jul.06)
. . 
Print this page
