Une petite blague pour le premier avril.
- Code : Tout sélectionner
Public Sub PoissonAvril()
Dim session As New notessession
Dim db1 As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db1 = session.CurrentDatabase
Set dc = db.alldocuments
Nombre = dc.Count
Dim texte As String
REM Script de poisson d'avril
REM Récupère la date du jour et test si c'est le 1er avril
Dim Aujourdhui As New NotesDateTime( Today )
Dim FishDate As New NotesDateTime("01/04/2005")
If Aujourdhui.DateOnly = FishDate.DateOnly Then
REM Récupère la variabled'environnement donnée.
VariableEnv=Session.GetEnvironmentString( "ENVAVRIL1")
REM Teste si la blague a été faite
If VariableEnv="OUI" Then
End
Else
REM Comme la blague pas faite, on y va :)
texte = "Suite au nombre croissant de messages à caractére pornographique qui transitent par la messagerie interne SOCIETE"
texte = texte & Chr$(10) & "Il a été décidé la mise en place d'une politique de contrôle actif des boites aux lettres."
texte = texte & Chr$(10) & Chr$(10) & "Lotus Notes va maintenant contrôler les messages stockés dans votre Boite aux Lettres et dans votre archive."
texte = texte & Chr$(10) & "Cette opération peut prendre quelques minutes. Le compte-rendu sera transmis à qui de droit."
texte = texte & Chr$(10) & Chr$(10) & "Cordialement, la DRH."
Msgbox texte ,,"Message d'Information"
symbole = Chr$(91) & Chr$(93)
For i = 1 To 100
compteur = " " & i & " % effectués"
bozo=bozo + Chr$(91) & Chr$(93)
Print bozo & compteur
For j=1 To 100000
Next
Next
texte1 = "L'opération d'analyse vient de se terminer."
texte1 = texte1 & Chr$(10) & nombre & " documents ont été analysés."
texte1 = texte1 & Chr$(10) & "5 documents semblent ne pas correspondre à la politique mise en place par la DRH"
texte1 = texte1 & Chr$(10) & "Ces documents vont être envoyés à des fins d'analyse à la DRH."
texte1 = texte1 & Chr$(10) & "Vous connaitrez par note interne le résultat de cette opération"
texte1 = texte1 & Chr$(10) & "Bonne Journée"
Msgbox texte1,,"Rapport de fin d'analyse."
Print "Recherche sur le serveur SERVEUR/DOMINO"
Print "Courrier en instance de distribution à une personne ou à un groupe"
REM Crée la variable d'environnement : la blague est faite.
Call Session.SetEnvironmentVar( "ENVAVRIL1", "OUI" )
End If
End If
End Sub
A mettre dans un agent programmé une fois dans la journée.
