DominoArea.org [Archive]

Bonjour à tous,

J'ai crée un bout de code qui permet de créer un mail avec des infos d'un document.

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim docExt As NotesDocument
Dim uidoc As NotesUIDocument
Dim dbExt As New NotesDatabase ("ntvst","mail/1234.nsf")

Set uidoc = ws.CurrentDocument
Call uidoc.Refresh

Set docExt = dbExt.CreateDocument
docExt.form="Memo"
docExt.Subject= "Réponse - "

Call docExt.Save(True,False)
Set RItem = New NotesRichTextItem(docExt,"Body")
Call RItem.AppendText("Bonjour, ")
Call RItem.AddNewLine( 2 )
Call docExt.Save(True,False)
Call ws.EditDocument(True,docExt)

Set docExt = Nothing

Je souhaiterais ajouter la signature de l'expéditeur en automatique en bas du message.
J'ai testé quelques codes, dont un qui allait me chercher mon ancienne signature (par le docprofile).
Ma signature est un fichier html que j'ai importé dans les préférences de ma base courrier.

Et en essayant avec ComputeWithForm ?

Maxime Choucroun a écrit:Et en essayant avec ComputeWithForm ?

Je ne vois pas bien ce que le computewithform va pouvoir faire. Tu peux m'éclairer ?

La signature est rajoutée par le lotusscript.
De mémoire, je ne me souviens plus ou et quand. Cela doit se faire avant (la création du memo) ou apres (apres le send) suivant les options.
Donc, il y a 2 cas:
Soit tu passes en debugguer et tu cherches les lignes de code
Soit tu "invoques" le Computewithform

Bon, il y a un peu de tests et de recherche. Mais cela fait partie du métier...

Bonsoir,

La signature est contenue dans un rich text du doc préférence de la boîte mail.

Voici comment je procéderais pour l'ajout automatique :
J'instancie le rt de la signature (je te laisse le soin de chercher le nom du champ via le designer) dans la variable rtSign.
A la fin de la procédure, j'ajoute rtSign dans rtItem :

Code : Tout sélectionner

rtItem.AppendRTItem(rtSign)

Un compact de rtItem ne fera pas de mal après ça.

J'espère que ça t'aidera.

Edit : je n'avais pas lu jusqu'au bout désolé.....
Dans le cas où la signature est dans un fichier html et pas un rich text, je voix 2 solutions.
Une par le front : tu te places dans le Body du uidoc et tu utilises la méthode

Code : Tout sélectionner

uidoc.Import( "HTML File" , filename$ )

Le fichier HTML sera ainsi chargé et normalement interprété. Solution simple mais visible par l'utilisateur.

Une autre par le back, j'ai déjà fait un bout de code qui permet de placer du HTML dans un rt de façon à ce qu'il soit interprêté comme tel. Je te rajoute ce bout de code demain, le temps de mettre la main dessus.
Solution plus coûteuse en nombre de lignes mais transparente pour l'utilisateur.

si tu ne fais pas un save de ton docExt et que tu fais directement le ws.EditDocument, la signature n'est pas ajoutée automatiquement ?