Questione : Vorrei automatizzare questa macro di prospettiva che cancella le riunioni annullate

Questa macro cancella tutte le riunioni annullate all'interno di due funzionamenti di dates.
It contro il calendario che avete aperto e on.
I lo vorrebbe per fare funzionare ogni 15 minuti contro tre calendari duri codificati nel macro.
I dispongono mezzi della sala riunioni di tre, room1, room2 e l'aiuto di room3.

Any sarebbe molto appreciated. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
>Sub notpretty CancApt " del class= " del id= " codeSnippet936634 del 
= [di inizio] '„ & _ del daStart
    & ““E <= [dell'estremità]„ “& daEnd &„ '“
    
    'Elementi prescelti del calendario in dispositivo di piegatura corrente
    intAnswer = MsgBox (“avete selezionato il calendario? „, vbYesNo, “attesa„)
    Se intAnswer = vbYes allora
    Altrimenti
        EndMacro di avanzamento
    Concluder se

    Regolare il olkFld = Application.ActiveExplorer.CurrentFolder
    Regolare il olkLst = olkFld.Items
    
    'Per comprendere gli appuntamenti di ricorso, specie usando la proprietà di inizio.
    olkLst.IncludeRecurrences = allineano
    olkLst.Sort “[inizio]„
    
    'Limitare l'accumulazione degli articoli.
    Regolare il olkItemsInDateRange = olkLst.Restrict (strRestriction)

    “Collegare per contare gli articoli„
    Per ogni olkApt nel olkItemsInDateRange
        intCnt = intCnt + 1
    Dopo
    “Ciclo per procedare gli articoli„
    Per intIdx = intCnt a 1 punto -1
        Regolare il olkApt = il olkItemsInDateRange (intIdx)
        Se andato (olkApt.Subject, 9) = “ha annullato: „ Allora
            olkApt.Delete
        Concluder se
    Dopo
    
EndMacro:
    Regolare il olkFld = niente
    Regolare il olkLst = niente
    Regolare il olkApt = niente
    Eliminazione dei fogli inceppati di MsgBox “completa. „, il vbInformation + vbOKOnly, “eliminazione dei fogli inceppati ha annullato gli appuntamenti„
Sommergibile dell'estremità
class= del

Risposta : Vorrei automatizzare questa macro di prospettiva che cancella le riunioni annullate

L'atterraggio offre una libera prova ed è considerato da molti come un buon scambio app. Controllarlo fuori?
Altre soluzioni  
 
programming4us programming4us