Extracting Attachments(doc,pdf,mime) from a quickplace db to a Notes DB

HCL Domino Domino Forum
1

HiI want to extracting Attachments(doc,pdf,mime) from a quickplace db to a Notes DB.

So is there any easy tips or any thing that I should be aware of. Does any one have any code or tools to do this?

Thanks in advance.

2

Subject: Extracting Attachments(doc,pdf,mime) from a quickplace db to a Notes DB

Hi, Just try this code.The below code extracts a file from Notes database to the local disk.U can check with the same code as per your requirement.

Dim doc As NotesDocument

Dim rtitem As Variant

Dim fileCount As Integer

Const MAX = 100000

fileCount = 0

'…set value of doc…

Set rtitem = doc.GetFirstItem( “Body” )

If ( rtitem.Type = RICHTEXT ) Then

Forall o In rtitem.EmbeddedObjects

If ( o.Type = EMBED_ATTACHMENT ) _

And ( o.FileSize > MAX ) Then

  fileCount = fileCount + 1

  Call o.ExtractFile _

  ( "c:\reports\newfile" & Cstr(fileCount) )

  Call o.Remove

  Call doc.Save( True, True )

End If

End Forall

End If

3

Subject: RE: Extracting Attachments(doc,pdf,mime) from a quickplace db to a Notes DB

Thanks for your response.But it seems do not use any fields for files.

I’ve created a new form to open those docs which has only one field(title name). If I open a doc with that form it shows the title and a line and after that line, the attached files.

Note: these docs are quickplace docs.

Anyways I like to retrieve all these docs and convert to a suitable lotus notes docs with two fields , one for title and another one for holding these attached files and all in there respective folders.

Thanks in advance.