faire Suivre

[seb]

Je voudrais connaitre le code lotus script qui permet d'activer la commande faire suivre du menu ( avec ouverture de la fenetre permettant de choisir les destinataires et copie du document en cours dans le message)Merci d'avance.

[GOBLET]

Dans l'aide designer de lotus :Creates a new mail memo with the contents of a document. The user can enter recipients and mail the forwarded document like any other mail memo. Defined inNotesUIDocumentSyntaxCall notesUIDocument.ForwardUsageThe document can be in read or Edit mode. This method returns an error if the current document has not yet been saved.Exemple :This script forwards the current document. If the document is new, it displays an error message.Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument If uidoc.IsNewDoc Then Messagebox _ ( "Please save the document before forwarding it.") Else Call uidoc.Forward End IfEnd Sub

[seb]

Merci de ton aide mais je n'ai pas reussi avec forward mais ainsi :Set docFS = doc.CreateReplyMessage( True )docFS.form="mem_o"docFS.Subject = "sujet du message"Call docFS.Send (True)