DominoArea.org [Archive]

j'avais pas vu

le corps d'un mail s'appell TOUJOURS "Body"

donc remplace

Set rtitem = New NotesRichTextItem (doc, "CorpsDuMail")

par

Set rtitem = New NotesRichTextItem (doc, "Body")

C'est bon ca marche merci beaucoup.

Maintenant il faut que je trouve le moyen pour envoyer mon lien vers ma vue dans le corps du texte.

Je vais essayer de me debrouiller et je reviendrai vers vous si besoin.

Merci beaucoup

il te faut un richetext du nom de BODY

Set rtitem = doc.createRichTextItem ("Body")

C'est tout bon j'ai réussi mon agent qui me permet d'envoyer un lien par mail vers la vue depuis laquelle j'exécute mon agent.
Merci de votre aide et à bientot.
Pour information, le code est le suivant :

Sub Initialize


Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim LinkTo As NotesView

Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "prenom.nom@domaine.fr"
doc.Subject = "DBB : Relances"

Set rtitem = New NotesRichTextItem (doc, "Body")
Call rtitem.AddNewLine (2)
Call rtitem.AppendText ("Bonjour,")
Call rtitem.AddNewLine (2)
Call rtitem.AppendText ("Merci de bien vouloir cliquer sur le lien pour afficher la vue des workflows à relancer :")
Call rtitem.AppendDocLink( db, db.Title )


Call doc.Send( False )

End Sub

salut

la tu envois vers la base et non vers la vue, donc la vue afficher est la vue par défaut...

D'accord, juste pour information comment fait on pour choisir la base, ainsi que la vue que l'on veut ouvrir en cliquant sur le lien ?

quand tu fais le

Call rtitem.AppendDocLink( db, db.Title )

c'est la que tu parametre la vue ou le doc ou la base cible

Oui ca d'accord mais comment je fais.

Dans mon cas la base est "Dossier\Base.nsf" et je récupere l'ID du doc dans le champ IDDocument du masque.

Comment je peux faire ?
Merci

tu dois bien créer directement ton rtitem en l'appelant "Body" pour les mails et pas passer par un doc.Body = ???
Après si c'est un pb de mise en forme qui te dérange dis le clairement
J'ai pas testé ce code, mais à priori ça doit fonctionner
Dis nous exactement comment tu l'exécute et le résultat que tu obtiens et ce qui ne va pas par rapport à ce que tu souhaites

[syntax="LotusScript"]Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim LinkTo As NotesView
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem

Set db = session.CurrentDatabase
Set view = db.GetView( "CBP-vDBBTousVuePourRelance" )
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "clement.PEQUIGNET@jurafiltration.fr"
doc.Subject = "DBB : Relances"

Set rtitem = New NotesRichTextItem (doc, "Body")
Call rtitem.AddNewLine (2)
Call rtitem.AppendText ("Bonjour,")
Call rtitem.AddNewLine (2)
Call rtitem.AppendText ("Merci de bien vouloir cliquer sur le lien pour afficher la vue des workflows à relancer")
Call rtitem.AddNewLine (2)
Call rtitem.AppendDocLink( linkTo, "Lien vers la vue 'CBP-vDBBTousVuePourRelance'" )

Call doc.Send( False )

End Sub[/syntax]

Pour ma part, je ne me souviens pas avoir envoyé des liens vers des vues, mais toujours des liens vers des docs, mais d'après l'aide, ça doit marcher
http://publib.boulder.ibm.com/infocente ... ETHOD.html

si tu regardes l'exemple fournit, c'est exactment ça
http://publib.boulder.ibm.com/infocente ... ETHOD.html

PS : pour les liens docs, il faut une vue par défaut, pour les liens vue, je ne sais pas

Merci beaucoup je commence à un peu mieux comprendre le fonctionnement maintenant.