How to Convert Notes V2/Web-Style Attachment to Attachment Within a Rich Text Field via LotusScript

HCL Domino Domino Forum
1

IMB has put this topic:How to Convert Notes V2/Web-Style Attachment to Attachment Within a Rich Text Field via LotusScript at:

http://www-1.ibm.com/support/docview.wss?rs=0&uid=swg21104835

I took the following code and am tring to run it in vb as follows:

I have extracted all UniversalID of notes NSF file into an access database and then i get the DOC using following code:

Dim domSession As NotesSession

Dim domDatabase As NotesDatabase

Dim domShowDocument As NotesDocument

Dim i As Variant

Dim emb As NotesEmbeddedObject

Set domSession = New NotesSession

Call domSession.Initialize

Set domDatabase = domSession.GetDatabase"",c:\Test.nsf)

Set domShowDocument = domDatabase.GetDocumentByUNID(mrs![UniversalID])

For Each i In domShowDocument .Items

If i.Type = ATTACHMENT Then

  Set emb = 

 domShowDocument .GetAttachment(i.Values(0))

“Here I get an erroe as (Property let procedure not defined and property get procedure did not return an object)”

   Set rtitem =

 domShowDocument .GetFirstItem("RTF")

 Call emb.ExtractFile("C:\" & emb.Name)

 Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", "C:\" & emb.Name, emb.Name)

 Kill "C:\" & emb.Name

 Call emb.Remove

 Call doc.Save(1, 1)

End If

Next

IBM sujjest to use it as agent … i donno how?

Can any one please help?

Thank you