class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
|
class= de
>Sub " de l'id= " codeSnippet936634 de = de début] ' » et _ de daStart
et « « ET [<= d'extrémité] » « et daEnd et » '«
'Articles choisis de calendrier dans la chemise courante
intAnswer = MsgBox (« avez-vous choisi le calendrier ? », vbYesNo, « attente »)
S'intAnswer = puis vbYes
Autrement
EndMacro GoTo
Finir si
Placer l'olkFld = l'Application.ActiveExplorer.CurrentFolder
Placer l'olkLst = l'olkFld.Items
'Pour inclure les rendez-vous périodiques, sorte en employant la propriété de début.
olkLst.IncludeRecurrences = rectifient
olkLst.Sort « [début] »
'Limiter la collection d'articles.
Placer l'olkItemsInDateRange = l'olkLst.Restrict (le strRestriction)
« Faire une boucle pour compter les articles »
Pour chaque olkApt dans l'olkItemsInDateRange
intCnt = intCnt + 1
Après
« Boucle pour traiter les articles »
Pour l'intIdx = l'intCnt à 1 étape -1
Placer l'olkApt = l'olkItemsInDateRange (l'intIdx)
Si parti (olkApt.Subject, 9) = « a décommandé : » Puis
olkApt.Delete
Finir si
Après
EndMacro :
Placer l'olkFld = rien
Placer l'olkLst = rien
Placer l'olkApt = rien
Purge de MsgBox « complète. », le vbInformation + vbOKOnly, « purge a décommandé des rendez-vous »
Sous-marin d'extrémité
|
