Vraag : Ik zou deze macro van Vooruitzichten willen automatiseren die geannuleerde vergaderingen schrapt

Deze macro schrapt alle geannuleerde vergaderingen binnen twee/>It looppas dates.
I zou het om de 15 minuten tegen drie die kalenders hard willen in werking stellen in macro.
I worden gecodeerd heeft drie middelen van de vergaderingsruimte, room1, zou de hulp room2 en room3.

Any veel appreciated. zijn
" codeBody " 
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 CancApt ()
    Schemerige olkFld als Outlook.Folder, _
        olkLst als Outlook.Items, _
        olkItemsInDateRange als Outlook.Items, _
        olkApt als Outlook.AppointmentItem, _
        strRestriction als Koord, _
        intCnt als Geheel, _
        intIdx als Geheel, _
        daStart als Datum, _
        daEnd als Datum
        
    „Ga een begin en een einddatum in“
    daStart = (DateAdd („D“, -7, Datum))
    daEnd = (DateAdd („D“, 60, Datum))
    
    
    'Concept een filter voor de datumwaaier.
    strRestriction = „[Begin] >= '“ & daStart _
    & „„EN [Eind] <=“ „& daEnd &“ '„
    
    'Uitgezochte kalenderpunten in huidige omslag
    intAnswer = MsgBox („hebt u de kalender geselecteerd? “, vbYesNo, „Wachttijd“)
    Als intAnswer = vbYes toen
    Anders
        GoTo EndMacro
    Eind als

    Reeks olkFld = Application.ActiveExplorer.CurrentFolder
    Reeks olkLst = olkFld.Items
    
    'Om terugkomende benoemingen te omvatten, soort door het bezit van het Begin te gebruiken.
    olkLst.IncludeRecurrences = Waar
    olkLst.Sort „[Begin]“
    
    'Beperk de inzameling van Punten.
    Plaats olkItemsInDateRange = olkLst.Restrict (strRestriction)

    „Lijn om de punten“ te tellen
    Voor Elke olkApt in olkItemsInDateRange
        intCnt = intCnt + 1
    Daarna
    „Lijn om de punten“ te verwerken
    Voor intIdx = intCnt aan 1 Stap -1
        Reeks olkApt = olkItemsInDateRange (intIdx)
        Indien Weggegaan (olkApt.Subject, 9) = „annuleerde: “ Toen
            olkApt.Delete
        Eind als
    Daarna
    
EndMacro:
    Reeks olkFld = niets
    Reeks olkLst = niets
    Reeks olkApt = niets
    Volledige de Zuivering van MsgBox „. “, vbInformation + vbOKOnly, „Zuivering Geannuleerde Benoemingen“
Sub van het eind

Antwoord : Ik zou deze macro van Vooruitzichten willen automatiseren die geannuleerde vergaderingen schrapt

De touchdown biedt een vrije proef aan en door velen om een goede Uitwisseling app beschouwd als. Het controleer?
Andere oplossingen  
 
programming4us programming4us