Page 2 sur 2

Re: Inserer du texte

MessagePublié: 15 Avr 2003 à 20:22
par tef
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%]

Re: Inserer du texte

MessagePublié: 16 Avr 2003 à 08:14
par philippeG
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$)

Re: Inserer du texte

MessagePublié: 16 Avr 2003 à 09:37
par tef
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%]

Re: Inserer du texte

MessagePublié: 16 Avr 2003 à 10:19
par philippeG
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)

Re: Inserer du texte

MessagePublié: 16 Avr 2003 à 10:37
par tef
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%]

Re: Inserer du texte

MessagePublié: 16 Avr 2003 à 14:57
par philippeG
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

Re: Inserer du texte

MessagePublié: 16 Avr 2003 à 18:46
par tef
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%]

Re: Inserer du texte

MessagePublié: 22 Avr 2003 à 17:33
par Mélissa Coulombe
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!