Ćmić strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt
Jeżeli WScript.Arguments.Count < 3="" Then="" WScript="">= 12 Wtedy
AMPM = "PM"
Inny
AMPM = "AM"
Kończyć Jeżeli
Kończyć Funkcja
Funkcja OutlookFolderExists (strFolderPath)
"Purpose: Test jeżeli Światopogląd falcówka istnieć zasadzony na ścieżka sznurek."
"Pisać: 4/24/2009"
"Autor: BlueDevilFan"
"Światopogląd: Wszystkie wersja
OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath)) <> "Nic")
Końcówka Funkcja
Funkcja OpenOutlookFolder (strFolderPath)
"Purpose: Otwierać Światopogląd falcówka od skoroszytowy ścieżka."
"Pisać: 4/24/2009"
"Autor: BlueDevilFan"
"Światopogląd: Wszystkie wersja
Ciemnawy arrFolders, varFolder, bolBeyondRoot
Na Błąd Życiorys Następnie
Jeżeli strFolderPath = "" Wtedy
Ustalony OpenOutlookFolder = Nic
Inny
Robić Podczas Gdy Opuszczać (strFolderPath, 1) = "\"
strFolderPath = Prawy (strFolderPath, Len (strFolderPath) - 1)
Pętla
arrFolders = Rozłam (strFolderPath, "\ ")
Dla ArrFolders varFolder W arrFolders
Wybrany Skrzynka bolBeyondRoot
Skrzynka Fałszywy
Ustalony OpenOutlookFolder = olkSes.Folders (varFolder)
bolBeyondRoot = Prawdziwy
Skrzynka Prawdziwy
Ustalony OpenOutlookFolder = OpenOutlookFolder.Folders (varFolder)
Końcówka Wybiórka
Jeżeli Err.Number <> (0) Wtedy
Ustalony OpenOutlookFolder = Nic
Wyjście Dla
Kończyć Jeżeli
Następnie
Kończyć Jeżeli
Na Błąd Rozpoczynający (0)
Końcówka Funkcja
|