Fråga : hur till flyttninge-postobjekt från en mapp till another på ett schema som baseras på kriterier för en datera i framtidsutsikt.

Framtidsutsikten härskar (om automatiskt startat) endast avtal med en singele-post i sänder.  Också härska startas typisk endast, när en e-post mottas, eller sent.

What som jag skulle något liknande, är till 1) startar en handling (flyttningmeddelande) på ett schema (varje natt), 2) som baseras på en datera mottagen criteria.

Auto, arkiverar det ska inte snittet it. " klar "

Svar : hur till flyttninge-postobjekt från en mapp till another på ett schema som baseras på kriterier för en datera i framtidsutsikt.

Detta bör göra det.  Något att säga I ”bör”, därför att jag inte har 2010 att laddas och kan inte testa mot den.  Jag testade using 2007, och den fungerade fint.  Följ dessa anvisningar att använda kodifiera.

1.  Öppna anteckningsboken
2.  Kopiera kodifiera och klistra den in i anteckningsbok
3.  Räddning spara med en .vbs-f8orlängning
4.  Skapa en planlagd uppgift
5.  Uppsättningen uppgiften att köra detta skrivar
6.  Skriva tar tre parametrar: srcFolderPathtgtFolderpathdagar
     var
          srcFolderPath är banan till framtidsutsiktmappen till flyttningobjekt från (innesluta banan i citationstecken, om den innehåller ett utrymme),
          tgtFolderPath är banan till objekten för flyttningen för framtidsutsiktmapptp (innesluta banan i citationstecken, om den innehåller ett utrymme),
          Dagar är åldern av meddelanden som du önskar till flyttningen (dvs. endast de som är som gammala eller äldre än x-dagar),
     exempel
          ”brevlåda - doen, john \ inbox” reserver \ 2010 7 denna skulle flyttning alla objekt, som är 7, eller mer gammala dagar från N.N inbox till en mapp som namnges 2010 i psten, sparar namngav Reserv

     Framtidsutsiktmappbanor är inget olikt från sparar systemmappbanor med ett undantag: de använder inte ett drev märker.  Banan till någon framtidsutsiktmapp är det känt av varje mapp från rota till uppsätta som målmappen.

7.  Testa skriva vid spring uppgiften omgående.
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:
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:

Dunkel strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt
Om WScript.Arguments.Count < 3="" Then="" WScript="">= 12 därefter
	    AMPM = ”PM”,
	Annars
	    AMPM = ”FÖRMIDDAG”,
	Avsluta om
Avsluta fungerar

Fungera OutlookFolderExists (strFolderPath)
    ”Ämna: Testar för att se, om en framtidsutsiktmapp finns baserat på en bana stränger.”,
    ”Skriftligt: 4/24/2009”,
    ”Författare:  BlueDevilFan”,
    ”Framtidsutsikt: Alla versioner”,
    OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath))  <> ”Ingenting”)
Avsluta fungerar

Fungera OpenOutlookFolder (strFolderPath)
    ”Ämna: Öppnar en framtidsutsiktmapp från en mappbana.”,
    ”Skriftligt: 4/24/2009”,
    ”Författare:  BlueDevilFan”,
    ”Framtidsutsikt: Alla versioner”,
    Dunkla arrFolders, varFolder, bolBeyondRoot
    På felmeritförteckning därefter
    Om strFolderPath = "" därefter
        Fastställda OpenOutlookFolder = ingenting
    Annars
        Gör lämnade stunder (strFolderPath, 1) = ”\”,
            strFolderPath = högert (strFolderPath, Len (strFolderPath) - 1)
        Kretsa
        arrFolders = splittring (strFolderPath, ”\”)
        För varje varFolder i arrFolders
            Välj fallbolBeyondRoot
                Case falskt
                    Fastställda OpenOutlookFolder = olkSes.Folders (varFolder)
                    bolBeyondRoot = True
                Riktigt fall
                    Fastställda OpenOutlookFolder = OpenOutlookFolder.Folders (varFolder)
            Avsluta valt
            Om Err.Number <> 0 därefter
                Fastställda OpenOutlookFolder = ingenting
                Gå ut för
            Avsluta om
        Därefter
    Avsluta om
    På fel GoTo 0
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us