Newsgroup: it.comp.appl.notes-domino
Titolo: [LotusScript] - "Tra Attach, Import e EmbedObject" - [LotusScript Code Inside!]

OBIETTIVO:
Creare da LotusScript un documento con in allegato 
un files *.GIF o *.JPG. Il risultato DEVE essere
IDENTICO a quello che si ottiene creando il 
documento manualmente e inserendo l'attachment
con il comando dal menů File - Import.
In alternativa il risultato puň essere lo
stesso di quello che si ottiene inserendo
l'attachment con il comando dal menů File - Attach.
POSSIBILI SOLUZIONI:
Ho provato di tutto, se qualcuno sa dirmi dove
sbaglio o come fare gliene sarei infinitamente
grato!
---[LotusScript Code]-----------------------------------------------
Set wDoc = New NotesDocument( wDb )
Set wRtitem = New NotesRichTextItem( wDoc, "Immagine" )
wDoc.Form = "formImmagine"		
Set wObject = wRtitem.EmbedObject ( EMBED_ATTACHMENT, "", wFile )
wDoc.Descrizione = wFile
Call wDoc.Save( True, True )
----------------------------------------------[LotusScript Code]----
... questa soluzione crea correttamente il documento con 
l'attachment: il problema č che l'attachment viene poi
visualizzato con un'iconcina grigia e non con l'icona
corretta come quando viene importato da menů con 
File - Attach! Perché cosě???? :(
---[LotusScript Code]-----------------------------------------------
Set wDoc = New NotesDocument( wDb )
wDoc.Form = "formImmagine"		
wMacro = |@Command([EditGotoField];"Immagine")|
wResult = Evaluate ( wMacro, wDoc )
' Funzione da Script Library, sostituisce \ con \\ in wFile...
wFile = ReplaceString ( |\|, |\\|, "" + wFile )
wMacro = |@Command([FileImport]; "JPEG Image"; "| + wFile + |")|
wResult = Evaluate ( wMacro, wDoc )
wDoc.Descrizione = wFile
Call wDoc.Save( True, True )
----------------------------------------------[LotusScript Code]----
... questa soluzione crea i documenti ma senza attachments!
Mentre i singoli @Command funzionano se messi in una Action
a parte!
---[LotusScript Code]-----------------------------------------------
Set wUiDoc =  wWorkspace.ComposeDocument( "", "", "formImmagine" )
Call wUIDoc.Save ' Altrimenti wUiDoc.Document ritorna NULL!!
Set wDoc = wUiDoc.Document
wMacro = |@Command([EditGotoField];"Immagine")|
wResult = Evaluate ( wMacro, wDoc )
' Funzione da Script Library, sostituisce \ con \\ in wFile...
wFile = ReplaceString ( |\|, |\\|, "" + wFile )
wMacro = |@Command([FileImport]; "JPEG Image"; "| + wFile + |")|
wResult = Evaluate ( wMacro, wDoc )
wDoc.Descrizione = wFile
Call wDoc.Save( True, True )
----------------------------------------------[LotusScript Code]----
... ho pensato che ci fossero dei problemi dato che il documento
non era aperto in Edit Mode nel front-end. Ma non č stata 
un'intuizione fortunata visto che il risultato č sempre lo stesso:
negativo! Pare incredibile ma č cosě :(
 
Qualcuno sa poi dirmi la differenza che passa tra Attach e Import?
Se qualcuno vuole il listato completo, č interessato a saperne di
piů, vuole collaborare a questo mio progetto puň scrivermi via
e-mail!
Grazie.
________________________________________________
 Paolo Castagna,
 
http://CastaWorld.freeweb.org
 
http://www.agoranet.it
 Icq#:11604562

 ----------------------------------------------[LotusScript Code]----
Se ben ricordo il comando script "Evaluate" funziona correttamente solo 
per talune "Funzioni @" non per i "@command".
Direttamente da script non č possibile allegare un oggetto con le 
impostazioni grafiche corrette. Tale problema lo abbiamo risolto 
utilizzado 2 agenti:
Pulsante di lancio:
	@command([toolsrunmacro];"AgenteScript");
	@command([toolsrunmacro];"AgentePerAllegare");
"AgenteScript":In tale agente vi saranno tutte le funzioni Script che 
servono
"AgentePerAllegare":@Command([EditInsertFileAttachment])