> 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 gratuitement cette ressource

Comment sécuriser la Digital Workplace ?

Comment sécuriser la Digital Workplace ?

Avec le recours généralisé au télétravail, les entreprises ont ouvert davantage leur SI. En dépit des précautions prises, elles ont mécaniquement élargi leur surface d’exposition aux risques. Découvrez 5 axes à ne pas négliger dans ce Top 5 Sécurité du Télétravail.

Tech - Par iTPro - Publié le 24 juin 2010