> Tech > La fonction GetRestrictDate() …

La fonction GetRestrictDate() …

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

La fonction GetRestrictDate() (Listing 2) provoque l'affichage d'une boite de dialogue dans laquelle l'utilisateur peut entrer une date. Pour demander à  Microsoft Outlook d'effacer tous les objets du dossier, l'utilisateur peut laisser le champ vide. Si l'utilisateur entre une information autre qu'une date, la fonction est rappelée jusqu'à  ce que

l’utilisateur entre une donnée valide. Avec une telle
fonction récurrente, il faut être sûr de fournir à  l’utilisateur une méthode pour
échapper à  cette boucle; dans ce cas, en laissant le champ vide ou en utilisant
une date valide.



La fonction PurgeCalendarFolder() utilise la date que GetRestrictDate() renvoie
afin de définir une limitation sur le groupe colItems. Par exemple, si un utilisateur
a entré « 9/30/2000 », la fonction définit la chaîne suivante, qui va être utilisée
par la méthode Restrict :



[End] < "Sep 30, 2000"



Cet exemple illustre l’un des caprices de syntaxe d’Outlook : les méthodes Restrict
et Find ne fonctionneront pas avec une date littérale, telle que #9/30/2000#.
Elles ont besoin d’une chaîne de caractères.



Après avoir appliqué la limitation au groupe colItems et obtenu un nouveau groupe,
colOldItems (contenant uniquement les objets les plus vieux), la fonction PurgeCalendarFolder()
agit de la même façon que la fonction PurgeFolder() : elle efface tous les éléments
du groupe.





Listing 2 La fonction GetRestrictDate()



Function GetRestrictDate(strFolderName As String) As String

Dim strMsg As String

Dim strTitle As String

Dim strResponse As String



‘ build prompts

strMsg = « Purge items that end before what date?  » & _

vbCrLf & vbCrLf & _

« (Leave blank to purge all items from the folder.) »

strTitle = « Purge the  » & strFolderName &  » folder »



‘ display input box

strResponse = InputBox(strMsg, strTitle)

If strResponse = «  » Or IsDate(strResponse) Then

GetRestrictDate = strResponse

Else

strResponse = GetRestrictDate(strFolderName)

End If



End Function

Téléchargez cette ressource

Comment sécuriser une PME avec l’approche par les risques ?

Comment sécuriser une PME avec l’approche par les risques ?

Disposant de moyens financiers et humains contraints, les PME éprouvent des difficultés à mettre en place une véritable stratégie de cybersécurité. Opérateur de services et d’infrastructures, Naitways leur propose une approche pragmatique de sécurité « by design » en priorisant les risques auxquelles elles sont confrontées.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT