Inserer du texte

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

Re: Inserer du texte

Messagepar tef » 15 Avr 2003 à 20:22

Alors je te remercie vraiment c'est super cool. Mais le script à un piti pb. C'est qu'il m'écrase à chaque fois le texte que j'ai en dans mon champ Commentaire, alors que je veux qu'il se mette à la fin du texte déjà mis.Je sais je suis chiant dsl. Mais sur le principe, j'ai très bien compris ton exemple et je t'en remercie vraiment.Je cherche depuis une p'tite demi heure comment faire ça et j'ai pleins d'idées toutes plus farfelues les unes que les autres LOL.[%sig%]
tef
 

Re: Inserer du texte

Messagepar philippeG » 16 Avr 2003 à 08:14

Si tu veux ajouter du texte sans écraser le contenu du champil fait que tu utilise FieldAppendText à la place de FieldSetTextconcrétement tu remplace la ligneCall Source.FieldSetText("NomFichier", Texte$) parCall Source.FieldAppendText("NomFichier", Texte$)
philippeG
 

Re: Inserer du texte

Messagepar tef » 16 Avr 2003 à 09:37

T'es un chef !!!!!!! Mouuuuaaaaarff ! merci bcp !!Ca marche super bien.je me permet une dernière question en lotus script, comment tu fais pour mettre en gras et en couleur ce texte justement ? T'as une formule LS pour ça ou ça n'existe pas ?Merci encore philippeG !!![%sig%]
tef
 

Re: Inserer du texte

Messagepar philippeG » 16 Avr 2003 à 10:19

Là ça se complique un peu.Il faut que tu passes ton champ en texte riche puis que tu utilises la classe NotesRichTextStyle.Voila un extrait d'un script qui permet d'envoyer des messages de convocation à des stages en modifiant la couleur et la font du champ body dans le document docmsg. Attention cette classe n'est dispo que depuis la version 4.6Je n'ai Dim ritem As New NotesRichTextItem(docmsg,"Body") Dim RichStyle As NotesRichTextStyle Set RichStyle = session.CreateRichTextStyle RichStyle.FontSize = 14 RichStyle.Bold = True RichStyle.NotesColor = COLOR_BLUE Call ritem.AppendStyle(RichStyle) Call ritem.AppendText(" CONVOCATION DE STAGE") Call ritem.addNewline(2) RichStyle.Bold = True RichStyle.FontSize = 12 RichStyle.NotesColor = COLOR_DARK_CYAN Call ritem.AppendStyle(RichStyle) Call ritem.AppendText("Intitule du stage : ") RichStyle.Bold = False RichStyle.FontSize = 10 RichStyle.NotesColor = COLOR_BLACK Call ritem.AppendStyle(RichStyle) Call ritem.AppendText(NomStage$) Call ritem.addNewline(1)
philippeG
 

Re: Inserer du texte

Messagepar tef » 16 Avr 2003 à 10:37

Oula oui effectivement ça se complique. Je pense que je vais en rester là mais va falloir que je trouve des tutos sur le net pour lotus script. J'en ai pas encore trouvé. Si tu as de bonnes adresses je suis preneur.En tout cas, je te remercie vraiment philippeG d'avoir pris du temps pour m'expliquer un peu tout ça. :)[%sig%]
tef
 

Re: Inserer du texte

Messagepar philippeG » 16 Avr 2003 à 14:57

Je ne connais pas de site de formation script sur le net.Si tu ne peux pas aller en stage (c'est le mieux pour dégrossir) tu peux essayer de comprendre un script en lançant le debugger (fichier/outils/debugger lotus script) avec cela tu peux suivre pas à pas le déroulement d'un script. Sinon je trouve que la doc de notes n'est pas mal
philippeG
 

Re: Inserer du texte

Messagepar tef » 16 Avr 2003 à 18:46

En fait, c'est pas que je veux pas aller en formation, moi je veux bien mais je viens tout juste de trouver un job donc ça fout mal de demander des formation de suites. Mais l'aide est pas mal c'est vrai. En anglais mais pas mal :PPas con pour le débugger. Je testeraisMerci encore !!! :)[%sig%]
tef
 

Re: Inserer du texte

Messagepar Mélissa Coulombe » 22 Avr 2003 à 17:33

Bonjour, j'aimerais savoir comment insérer un logo en .jpg dans un email généré en lotus notes et créé par programmation avec access 97.Merci d'avance!
Mélissa Coulombe
 

Précédent

Retour vers Développement

cron