DominoArea.org [Archive]

cette fonction utilise l'api pour faire un broadcast, doit être exécuté depuis un agent sur le server

Code : Tout sélectionner

Public Sub Broadcast(Byval wServer As String, Byval wMessage As String, wUser As String )
    'Déclaration Variable
   Dim Commande As String
   Dim nmServer As NotesName
   Dim nmUser As NotesName
   
   On Error Goto ErreurBroadcast
   
   If Trim(wMessage) = "" Then
      Error 9999,"no message"
      Exit Sub
   End If
   
   If Trim(wUser) = "" Then
      Error 9999,"no user"
      Exit Sub
   Else
      Set nmUser = New NotesName(wUser)
   End If
   
   
   If Trim(wServer) = "" Then
      If Session Is Nothing Then
         Set Session = New NotesSession
      End If
      Set nmServer = New NotesName(Session.CurrentDatabase.Server)
   Else
      Set nmServer = New NotesName(wServer)
   End If
   
   Commande = {Broadcast "(!)}+wMessage+{""}+Cstr(nmUser.Abbreviated)+{"}
   
   Call ExecuteCommandeServeur_API(Cstr(nmServer.abbreviated),Commande)
   
   Set nmServer = Nothing
   Set nmUser = Nothing
   Commande = ""
   
   Exit Sub
ErreurBroadcast:
   Msgbox "("+Cstr(Getthreadinfo (1))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   exit Sub
End Sub

Salut Michael,

Simple cunriosité. J'ai utilisé des API semblables pas le passé. Dans mon cas, je les lançais à partir de mon poste. Toi, c'est pour lancer à partir d'un agent programmé?

Dans mon cas, je n'ai jamais fait confiance à des API "sensibles" de ce type

En V6, il s'agit maintenant de fonctions incluses dans le Notessession (SendConsoleCOmmand)

JYR

Tu as posté durant que j'écrivais ma réponse.

Hello JYR

J'avais mis ça au point en V5 pour un agent lancé depuis un client lourd via un RunOnServer et pour mon besoin c'était très stable.

Et je n'ai pas mis a jours ma fonction avec le nouvel objet V6 mais ça n'est pas grand chose à faire

oui en effet, c'est dispo en V6 maintenant plus besoin des api

pour info

voici la commande qui remplace l'API à partir de la V6:

notesSession.SendConsoleCommand