DominoArea.org [Archive]

Bonjour,

j'ai ajouté un footer automatique dans le champs BODY des mes emails par une simple formule allant rechercher les informations personnelles des employés dans le carnet d'adresse.

Cela fonctionne très bien mais je n'arrive par à utiliser une police différente pour le footer.

Quelqu'un aurait-il une piste ?

J'ai refait des recherches sur ce forum mais je n'ai rien trouvé

Merci

JeanFrancois

Bonjour,
bah je regarderais du côté des propriétés de la classe notesrichtextstyle.

salut,

merci de ta réponse.

J'avais trouvé effectivement des infos sur cette classe mais je n'arrivais pas à modifier les police pour le texte que j'ajoutais dans le champs BODY

(Je suis un débutant Lotus )

Merci

JF

salut

tu ne peut pas modifier le texte, il faut le remplacer. la classe indiqué fonctionne pour le texte inséré en LS

sinon pourquoi ne pas faire une signature HTML ?

Merci de ta réponse Michael.

En faite, la première partie du footer qui est propre à l'utilisateur est simplement ajoutée via une formule (avec des DBLOOKUP).

La seconde partie du footer qui est commune à toute la société est en HTML.

J'aurais bien voulu faire tout le footer en HTML mais je ne savais pas comment aller rechercher les informations dans le carnet d'adresses et les reformater en HTML.

Merci

JeanFrancois

Voilà, j'ai un peu cherché.

J'arrive bien à insérer un footer HTML en passant par du LS ou en créant une policy mais je ne vois pas comment aller rechercher des infos dans le NAB et les introduire dans le HTML.

Quelqu'un a une idée ?

Merci

tu veux faire de la signature dynamique ?

elles changent si souvant les signature ?

oui, je voudrais faire une signature dynamique en HTML qui irait rechercher des infos sur l'utilisateur dans le carnet d'adresse global.

Je ne sais pas si cela est possible.

j'ai déjà fait de la signature HTML/texte paramétrable automatique pour les utilisateurs

mais ils passaient par une base annexe qui générait la signature et l'insérait dans les parametre de la mailbox.

quand l'utilisateur avait une donnée qui change (pas si souvant que ça) il n'avait qua regénérer ça signature

et puis ton idée c'est au mini un acces names par mail ça peut faire bcp...

et je ne suis pas certain que du full dynamique soit réalisable

Merci de ta réponse.

La solution HTML est propre mais je vais essayer de ne modifier que les templates des mailbox.

Je vais essayer de gérer cela en LS.

Dans l'évènement "Postopen" du formulaire "message" de la mailbox, je pensais introduire automatiquement du texte formaté directement dans le champs "Body" avec un code de ce type :


Sub Postopen(Source As Notesuidocument)
....
If source.isnewdoc Then
Dim session As New NotesSession
Set doc = source.document

Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "tempo")
Call richText.AppendStyle(richStyle)
richStyle.Bold = True
richStyle.FontSize = 14
Call richText.AppendText("NomUtilisateur")
richStyle.Bold = False
Call richText.AppendText("MailUtilisateur")

Comment introduire ce rich text dans mon champs Body ?

End If

End Sub


Je me demande comment introduire du texte formatté automatiquement dans mon champs Body.

Merci

JF

re

il faut instancier un notesrichtextitem !

une petite question

que vas tu faire quand le template de la messagerie va evoluer ?

re merci

Salut, j 'adapterai le code si besoin dans les template.

Dans mon début de code, je pense avoir instancié ce Notes notesrichtextitem. Je me demande comment intégrer son contenu "formaté" dans le body de mon email.

Désolé, ce sont mes premiers LS.

JF

généralement on evite de toucher a ce genre de template, parceque ça pose toujours tout un tas de souci d'es qu'on veut migrer le template

sinon voila ex exemple

Code : Tout sélectionner

Set richStyle = session.CreateRichTextStyle
      
      Set rtItem = New NotesRichTextItem(DocMail,"Body")
      richStyle.Bold = True
      Call rtItem.AppendStyle(richStyle)
      Call rtItem.AppendText("ID Log : "+IDLOG)

au faite je déplace ton post dans la section dev c'est plus approprié

bonjour,

j'ai introduit ce code de test dans le formulaire "message" pour tester l'ajout d'un texte formaté dans mon Body :

Code : Tout sélectionner

Sub Postopen(Source As Notesuidocument)
....
   If source.isnewdoc Then
      
      Call Source.GotoField("Body")
      Dim session As New NotesSession
      Set doc = source.document
      
      Dim richStyle As NotesRichTextStyle
      Set richStyle = session.CreateRichTextStyle
      Dim richText As NotesRichTextItem
      Set richText = New NotesRichTextItem(Doc,"Body")
      
      richStyle.NotesColor = COLOR_GRAY
      richStyle.FontSize = 10
      Call richText.AppendStyle(richStyle)
      
      Call richText.AppendText("JEAN-FRANCOIS SCHRAYEN")
      Call richText.AppendText("Direct (+352) 11 111 826")

      Call doc.Save(False,False )
      Call source.ImportItem(doc,"Body")   
      
   End If
   
End Sub

Le texte formaté est bien ajouté automatiquement mais le document est sauvé automatiquement dans les brouillons à cause de la méthode "save".

Existe-t-il un moyen de faire l'importItem sans faire de Save du document ?

Merci

JF