shalini kumar 15.Sep.11 05:36 AM a Web browser Domino Designer6.5.6Windows XP
hi,
I am trying to embed file in rich text field from network drive in form.My programm is working fine when i am running the agent from server mannualy but when i m scheduling it then error msg is coming as "filecan not be found". please help in correcting it
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "atta" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "\\145.82.135.25\Report\\bb.txt")
doc.Form = "attach"
doc.Subject = "Here is attachment"
Call doc.Save( True, True )
End Sub