J'ai fais un bouton qui permet de renvoyer un lien doc à une personne (le tout el LS)
Voici le code :
- Code : Tout sélectionner
Sub Click(Source As Button)
'Déclaration des variables nécessaires
Dim S As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim CurrentUIDoc As NotesUIDocument
Dim uidoc As NotesUIDocument
Dim Doc As NotesDocument
'récup du doc en cours
Set CurrentUIDoc = workspace.CurrentDocument
Set doc=CurrentUIDoc.document
MS=S.Getenvironmentstring("MailServer",True)
MF=S.Getenvironmentstring("MailFile",True)
' création d'un doc signet
Set uidoc = workspace.ComposeDocument( MS, MF, "Bookmark" )
'Mise en place du lien doc dans le body du signet
Set DocLink=uidoc.document
Set rtitem = New NotesRichTextItem( DocLink, "Body" )
Call rtitem.AppendDocLink ( doc,"")
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText _
("Je n'arrive pas à rajouter du texte dans le body")
Forall Value In doc.Diffusion
Call uidoc.Fieldappendtext("SendTo", Value)
Call uidoc.Fieldappendtext("SendTo", ", ")
End Forall
Call uidoc.refresh(False)
End Sub
Mon problème c'est que je n'arrive pas à rajouter du texte dans le body du message.
est ce que quelqu'un aurait-il une idée?
Merci d'avance
Cordialement
