DominoArea.org [Archive]

Bonjour,

J'ai developpé une base qui créé des emails automatiquement.
L'email apparait a l'ecran en modif et l'utilisateur peut le modifier et l'envoyé...

Je souhaiterai pouvoir ajouter la signature contenu dans la base mail de l'utilisateur dans mon email généré automatiquement ...
Comment faut il procedé ?

ou puis je trouver la signature de l'utilisateur pour la copier dans mon email ?
Merci

Bonjour,

En client lourd, tu peux te mettre en mode "Déboguer lotusScript" et créer un mail.
A un moment dans le script, il y a l'instruction
Set Me.m_calprofile = Me.m_session.CurrentDatabase.GetProfileDocument("CalendarProfile")
qui initialise le champ Signature dans m_calprofile / items

....

Bonjour,

J ai essayé de recuperer la signature dans un autre texte riche depuis une appli ... mais j obtiens un message d erreur :

"Type incompatible dans la methode AssignClassInstance : AINTANCE trouvé(s), unknown attendu(s)"

je ne sais pas d ou viens le probleme ...

Voici mon code :

Code : Tout sélectionner

   
Dim workspace As New NotesUIWorkspace
Dim dbmail As NotesDatabase
Dim doc_signature As NotesDocument
Dim rt_signature As NotesRichTextItem
Dim rt_txtsign As NotesRichTextItem
Dim uidoc As NotesUIDocument
Dim doccourant As NotesDocument
   
Set dbmail=New notesdatabase("","")
Call dbmail.openmail
Set doc_signature = dbmail.GetProfileDocument("CalendarProfile")
Set rt_signature = doc_signature.GetFirstItem("Signature")
Set uidoc = workspace.CurrentDocument
Set doccourant=uidoc.Document
Set rt_txtsign = doccourant.GetFirstItem("txtsign")
   
Call rt_txtsign.AppendRTItem(rt_signature)


merci

Tester si l'item n'est pas à nothing et de mémoire depuis la 852 c'est signature_rich le champ texte riche sinon c'est un champ de type texte

Bonjour,
Maintenant il semblerait que la copie de la signature ne pose plus de problème (ça reste a verifié mais le code ne se plante pas sur cette etape)
Mais au moment de : Call workspace.EditDocument(True,memo) j'obtiens le message user-defined error

Que signifie ce message ? ou est le problème ?
voici un extrait de mon code :

Code : Tout sélectionner

                   Set dbmail=New notesdatabase("","")
      Call dbmail.openmail
      Set doc_signature = dbmail.GetProfileDocument("CalendarProfile")
      Set rt_signature = doc_signature.GetFirstItem("signature_Rich")
      If rt_signature Is Nothing Then
                     Msgbox "objet signature non trouvé dans la base email" 
      Else
         Call rtmemo.AppendRTItem(rt_signature)   
      End If
      
      Call memo.Save(True, False)
      Call workspace.EditDocument(True,memo)


Merci