Voilà mon soucis
Le code ci-dessous attache bien le doclink (mais uniquement en debug)
Sub envoyerMessage(emetteur As String, vers() As String,subject As String, newdoc As NotesDocument)
Dim sEmetteur As New notessession
Dim wEmetteur As New notesuiworkspace
Dim dbEmetteur As NotesDatabase
Dim docmemo As NotesDocument
Dim uidoctemp As notesuidocument
Dim coll As NotesDocumentCollection
Dim rtitem As NotesRichTextItem
Set dbEmetteur = sEmetteur. currentdatabase
For i = 0 To Ubound(vers)
Set docmemo = dbEmetteur.CreateDocument
docmemo.form = "memo"
rc = docmemo.ComputeWithForm(False,False)
'rc = docmemo.save(True,False,False)
docmemo.from = emetteur
'retrouver l'adresse mail
formule = {util_alias = "} & vers(i) & {" }
Set coll = dbEmetteur.Search(formule,Nothing,0)
Set docu = coll.getfirstdocument
docmemo.sendto = docu.util_courriel(0)
docmemo.subject = subject
'ajout du doclink
Set rtitem = New NotesRichTextItem( docmemo, "Body" )
Call rtitem.AppendText("Vers la fiche de progrès : ")
Call rtitem.AppendDocLink( newdoc, "" )
Set uidoctemp = wEmetteur.EditDocument(True,docmemo)
Next
End Sub
Et oui en exécution le Body reste désespérément vide.
Une idée???
cdlt
Alain
