DominoArea.org [Archive]

J'utilise cette fonction dans boutons pour diffuser des mails ou les listes de diffusions sont directement paramétrées.

La structure de la formule impose que le [IncludeDoclink] soit en fin de formule ce qui signifie que dans le mail, il est également à la fin du message.

1) Y-a t-il une méthode pour que le lien du document apparaisse en début de mail ?

Ensuite cette formule me permet d'afficher le texte d'un certain nombre de champ, mais pour chaque champ la meme police est utilisé dans le corps du mail et il n'y a de mise en gras, italique ... comme à l'identique dans le document.

2) Peut t-on forcer a afficher certain champ en gras ou en couleur dans le corps du mail ?

Bonjour

pas en formule, mais en lotusscript tu peux faire ce que tu veux

est ce que par hasard tu aurais un exemple de code à me proposer qui se prete bien à mon cas ?

non j'ai pas ça sous la main.

et tout dépend de ton niveau en LS.

regarde déjà ici => viewforum.php?f=20 si tu trouve ton bonheur

Comme a l'initiale très faible. Je ne dispose pas du temps nécessaire pour m'y exercer

regardes dans l'aide :
NotesDocument.Send
http://publib.boulder.ibm.com/infocente ... D_DOC.html
http://publib.boulder.ibm.com/infocente ... D_DOC.html

Code : Tout sélectionner

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "Elissa Minty"
doc.Subject = "Here's the document you wanted"
Call doc.Send( False )

NotesRichTextItem
http://publib.boulder.ibm.com/infocente ... CLASS.html

Code : Tout sélectionner

Dim session As New NotesSession
Dim db As NotesDatabase
Dim memo As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
'...set value of doc...
Set memo = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( memo, "Body" )
Call rtitem.AppendDocLink( doc, db.Title )
memo.Subject = "Here's a link to the document"
Call memo.Send( False, "Frank Glennel" )

NotesRichTextStyle
http://publib.boulder.ibm.com/infocente ... CLASS.html
http://publib.boulder.ibm.com/infocente ... PERTY.html

Code : Tout sélectionner

  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim doc As New NotesDocument(db)
  Call doc.AppendItemValue("From", session.UserName)
  Call doc.AppendItemValue("Subject", _
  "Meeting time changed")
  Dim richStyle As NotesRichTextStyle
  Set richStyle = session.CreateRichTextStyle
  Dim richText As New NotesRichTextItem(doc, "Body")
  Call richText.AppendText("The meeting is at ")
  richStyle.Bold = True
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText("3:00")
  richStyle.Bold = False
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText(" not 2:00")
  Call doc.Save(True, False)