Remplacer la conception en appliquant un modèle

[clementbp]

Bonjour,

je voudrais envoyer un mail a chaque utilisateur avec un lien qui appliquerait le modèle souhaité sur leur base de courrier.

Pourriez vous me dire si cela est réalisable ou non, et si c'est le cas comment faire.

Merci

[pivo]

Hello, oui je pense que c'est possible, à condition que tes utilisateurs aient les droits "Designer" au minimum sur leurs mailboxes.

Creuse un peu du côté de "apiDesignReplace" en lotusscript, je regarde si je retrouve mon vieux code. Sinon Abertisch doit l'avoir

[pivo]

Plop regarde-moi ça ce que c'est d'être ordré Reste plus qu'à retravailler un peu les variables et à mettre ça dans un bouton (hotspot) que tu envoies à tout le monde !

Code : Tout sélectionner

Function ReplaceDesign(Byval templateServer As String, Byval templateDB As String, Byval targetServer As String, Byval targetDB As String, Byval Createifneed As Variant) As Variant
   ReplaceDesign = False
   
   If templateServer = "" Then
      status = apiNSFDbOpen(templateDB, htemplate)
   Else
      status = apiNSFDbOpen(templateServer & "!!" & templateDB, htemplate)
   End If
   
   If status<>0 Then
      Print "Can't open template."
      Exit Function
   End If
   
   If targetServer = "" Then
      status = apiNSFDbOpen(targetDB, htarget)
   Else
      status = apiNSFDbOpen(targetServer & "!!" & targetDB, htarget)
   End If
   
   If staus<>0 And Createifneed Then
      Print "Can't open database. Creating new."
      If targetServer = "" Then
         Call apiNSFDbCreate(targetDB, DBCLASS_BY_EXTENSION, True)
         status = apiNSFDbOpen(targetDB, htarget)
      Else
         Call apiNSFDbCreate(targetServer & "!!" & targetDB, DBCLASS_BY_EXTENSION, True)
         status = apiNSFDbOpen(targetServer & "!!" & targetDB, htarget)
      End If
   End If
   
   If status<>0 Then
      Print "Can't open database."
      Call apiNSFDbClose(htemplate)
      Exit Function
   End If
   
   Call apiDesignReplace(htemplate, htarget, 1, 1, 0, 0)
   ReplaceDesign = True
   
   Call apiNSFDbClose(htemplate)
   Call apiNSFDbClose(htarget)
End Function


[elgoe]

Pourquoi tu fait pas un load convert avec un fichier teste en entree tout simplement

[Michael DELIQUE]

@Pivo, ton code est bien mais il manque les déclaration des api

des tips sur le sujet
=> http://forum.dominoarea.org/refreshdesign-t12286.html
=> http://forum.dominoarea.org/replacedesign-t12285.html

[pivo]

@Pivot, ton code est bien mais il manque les déclaration des api

des tips sur le sujet
=> http://forum.dominoarea.org/refreshdesign-t12286.html
=> http://forum.dominoarea.org/replacedesign-t12285.html

Sans "t" stp mon pseudo

Pivo =

Sinon désolé y a pas le Option Declare dans ce script, mais c'est une API Notes, donc normalement pas de souci.

[Michael DELIQUE]

désolé, mais les api notes doivent être déclaré

c'est que tu dois avoir une bibliotheque de script qui les déclare

[pivo]

désolé, mais les api notes doivent être déclaré

c'est que tu dois avoir une bibliotheque de script qui les déclare

:shame on me: je suis certifié que "basic"

Code : Tout sélectionner

Const DBCLASS_BY_EXTENSION = 0
Declare Function apiNSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" (Byval filename As String, hDB As Long) As Integer
Declare Function apiNSFDbClose Lib "nnotes.dll" Alias "NSFDbClose" (Byval hDB As Long) As Integer
Declare Function apiDesignReplace Lib "nnotes.dll" Alias "DesignReplace"_
(Byval ht As Long, Byval hDB As Long, Byval dw1 As Long, Byval dw2 As Long, Byval dw3 As Long, Byval dw4 As Long) As Integer
Declare Function apiNSFDbCreate Lib "nnotes.dll" Alias "NSFDbCreate" (Byval PathName As String, Byval DbClass As Integer, Byval ForceCreation As Integer) As Integer
Dim source As String
Dim target As String
Dim htemplate As Long
Dim htarget As Long
Dim status As Integer

[clementbp]

Ouahhh
La j'avoue que je ne comprend rien du tout a tout ce code

Je vais essayé de le déchiffré mais je ne sais meme pas par ou commencer.

Si vous avez quelque chose de plus simple pour que je m'y mette progressivement ce serait sympa

Merci

[Michael DELIQUE]

salut

ce sont des api notes, ça change un peu du Lotus script "Standard"
malheureusement si tu veux faire du replace design en code faut passer par là

dis moi ce que tu ne comprend pas ? (je te dirais comment t'en passer)

[clementbp]

Ben déja pour commencer je créé mon bouton et je veux lui rentrer le code.
Mais comment faire : je dis que c est du Lotus Script ou alors c est autre chose ?
Ou est ce que je défini les variables ?
A quel endroit je lui dit de prendre le modèle "Modele" à appliquer à la base "Base" ?

Et oui comme tu vois je pars vraiment de ZERO

[Michael DELIQUE]

re

as-tu lu ça => http://forum.dominoarea.org/initiation- ... 12997.html

[roubech]

Pourquoi tu fait pas un load convert avec un fichier teste en entree tout simplement

+1
tu as vraiement besoin que ce soit l'utilisateur qui mette à jour son design ? tu ne peux pas le faire depuis la console d'admin avec un load convert ?

[clementbp]

Je vais essayer de faire depuis la console je pense que se sera plus simple.

Et en plus je n'aurai pas de problèmes de droits de cette manière.

Merci pour vos réponses