Frage : Ich möchte dieses Aussichtmakro automatisieren, das abgesagte Sitzungen löscht

Dieses Makro löscht alle abgesagten Sitzungen innerhalb zwei dates.
It Durchläufe gegen den Kalender, den Sie geöffnetes haben und angeklicktes on.
I möchte, dass es alle 15 Minuten gegen drei Kalender laufen lässt, die in das macro.
I fest verdrahtet sind, hat drei Konferenzzimmerbetriebsmittel, room1, room2 und room3.

Any Hilfe sein viel appreciated. 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Sub CancApt ()
    Schwaches olkFld als Outlook.Folder, _
        olkLst als Outlook.Items, _
        olkItemsInDateRange als Outlook.Items, _
        olkApt als Outlook.AppointmentItem, _
        strRestriction als Schnur, _
        intCnt als ganze Zahl, _
        intIdx als ganze Zahl, _
        daStart als Datum, _
        daEnd als Datum
        
    „Einen Anfang und ein Enddatum erreichen“
    daStart = (DateAdd („d“, -7, Datum))
    daEnd = (DateAdd („d“, 60, Datum))
    
    
    'Einen Filter für die Datumstrecke konstruieren.
    strRestriction = „[Anfangs] >= '“ u. daStart _
    u. „„UND [Ende] <=“ „u. daEnd u.“ '„
    
    'Auserwählte Kalendereinzelteile im gegenwärtigen Faltblatt
    intAnswer = MsgBox („vorgewählt Sie den Kalender t? “, vbYesNo, „Wartezeit“)
    Wenn intAnswer = vbYes dann
    Sonst
        Goto- EndMacro
    Beenden wenn

    olkFld = Application.ActiveExplorer.CurrentFolder einstellen
    olkLst = olkFld.Items einstellen
    
    'Wiederkehrende Verabredungen, Art einschließen durch die Anwendung des Anfangseigentums.
    olkLst.IncludeRecurrences = ausrichten en
    olkLst.Sort „[Anfang]“
    
    'Die Einzelteilansammlung einschränken.
    olkItemsInDateRange = olkLst.Restrict (strRestriction) einstellen

    „Schlingen, um die Einzelteile zu zählen“
    Für jedes olkApt im olkItemsInDateRange
        intCnt = intCnt + 1
    Zunächst
    „Schleife, zum der Einzelteile zu verarbeiten“
    Für intIdx = intCnt zu 1 Schritt -1
        olkApt = olkItemsInDateRange (intIdx) einstellen
        Wenn Sie verlassen (olkApt.Subject, 9) = „annullierte: “ Dann
            olkApt.Delete
        Beenden wenn
    Zunächst
    
EndMacro:
    olkFld einstellen = nichts
    olkLst einstellen = nichts
    olkApt einstellen = nichts
    MsgBox „Bereinigung komplett. “, absagte vbInformation + vbOKOnly, „Bereinigung Verabredungen“ e
Enden-Unterseeboot

Antwort : Ich möchte dieses Aussichtmakro automatisieren, das abgesagte Sitzungen löscht

Landung bietet einen freien Versuch an und wird durch viele betrachtet, um eine gute Austausch-APP zu sein. Sie heraus überprüfen?
Weitere Lösungen  
 
programming4us programming4us