Frage : wie man eMail-Einzelteile von einem Faltblatt auf andere auf einem Zeitplan verschiebt, der auf Kriterien eines Datums in der Aussicht basiert.

Aussichtrichtlinien (wenn Sie automatisch ausgelöst werden), beschäftigen nur eine einzelne eMail auf einmal.  Auch die Richtlinie wird gewöhnlich nur, wenn eine eMail empfangen wird, oder sent.

What, das ich möchte, 1) zum Auslöser eine Tätigkeit (Bewegungsmitteilung) auf einem Zeitplan (jede Nacht) ist, 2) gegründet auf einem Datum empfangenen criteria.

Auto Archiv schneidet nicht it. ausgelöst

Antwort : wie man eMail-Einzelteile von einem Faltblatt auf andere auf einem Zeitplan verschiebt, der auf Kriterien eines Datums in der Aussicht basiert.

Dieses sollte es tun.  Ich sage, weil ich 2010 nicht laden lasse und nicht gegen es prüfen kann „, sollte“.  Ich prüfte using 2007 und es war.  Diese Anweisungen befolgen, den Code zu verwenden.

1.  Notizblock öffnen
2.  Den Code kopieren und ihn in Notizblock kleben
3.  Die Akte mit einer .vbs Verlängerung speichern
4.  Eine zeitlich geplante Aufgabe verursachen
5.  Die Aufgabe einstellen, diesen Index laufen zu lassen
6.  Der Index nimmt drei Parameter: srcFolderPath tgtFolderpath Tage
     wo
          srcFolderPath ist der Weg zum Aussichtfaltblatt, zum der Einzelteile von zu verschieben (den Weg in den Anführungsstrichen einschließen, wenn er einen Raum enthält)
          tgtFolderPath ist der Weg zu den Aussichtfaltblatt-TP-Bewegungseinzelteilen (den Weg in den Anführungsstrichen einschließen, wenn er einen Raum enthält)
          Tage ist das Alter der Mitteilungen, die Sie verschieben möchten (d.h. nur die, die sind, wie alt oder älter als x-Tage)
     Beispiel
          „Briefkasten - Damhirschkuh, John \ inbox“ Unterstützungen \ 2010 7 dieses würde alle Einzelteile verschieben, die nannten 7 sind oder mehr Tage alt vom inbox der John-Damhirschkuh zu einem genannten Faltblatt 2010 in der pst Akte Backups

     Aussichtfaltblattwege sind zu Dateisystem-Faltblattwegen mit einer Ausnahme kein unterschiedliches: sie benutzen nicht einen Antriebsbuchstaben.  Der Weg zu jedem möglichem Aussichtfaltblatt ist der Name jedes Faltblatts von der Wurzel zum Zielfaltblatt.

7.  Den Index prüfen, indem Sie sofort die Aufgabe laufen lassen.
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:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:

strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt verdunkeln
Wenn WScript.Arguments.Count < 3="" Then="" WScript="">= 12 dann
	    AMPM = „P.M.“
	Sonst
	    AMPM = „MORGENS“
	Beenden wenn
Funktion beenden

Funktion OutlookFolderExists (strFolderPath)
    „Zweck: Tests, zum zu sehen, wenn ein Aussichtfaltblatt existiert gegründet auf einer Wegschnur.“
    „Geschrieben: 4/24/2009“
    „Autor:  BlueDevilFan“
    „Aussicht: Alle Versionen“
    OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath))  <> „Nichts“)
Enden-Funktion

Funktion OpenOutlookFolder (strFolderPath)
    „Zweck: Öffnet ein Aussichtfaltblatt von einem Faltblattweg.“
    „Geschrieben: 4/24/2009“
    „Autor:  BlueDevilFan“
    „Aussicht: Alle Versionen“
    Schwache arrFolders, varFolder, bolBeyondRoot
    Auf Störungs-Zusammenfassung zunächst
    Wenn strFolderPath = "" dann
        OpenOutlookFolder einstellen = nichts
    Sonst
        Tun, während Sie verlassen werden (strFolderPath, 1) = „\“
            strFolderPath = recht (strFolderPath, Len (strFolderPath) - 1)
        Schleife
        arrFolders = spalteten auf sich (strFolderPath, „\ ")
        Für jedes varFolder in den arrFolders
            Fall bolBeyondRoot vorwählen
                Falsches umkleiden
                    OpenOutlookFolder = olkSes.Folders (varFolder) einstellen
                    bolBeyondRoot = richten aus
                Fall zutreffend
                    OpenOutlookFolder = OpenOutlookFolder.Folders (varFolder) einstellen
            Auserwähltes beenden
            Wenn Err.Number <> 0 dann
                OpenOutlookFolder einstellen = nichts
                Für herausnehmen
            Beenden wenn
        Zunächst
    Beenden wenn
    Auf Störung Goto- 0
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us