DominoArea.org [Archive]

Slt,

Est-il possible de transférer un modèle de mémo (via un lien ou un bouton action) à d'autre via messagerie ? pour qu'ensuite ils puissent l'installer dans leur BAL sans avoir à faire de manip, juste à cliquer dessus.

Sinon je sais qu'il suffirait de transférer le modèle dans un message et de dire aux destinataires de créer un modèle et de copier-coller le contenu... mais ce n'est pas ce qu'on veut. On souhaiterait plutôt avoir une astuce pour avoir le moins de manip possible à faire faire aux utilisateurs.

http://forum.dominoarea.org/partage-mod ... 26379.html
http://forum.dominoarea.org/modele-de-m ... 26004.html
http://jyriver.blogspot.com/2008/04/pro ... s-and.html

Merci pour tous tes liens. Je vais pouvoir réfléchir à la solution qui nous convient le mieux.

J'ai fait cela il n'y a pas longtemps pour la carte de voeux. Le modèle a été déposé dans le template, ainsi qu'un bouton pour créer la carte de voeux.

Au moment où le user clique sur ce bouton, on vérifie que le modèle existe dans la messagerie, sinon, on va le chercher dans le template.

Voici le bout de code qui fait ça (je l'ai trouvé sur ce forum je crois bien)

' Dans le template, récup du modèle de mémo à utiliser pour la carte de voeux
Dim modele As NotesDatabase
Set modele = New NotesDatabase( "NOM DU SERVEUR", "mail8.ntf" )
Dim view As NotesView
Set view=modele.getView("Modeles_par_nom")
Dim clef As String
clef="Voeux 2011" ' le nom du modèle de carte de voeux

Set noteCursorDoc = view.getDocumentByKey(clef)

' Si le modèle n'existe pas déjà dans la messagerie du user, on copie celui trouvé dans le template
Dim doc As NotesDocument
Set view=database.getView("Modeles_par_nom")
Set doc = view.getDocumentByKey(clef)

If Doc Is Nothing Then
Dim item As NotesItem
Set item = noteCursorDoc.GetFirstItem( "Body" )

Set doc = New NotesDocument( database )
doc.Form = "Memo"
doc.Subject = noteCursorDoc.Subject
Call doc.CopyItem( item, "Body" )
Call Doc.ReplaceItemValue("IsMailStationery", 1)
Call Doc.ReplaceItemValue("MailStationeryname", "Voeux 2011")
Call doc.Save (True,False)

Call view.Refresh
Set doc = view.getDocumentByKey(clef)

End If