Page 1 sur 1

Ajout automatique de raccourci dans richtextbox

MessagePublié: 28 Juil 2003 à 13:18
par bug00
Je voudré créer une action qui cré un raccourci d'un fichier de type *.dft et qui l'insére dans un texte riche...Avec EMBED_ATTACHMENT cela passe mais le raccourci est ajouté à la fin de mon documentAvec EMBED_OBJECT et EMBED_OBJECTLINK il me met une erreur "could not embed object" :'(.Le curseur clignote bien dans le riche texte box que j'ai renseigné.... Quelqu'un a une idée ?Voivci mon codeDim nuiwrkspc As New NotesUIWorkspace Dim champ As NotesUIDocument Dim doc As NotesDocument Dim rtitem As NotesRichTextItem Dim object As NotesEmbeddedObject Set champ = nuiwrkspc.CurrentDocument Set doc = champ.Document Set rtitem = doc.GetFirstItem( "Body_usinage" ) numprof = champ.FieldGetText ("Subject") numprof = Left (numprof, 6) catprof = champ.FieldGetText ("Categories") chemin = "c:\temp\" + Left (numprof, 2) + " " + catprof + "\"+ _ numprof + "\P" + numprof + ".dft" Call champ.GotoField( "Body_usinage" ) Set object = rtitem.EmbedObject ( EMBED_OBJECT , "", chemin)

Re: Ajout automatique de raccourci dans richtextbox

MessagePublié: 28 Juil 2003 à 14:32
par s001001
c plus du dev ça ;)

Re: Ajout automatique de raccourci dans richtextbox

MessagePublié: 29 Juil 2003 à 07:26
par bug00
Oui je sais, je me suis trompé de forum, saleté de favorix ;-)