Hi i am a newbie to this forum,plz help me in resolving this…
i added attachments from notes and also move that attcahments to a field using the following script
…
Dim note As NotesDocument
Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
Dim object As NotesEmbeddedObject
Dim objectss As NotesEmbeddedObject
Dim RTItem As NotesRichTextItem
Dim Path As String
Call note.Save(True,False,True)
For i=1 To 2
Path = Environ$("TEMP")
Call note.RemoveItem("prof"&i)
Set RTItem = note.CreateRichTextItem("prof"&i)
Set item = note.GetFirstItem("prof_"&i)
If note.HasEmbedded Then
Forall o In item.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( Path & "\" & o.Source )
Msgbox o.Name
Call RTItem.EmbedObject(EMBED_ATTACHMENT, "", Path & "\" & o.Name)
Kill Path & "\" & o.Name
Call o.Remove
End If
End Forall
End If
Call note.Save(True,False,True)
Next
.....................................................................
Its working fine in notes i am able to get the attachment link and open it.
But when i tried to access it through web i am getting only the attachment name not its link and so not able to open…why its like so…plz help…