> Tech > La fonction GetRestrictDate() …

La fonction GetRestrictDate() …

Tech - Par iTPro - 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

Checklist de protection contre les ransomwares

Checklist de protection contre les ransomwares

Comment évaluer votre niveau de protection contre les ransomwares à la périphérie du réseau, et améliorer vos défenses notamment pour la détection des ransomwares sur les terminaux, la configuration des appareils, les stratégies de sauvegarde, les opérations de délestage... Découvrez la check list complète des facteurs clés pour améliorer immédiatement la sécurité des terminaux.

Tech - Par iTPro - Publié le 24 juin 2010

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT